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

test fixes

Browse source
This commit is contained in:
Graham Knop 2007-09-12 21:43:48 +00:00
parent afdc412033
commit 16d47bd31b
2 changed files with 15 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -149,6 +149,7 @@ sub defaultViewForm {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 definition ( session, [definition] ) =head2 definition ( session, [definition] )
Returns an array reference of definitions. Adds tableName, className, properties to array definition. Returns an array reference of definitions. Adds tableName, className, properties to array definition.
@ -449,6 +450,7 @@ sub getFormUrl {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getListUrl( params ) =head2 getListUrl( params )
Get url of list of entries Get url of list of entries

27
t/Macro/Thumbnail.t
View file

@ -18,22 +18,21 @@ use WebGUI::Session;
use WebGUI::Image; use WebGUI::Image;
use WebGUI::Storage::Image; use WebGUI::Storage::Image;
my $graphicsPackage;
BEGIN {
if (eval { require Graphics::Magick; 1 }) {
$graphicsPackage = 'Graphics::Magick';
}
elsif (eval { require Image::Magick; 1 }) {
$graphicsPackage = 'Image::Magick';
}
else {
croak "You must have either Graphics::Magick or Image::Magick installed to run WebGUI.\n";
}
}
use Test::More; # increment this value for each test you create use Test::More; # increment this value for each test you create
use Test::Deep; use Test::Deep;
plan tests => 8; plan tests => 9;
my $graphicsPackage;
if (eval { require Graphics::Magick; 1 }) {
$graphicsPackage = 'Graphics::Magick';
}
elsif (eval { require Image::Magick; 1 }) {
$graphicsPackage = 'Image::Magick';
}
else {
die "Unable to load Graphics::Magick or Image::Magick!\n";
}
pass "Load $graphicsPackage";
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;