lib/ExtUtils/t/zz_cleanup_dummy.t

   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 }
  11 chdir($^O eq 'VMS' ? 'BFD_TEST_ROOT:[t]' : 't');
  12
  13
  14 use strict;
  15 use Test::More tests => 3;
  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');
  22 rmtree('dummy-install');
  23 ok(!-d 'dummy-install', 'dummy-install cleaned up');