File: include_runtime.t

package info (click to toggle)
libapache-asp-perl 2.62-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 4,108 kB
  • ctags: 830
  • sloc: perl: 6,033; php: 417; sh: 65; lisp: 22; makefile: 10
file content (21 lines) | stat: -rw-r--r-- 431 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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()");

%>