File: 00stevens.t

package info (click to toggle)
pperl 0.25-5
  • links: PTS
  • area: main
  • in suites: lenny, squeeze
  • size: 296 kB
  • ctags: 40
  • sloc: perl: 868; ansic: 666; makefile: 60; sh: 23
file content (14 lines) | stat: -rw-r--r-- 214 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!perl -w
use strict;
use Test;
BEGIN { plan tests => 1 }

# test enough of the Stevens lib is working

my $foo;
open FOO, "t/stevens.plx";
while(<FOO>) {
    $foo .= "child: $_";
}

ok(`$^X t/stevens.plx`, $foo);