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
|
use Apache::ASP::CGI::Test;
use lib qw(t .);
use T;
use strict;
use Cwd qw(cwd);
$SIG{__DIE__} = \&Carp::confess;
my $t = T->new;
my $cwd = cwd();
for my $test_num (1..2) {
chdir($cwd) || die("can't chdir to $cwd");
my $r = Apache::ASP::CGI::Test->init($cwd.'/t/same_name/test'.$test_num.'/test.asp');
my %config = (
NoState => 1,
GlobalPackage => 'SameName',
# Debug => -3,
);
for(keys %config) { $r->dir_config->set($_, $config{$_}); }
my $rv = Apache::ASP->handler($r);
$t->eok($r->test_body_out eq $test_num, "test $test_num output is: ".$r->test_body_out.", return value: $rv");
}
$t->done;
|
