- Something
- Thursday, April 10th, 2008 at 3:50:31pm MDT
- diff --git a/t/Session/Output.t b/t/Session/Output.t
- index ec7c1bb..be3d992 100644
- --- a/t/Session/Output.t
- +++ b/t/Session/Output.t
- @@ -35,33 +35,31 @@ my $recentVersion = $^V gt v5.8;
- SKIP: {
- skip "You have an old perl", $skip_tests unless $recentVersion;
- - my $stdoutBuffer;
- - close STDOUT;
- - open STDOUT, '>', \$stdoutBuffer or die "Unable to tie STDOUT to a variable: $!\n";
- -
- my $otherHandleBuffer;
- open my $otherHandle, '>', \$otherHandleBuffer or die "Unable to create second filehandle: $!\n";
- - $output->setHandle(undef);
- + my $request = $session->request;
- +
- + $output->setHandle(undef);
- is($output->{_handle}, undef, 'setHandle: handle cleared');
- $output->print('Hello STDOUT');
- - is($stdoutBuffer, 'Hello STDOUT', 'print with no handle goes to STDOUT');
- + is($request->get_output, 'Hello STDOUT', 'print with no handle goes to STDOUT');
- $output->print(' more stuff');
- - is($stdoutBuffer, 'Hello STDOUT more stuff', 'print: tied variables accumulate');
- + is($request->get_output, 'Hello STDOUT more stuff', 'print: tied variables accumulate');
- $session->user({userId => 3});
- $output->print('^#;');
- - like($stdoutBuffer, qr/3\Z/, 'print: macro processing');
- + like($request->get_output, qr/3\Z/, 'print: macro processing');
- $output->print('^#;', 1);
- - like($stdoutBuffer, qr/\^#;\Z/, 'print: macro processing skipped');
- + like($request->get_output, qr/\^#;\Z/, 'print: macro processing skipped');
- $output->setHandle($otherHandle);
- $output->print('New content');
- is($otherHandleBuffer, 'New content', 'print: set to explicit handle');
- - unlike($stdoutBuffer, qr/New content\Z/, 'print: no leakage back to STDOUT');
- + unlike($request->get_output, qr/New content\Z/, 'print: no leakage back to STDOUT');
- }
- diff --git a/t/lib/WebGUI/PseudoRequest.pm b/t/lib/WebGUI/PseudoRequest.pm
- index fd5adbd..64ac756 100644
- --- a/t/lib/WebGUI/PseudoRequest.pm
- +++ b/t/lib/WebGUI/PseudoRequest.pm
- @@ -349,6 +349,26 @@ sub setup_param {
- #----------------------------------------------------------------------------
- +sub clear_output {
- + my $self = shift;
- + $self->{output} = '';
- +}
- +
- +sub get_output {
- + my $self = shift;
- + return $self->{output};
- +}
- +
- +sub print {
- + my $self = shift;
- + my $self->{output} ||= '';
- + for my $p (@_) {
- + $self->{output} .= $p;
- + }
- +}
- +
- +#----------------------------------------------------------------------------
- +
- =head2 protocol ( $value )
- Getter and setter for protocol. If $value is passed in, it will set the protocol of
advertising
Update the Post
Either update this post and resubmit it with changes, or make a new post.
You may also comment on this post.
Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.