File: cgi_reset.t

package info (click to toggle)
speedy-cgi-perl 2.22-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,128 kB
  • ctags: 890
  • sloc: ansic: 4,487; sh: 1,105; perl: 945; makefile: 89
file content (28 lines) | stat: -rw-r--r-- 564 bytes parent folder | download | duplicates (4) 
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
 
# Make sure CGI's globals are reset between runs

if (!eval {require CGI}) {
    print "1..0  # Skipped: CGI module is not installed\n";
    exit(0);
}

print "1..1\n";

sub doit { my $pval = shift;
    my @return;

    if (open(F, "$ENV{SPEEDY} t/scripts/cgi_reset p=$pval |")) {
	@return = (map {chop; $_} <F>);
	close(F);
    }
    return @return;
}

my @v1 = &doit(20);
sleep 1;
my @v2 = &doit(30);

#print STDERR "v1=", join(',', @v1), " v2=", join(',', @v2), "\n";

print STDOUT ($v1[0] == 20 && $v2[0] == 30 && $v1[1] == $v2[1])
    ? "ok\n" : "not ok\n";