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

fixing tests for new output method

Browse source
This commit is contained in:
Graham Knop 2008-04-10 22:15:15 +00:00
parent 74381281fa
commit d2116bf797
3 changed files with 31 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Session/Style.t
View file

@ -452,15 +452,12 @@ sub sendImmediate {
SKIP: {
skip "You have an old perl", 1 if $crappyPerl;
close STDOUT;
my $buffer;
open STDOUT, '>', \$buffer or die "Unable to point handle at variable: $!\n";
my $request = $style->session->request;
$request->clear_output;
$style->sent(1);
$style->$action($output);
like($buffer, qr/$output/, $comment);
like($request->get_output, qr/$output/, $comment);
$style->sent(0);
close STDOUT;
open STDOUT, '>-' or die "Unable to restore STDOUT: $!\n";
}
}