Convert Comments role to use Types. Build a test for it.

lib/WebGUI/Role/Asset/Comments.pm

@@ -16,6 +16,7 @@ package WebGUI::Role::Asset::Comments;
 
 use Moose::Role;
 use WebGUI::Definition::Asset;
+use WebGUI::Types;
 define tableName           => 'assetAspectComments';
 property comments => (
             noFormPost      => 1,
@@ -31,7 +32,6 @@ property averageCommentRating => (
             default         => 0,
          );
 
-use JSON;
 use WebGUI::Exception;
 use WebGUI::Form;
 use WebGUI::HTML;
@@ -131,14 +131,6 @@ sub canComment {
 }
 
 
-#-------------------------------------------------------------------
-
-=head2 definition
-
-Extends the definition to add the comments and averageCommentRating fields.
-
-=cut
-
 #-------------------------------------------------------------------
 
 =head2 deleteComment ( id )

t/Role/Asset/Comments.t

@@ -0,0 +1,88 @@
+# vim:syntax=perl
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2009 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#------------------------------------------------------------------
+
+# Write a little about what this script tests.
+# 
+#
+
+use FindBin;
+use strict;
+use lib "$FindBin::Bin/../../lib";
+use Test::More;
+use Test::Deep;
+use Test::MockObject;
+
+use WebGUI::Test; # Must use this before any other WebGUI modules
+use WebGUI::Session;
+
+#----------------------------------------------------------------------------
+# Init
+my $session         = WebGUI::Test->session;
+$session->db->dbh->do('drop table if exists dummyTable');
+$session->db->dbh->do(<<EOSQL);
+create table dummyTable(
+    assetId      varchar(22) NOT NULL,
+    revisionDate bigint(20)  NOT NULL,
+    PRIMARY KEY  (`assetId`,`revisionDate`)
+) ENGINE=MyISAM DEFAULT CHARSET=latin1
+EOSQL
+
+package WebGUI::Asset::DummyComments;
+
+use Moose;
+use WebGUI::Definition::Asset;
+use WebGUI::Types;
+extends 'WebGUI::Asset';
+define tableName => 'dummyTable';
+with 'WebGUI::Role::Asset::Comments';
+
+package main;
+
+use WebGUI::Asset;
+
+my $mock = Test::MockObject->new();
+$mock->fake_module('WebGUI::Asset::DummyComments', '__DUMMY__DUMMY__' => sub {}, );
+
+#----------------------------------------------------------------------------
+# put your tests here
+
+my $dummy = WebGUI::Asset->getDefault($session)->addChild({
+    className   => 'WebGUI::Asset::DummyComments',
+    url         => '/home/shawshank',
+    title       => 'Dummy Title',
+    synopsis    => 'Dummy Synopsis',
+    description => 'Dummy Description',
+});
+my $tag = WebGUI::VersionTag->getWorking($session);
+addToCleanup($tag);
+
+ok $dummy->does('WebGUI::Role::Asset::Comments'), 'dummy object does the right role';
+$dummy->comments([{ television => 'drop', misdemeanor => 'felony', }]);
+$dummy->write();
+
+my $json = $session->db->quickScalar('select comments from assetAspectComments where assetId=?', [$dummy->assetId]);
+like $json, qr/"television":"drop"/, 'checking serialize to json in the db';
+
+my $dummy2 = $dummy->cloneFromDb();
+cmp_deeply(
+    $dummy2->comments(),
+    [ { television => 'drop', misdemeanor => 'felony', }],
+    'checking JSON and deserialize from db'
+);
+
+done_testing();
+
+#----------------------------------------------------------------------------
+# Cleanup
+END {
+    $session->db->dbh->do('drop table if exists dummyTable');
+}
+#vim:ft=perl