1package Apache::ASP::CGI::Test;
2
3use Apache::ASP::CGI;
4@ISA = qw(Apache::ASP::CGI);
5
6use strict;
7
8sub init {
9    my $self = shift->SUPER::init(@_);
10    $self->OUT('');
11    $self;
12}
13
14sub print {
15    my $self = shift;
16    my $data = join('', map { ref($_) =~ /SCALAR/ ? $$_ : $_; } @_);
17    my $out = $self->OUT || '';
18    $self->OUT($out.$data);
19}
20
21sub test_header_out {
22    (shift->test_parse_out)[0];
23}
24
25sub test_body_out {
26    (shift->test_parse_out)[1];
27}
28
29sub test_parse_out {
30    my $self = shift;
31    my $out = $self->OUT;
32    if($out =~ /^(.*?)\s*\n\s*\n\s*(.*)$/s) {
33	my($header, $body) = ($1, $2);
34    } else {
35	($out, '');
36    }
37}
38
391;
40