root/branches/newmole/tsuite/clean_tsuite.pl

#!/usr/bin/perl

# This perl script cleans out the test suite after a test run, it will
# only leave files that are part of the official distribution and the
# cloudy executable (with a name ending in .exe) if that was present!
#
# Peter van Hoof

if( -e "./auto/clean_tsuite.pl" ) {
    system "cd auto ; ./clean_tsuite.pl";
}
else {
    die "./auto/clean_tsuite.pl not found!";
}
if( -e "./slow/clean_tsuite.pl" ) {
    system "cd slow ; ./clean_tsuite.pl";
}
else {
    die "./slow/clean_tsuite.pl not found!";
}
unlink "Makefile";