1use Apache::ASP::CGI; 2&Apache::ASP::CGI::do_self('NoState' => 1, Debug => 0); 3 4__END__ 5 6<% use lib '.'; use T; $t =T->new(); %> 7<!--#include file="include_asp.inc"--> 8<% $Response->Include("include_asp.inc"); %> 9<% 10# normal shape of include command 11if('<!--#include file="include.inc"-->' =~ /^1/) { 12 $t->ok(); 13} else { 14 $t->not_ok; 15} 16#$Response->Debug($Server->{asp}); 17 18# should parse both in at once 19if('<!--#include file="include.inc"-->' =~ /^1/) { 20 $t->ok(); 21} else { 22 $t->not_ok; 23} 24 25 26# test again for multiple includes to mess 27# up the line numbering 28%><!--#include file="include_asp.inc"--><% 29 30#abnormal possible use of include command 31if( 32 '<!--#include 33 file = "include.inc" 34 -->' =~ /^1/) { 35 $t->ok(); 36} else { 37 $t->not_ok; 38} 39 40my $trapped = $Response->TrapInclude('include.inc'); 41$t->eok($$trapped eq '1', '$Response->TrapInclude()'); 42 43$Response->Include('include.inc'); 44my $ref = $Response->{BinaryRef}; 45$t->eok($$ref =~ /1/, '$Response->Include()'); 46$$ref =~ s/1//isg; 47 48# return values 49 50@rv = $Response->Include('include_return.inc'); 51$t->eok(@rv == 2 and $rv[0] == 1 and $rv[1] == 2, 'include return values'); 52 53if(-d '.') { # in case this is not true on some platforms 54 eval { $Response->Include('.'); }; 55 $t->eok($@ && ( $@ =~ /^no include \.dsfads/i ), "Error for include of directory"); 56} 57 58$t->done; 59%> 60 61