Tests for properties that should be returned by get, and some that should not. Done by hash inspection.
This commit is contained in:
parent
483acbc382
commit
74b500e443
1 changed files with 14 additions and 0 deletions
14
t/Asset.t
14
t/Asset.t
|
|
@ -128,6 +128,20 @@ my $session = WebGUI::Test->session;
|
|||
|
||||
}
|
||||
|
||||
{
|
||||
note "get, specific properties";
|
||||
my $asset = WebGUI::Asset->new({
|
||||
session => $session,
|
||||
});
|
||||
my $properties = $asset->get();
|
||||
ok !exists $properties->{session}, 'no session';
|
||||
ok exists $properties->{keywords}, 'keywords'; ##Test for function later
|
||||
ok exists $properties->{assetId}, 'assetId';
|
||||
ok exists $properties->{revisionDate}, 'assetId';
|
||||
ok exists $properties->{parentId}, 'parentId';
|
||||
ok exists $properties->{lineage}, 'lineage';
|
||||
}
|
||||
|
||||
{
|
||||
note "getClassById";
|
||||
my $class;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue