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

Update Session/Style for using Plack for capturing output.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-17 09:17:10 -07:00
parent 3593001869
commit f0e0ed328b
1 changed files with 5 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

23
t/Session/Style.t
View file

@ -28,8 +28,6 @@ my $session = WebGUI::Test->session;
my $style = $session->style; my $style = $session->style;
my $crappyPerl = $^V lt v5.8;
isa_ok($style, 'WebGUI::Session::Style', 'session has correct object type'); isa_ok($style, 'WebGUI::Session::Style', 'session has correct object type');
#################################################### ####################################################
@ -451,16 +449,10 @@ sub fetchMultipleMetas {
sub sendImmediate { sub sendImmediate {
my ($style, $action, $output, $comment) = @_; my ($style, $action, $output, $comment) = @_;
SKIP: { $style->sent(1);
skip "You have an old perl", 1 if $crappyPerl; $style->$action($output);
my $request = $style->session->request; like($style->session->response->body->[-1], qr/$output/, $comment);
$request->clear_output; $style->sent(0);
$style->sent(1);
$style->$action($output);
like($request->get_output, qr/$output/, $comment);
$style->sent(0);
}
} }
#like($buffer, qr/$output/, ); #like($buffer, qr/$output/, );
@ -555,11 +547,6 @@ sub setup_assets {
}; };
my $snippet = $daddySnippet->addChild($properties, $properties->{id}); my $snippet = $daddySnippet->addChild($properties, $properties->{id});
$versionTag->commit; $versionTag->commit;
WebGUI::Test->addToCleanup($versionTag);
return ($versionTag, $templates, $asset, $snippet); return ($versionTag, $templates, $asset, $snippet);
} }
END {
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
$versionTag->rollback;
}
}