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:
parent
3a425f29bc
commit
a00d173fe6
3 changed files with 72 additions and 51 deletions
13
t/Asset.t
13
t/Asset.t
|
|
@ -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'
|
||||
);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue