Next Automated Testing 27

Test::Harness

        1..34
        ok 1
        ok 2
        not ok 3
        ok 4
        ...
        ok 34
        #!perl
        no punctuation;
        print "1..14161\n";
        for (1..14161) {
          print "ok $_\n";
        }
        # Now test the widget unification feature
        ok 4        # null widget works OK
        not ok 3    # expected "37", got "119"
        # Now test whether it works when the input is a pipe
        ok 12       # skipped - Windows systems have no pipes        
        ok 13       # skipped - Windows systems have no pipes        

Next Copyright © 2004 Mark Dominus