Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

make cleanup non UNIX dependent

svn path=/bioperl-live/branches/branch-1-0-0/; revision=3752
  • Loading branch information...
commit 461c5e73743024050e94c7c8d5b29458188ea7c9 1 parent c73570a
@hyphaltip hyphaltip authored
Showing with 6 additions and 12 deletions.
  1. +6 −12 t/flat.t
View
18 t/flat.t
@@ -24,20 +24,11 @@ BEGIN {
$NUMTESTS = 7;
plan tests => $NUMTESTS;
- eval { require 'IO/String.pm' };
- if( $@ ) {
- print STDERR "IO::String not installed. This means the Bio::DB::* modules are not usable. Skipping tests.\n";
- for( 1..$NUMTESTS ) {
- skip(1,"IO::String not installed. This means the Bio::DB::* modules are not usable. Skipping tests");
- }
- $error = 1;
- }
}
if( $error == 1 ) {
exit(0);
}
-
my $testnum;
my $verbose = 0;
@@ -50,6 +41,7 @@ my $verbose = 0;
#First of all we need to create an flat db
use Bio::DB::Flat;
+use Bio::Root::IO;
use Cwd;
my $cd = cwd();
my $tmpdir = $cd."/t/tmp";
@@ -96,8 +88,10 @@ ok($seq->length,12850);
sub maketmpdir {
- system("mkdir $tmpdir");
+ mkdir $tmpdir;
}
-sub cleanup {
- system("rm -rf $tmpdir");
+sub cleanup {
+ eval {
+ Bio::Root::IO->rmtree($tmpdir);
+ };
}
Please sign in to comment.
Something went wrong with that request. Please try again.