fix uiLevel tests, and loading multiple sessions.

This commit is contained in:
Colin Kuskie 2010-03-09 14:57:58 -08:00
parent 4beab182a5
commit ffe4e7fd37
13 changed files with 15 additions and 22 deletions

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
@ -23,7 +22,7 @@ sub class {
return qw/WebGUI::Asset::Redirect/;
}
sub uiLevel {
sub assetUiLevel {
return 9;
}

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
@ -23,7 +22,7 @@ sub class {
return qw/WebGUI::Asset::RichEdit/;
}
sub uiLevel {
sub assetUiLevel {
return 5;
}

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
@ -23,7 +22,7 @@ sub class {
return qw/WebGUI::Asset::Snippet/;
}
sub uiLevel {
sub assetUiLevel {
return 5;
}

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -13,7 +13,6 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;

View file

@ -127,7 +127,7 @@ sub assetId : Test(4) {
is $asset->assetId, $asset->getId, '... getId is an alias for assetId';
$asset = $test->class->new({ session => $session, assetId => '' });
ok $session->id->valid($asset->assetId), 'blank assetid in constructor causes an assetId to be generated';
ok !$session->id->valid($asset->assetId), 'blank assetId in constructor is okay??';
}
sub class_dispatch : Test(2) {