File: thread.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 (10 lines) | stat: -rw-r--r-- 278 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
 

my $x = `$ENV{SPEEDY} t/scripts/thread 1 2>/dev/null`;
if ($x =~ /ok/) {
    my $x = `$ENV{SPEEDY} t/scripts/thread`;
    print "1..1\n";
    my $ok = ($x eq "x\nx\n");
    print $ok ? "ok\n" : "not ok\n";
} else {
    print "1..0  # Skipped: Not running a threaded perl\n";
}