1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self(
GlobalPackage => "Test",
UniquePackages => 1,
UseStrict => 0,
Debug => 3,
NoState => 1,
);
__END__
<%
$Test::t->eok(! $t, "\$t defined in this namespace");
$Response->Include(\"\n<\% \$var = 1; %\>\n");
$Test::t->eok(!$var, "unique namespace script and include");
$Test::t->eok($Test::var, "unique namespace script and include");
my @compile_keys = keys %Apache::ASP::CompiledIncludes;
$Test::t->eok(grep(/Test::.+::/, @compile_keys) == 1);
$Test::t->eok(grep(/Test::/, @compile_keys) == 1);
$Response->Include("unique_packages.inc");
@compile_keys = keys %Apache::ASP::CompiledIncludes;
$Test::t->eok(grep(/Test::.+::/, @compile_keys) == 1);
$Test::t->eok(grep(/Test::/, @compile_keys) == 2);
# run test again to make sure caching worked
$Response->Include("unique_packages.inc");
@compile_keys = keys %Apache::ASP::CompiledIncludes;
$Test::t->eok(grep(/Test::.+::/, @compile_keys) == 1);
$Test::t->eok(grep(/Test::/, @compile_keys) == 2);
%>
|
