1use Apache::ASP::CGI;
2&Apache::ASP::CGI::do_self('NoState' => 1);
3
4__END__
5
6<% use lib '.';	use T;	$t =T->new(); %>
7
8<%
9
10use vars qw($ok);
11
12$ok = 0;
13my $script = "<\% \$ok++; %\>";
14$Response->Include(\$script);
15$t->eok($ok == 1, "Could not increment \$ok");
16
17$script = "<\% my \$ok = 'ok'; %\><\%= \$ok %\>";
18my $out = $Response->TrapInclude(\$script);
19$t->eok($$out eq 'ok', "Could not print 'ok' in runtime TrapInclude()");
20
21%>
22