Commit | Line | Data |
---|---|---|
45bc4d3a | 1 | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | |
4 | if( $ENV{PERL_CORE} ) { | |
5 | @INC = ('../lib', 'lib'); | |
6 | } | |
7 | else { | |
8 | unshift @INC, 't/lib'; | |
9 | } | |
10 | } | |
431b0fc4 | 11 | chdir($^O eq 'VMS' ? 'BFD_TEST_ROOT:[t]' : 't'); |
45bc4d3a | 12 | |
13 | ||
14 | use strict; | |
15 | use Test::More tests => 2; | |
16 | use File::Path; | |
17 | ||
18 | rmtree('Big-Dummy'); | |
19 | ok(!-d 'Big-Dummy', 'Big-Dummy cleaned up'); | |
20 | rmtree('Problem-Module'); | |
21 | ok(!-d 'Problem-Module', 'Problem-Module cleaned up'); |