Next Automated Testing 25

Simple test example

        perl extract.pl
        mv OUT.out SAMPLE-OUTPUT
        #!/usr/bin/perl
        my $prog = shift || 'extract3.pl';
        chdir("/home/mjd/TPC/2002/Flags/extract") or die $!;
        system("perl $prog");
        system("cmp -s SAMPLE-OUTPUT OUT.out");
        print $? == 0 ? "ok\n" : "not ok\n";

Next Copyright © 2004 Mark Dominus