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; |
1df8d179 |
15 | use Test::More tests => 3; |
45bc4d3a |
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'); |
1df8d179 |
22 | rmtree('dummy-install'); |
23 | ok(!-d 'dummy-install', 'dummy-install cleaned up'); |