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";
|
note "getClassById";
|
||||||
my $class;
|
my $class;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue