13 lines
398 B
Perl
13 lines
398 B
Perl
use strict;
|
|
|
|
my $fail = 0;
|
|
|
|
system("dropdb -p 6433 hydra-test-suite") == 0 or $fail = 1;
|
|
system("pg_ctl -D postgres -w stop") == 0 or $fail = 1;
|
|
|
|
system("chmod -R a+w nix") == 0 or $fail = 1;
|
|
system("rm -rf postgres data nix git-repo hg-repo svn-repo svn-checkout svn-checkout-repo bzr-repo bzr-checkout-repo darcs-repo") == 0 or $fail = 1;
|
|
system("rm -f .*-state") == 0 or $fail = 1;
|
|
|
|
exit $fail;
|