File: begin_block.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 (17 lines) | stat: -rw-r--r-- 385 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 

#
# Bug in 2.02 and earlier meant things like i_am_speedy couldn't be called
# from within a BEGIN block.
#

print "1..2\n";

use Config qw(%Config);

sub am_speedy { my $prog = shift;
    my $v = `$prog t/scripts/begin_block`;
    return $v ne '' && $v > 0;
}

print &am_speedy($Config{perlpath}) ? "not ok\n" : "ok\n";
print &am_speedy($ENV{SPEEDY})      ? "ok\n"     : "not ok\n";