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
|
#!/usr/local/bin/perl
use Apache::ASP::CGI;
use strict;
$SIG{__DIE__} = \&Carp::confess;
&Apache::ASP::CGI::do_self(
# Debug => -1
);
__END__
<%
for(1..10) { $Application->UnLock; }
$t->eok(sub { $Application->Lock }, '$Application->Lock');
$t->eok($Application->{Start}, 'Application_OnStart did not run');
my $count = 0;
$Application->{count} = 0;
for(1..3) {
$Application->{count}++;
$count++;
$t->eok($count == $Application->{count},
'failure to increment $Application->{count}');
}
$t->eok(sub { $Application->UnLock }, '$Application->UnLock');
#$t->eok($Application->SessionCount(), '$Application->SessionCount()');
$t->eok($Application->GetSession($Session->{SessionID}), '$Application->GetSession()');
%>
|
