Tests for properties that should be returned by get, and some that should not. Done by hash inspection.

This commit is contained in:
Colin Kuskie 2010-06-02 16:37:00 -07:00
parent 483acbc382
commit 74b500e443

View file

@ -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;