Rough conversion of Shortcut to Moose, so Asset cleanup works. Fix a bug in getLineage. Update tests for get_tables.

This commit is contained in:
Colin Kuskie 2010-01-20 19:12:04 -08:00
parent 3a425f29bc
commit a00d173fe6
3 changed files with 72 additions and 51 deletions

View file

@ -20,7 +20,7 @@ use Test::More;
use Test::Deep;
use Test::Exception;
plan tests => 49;
plan tests => 50;
my $session = WebGUI::Test->session;
@ -251,3 +251,14 @@ my $session = WebGUI::Test->session;
$session->db->write("delete from asset where assetId like 'wg8TestAsset00000%'");
$session->db->write("delete from assetData where assetId like 'wg8TestAsset00000%'");
}
{
note "get_tables, with inheritance";
use WebGUI::Asset::Snippet;
my @tables = WebGUI::Asset::Snippet->meta->get_tables;
cmp_deeply(
\@tables,
[qw/assetData snippet/],
'get_tables works on inherited classes'
);
}