view release on metacpan or  search on metacpan

t/include_runtime.t  view on Meta::CPAN

use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self('NoState' => 1);

__END__

<% use lib '.';	use T;	$t =T->new(); %>

<% 

use vars qw($ok);

$ok = 0;
my $script = "<\% \$ok++; %\>";
$Response->Include(\$script);
$t->eok($ok == 1, "Could not increment \$ok");

$script = "<\% my \$ok = 'ok'; %\><\%= \$ok %\>";
my $out = $Response->TrapInclude(\$script);
$t->eok($$out eq 'ok', "Could not print 'ok' in runtime TrapInclude()");

%>