Next Program Repair Shop 224

Automatic Testing

        perl extract1.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 © 2002 M. J. Dominus