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

Fix caching a subroutine ref. Small test cleanups.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-03 16:56:52 -07:00
parent 95b6b66d69
commit 15faef5d01
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Asset/File/Image.t
View file

@ -31,7 +31,6 @@ use WebGUI::Form::File;
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;
use Data::Dumper; use Data::Dumper;
plan tests => 15;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
@ -106,7 +105,7 @@ $templateMock->set_isa('WebGUI::Asset::Template');
$templateMock->set_always('getId', $templateId); $templateMock->set_always('getId', $templateId);
$templateMock->set_true('prepare'); $templateMock->set_true('prepare');
my $templateVars; my $templateVars;
$templateMock->mock('process', sub { $templateVars = $_[1]; } ); $templateMock->mock('process', sub { $templateVars = $_[1]; return ''; } );
$asset->update({ $asset->update({
parameters => 'alt="alternate"', parameters => 'alt="alternate"',
@ -123,7 +122,9 @@ $asset->update({
} }
$versionTag->commit; $versionTag->commit;
addToCleanup($versionTag); WebGUI::Test->addToCleanup($versionTag);
done_testing();
sub isnt_array { sub isnt_array {
my ($a, $b) = @_; my ($a, $b) = @_;