Add a test to make sure every property has a table defined in it. If you need an attribute without a table, use has.

This commit is contained in:
Colin Kuskie 2010-03-19 14:48:55 -07:00
parent e2033afbac
commit a874b0201e
2 changed files with 20 additions and 5 deletions

View file

@ -159,11 +159,6 @@ my $session = WebGUI::Test->session;
is $asset->title, 'Root', 'got the right asset';
}
{
note "uiLevel";
is +WebGUI::Asset->meta->uiLevel, 1, 'uiLevel: default for assets is 1';
}
{
note "write, update";
@ -301,3 +296,9 @@ my $session = WebGUI::Test->session;
is ($asset->keywords, 'chess set', 'set and get of keywords via direct accessor');
is ($asset->get('keywords'), 'chess set', 'via get method');
}
{
note "valid_parent_classes";
my $classes = WebGUI::Asset->valid_parent_classes;
cmp_deeply($classes, [qw/WebGUI::Asset/], 'Any asset okay');
}