oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Begin Test::Class suite for Forms

Browse source
This commit is contained in:
Colin Kuskie 2010-09-20 15:58:05 -07:00
parent d3e83ba354
commit 1b2f92f38f
5 changed files with 120 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/tests/My/Test/Class.pm
View file

@ -25,7 +25,6 @@ use Test::Deep;
use Test::Exception;
use WebGUI::Test;
use WebGUI::Asset;
sub _00_init : Test(startup => 1) {
my $test = shift;
@ -33,9 +32,9 @@ sub _00_init : Test(startup => 1) {
$test->session($session);
my $class = ref $test;
$class =~ s/^Test:://;
return ('Not a WebGUI class') unless $class =~ /^WebGUI/;
return ($class . ' is not a WebGUI class') unless $class =~ /^WebGUI/;
$test->class($class);
lives_ok { WebGUI::Asset->loadModule($class); } "loaded module class $class";
use_ok $class, "loaded module class $class";
}
1