Commit ebe4d0b6 authored by Matthieu Muffato's avatar Matthieu Muffato
Browse files

Forgot to fix these two chdir

parent ff54bf11
......@@ -17,6 +17,7 @@
use strict;
use warnings;
use Cwd;
use Test::More tests => 4;
use Data::Dumper;
use File::Temp qw{tempdir};
......@@ -27,6 +28,7 @@ BEGIN {
#########################
my $dir = tempdir CLEANUP => 1;
my $orig = Cwd::getcwd;
chdir $dir;
subtest 'The command line is given as a string' => sub
......@@ -53,4 +55,6 @@ subtest 'The command line is given as an arrayref and contains redirections / pi
is_deeply([join_command_args(["ls", "|", "cat", ">", "file space"])], [1, "ls | cat > 'file space'"], "Array with a pipe and a redirection");
};
chdir $orig;
done_testing();
......@@ -29,6 +29,7 @@ use Bio::EnsEMBL::Hive::Utils::Test qw(standaloneJob);
my $inputfile = File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ).'/input_fasta.fa';
my $dir = tempdir CLEANUP => 1;
my $orig = Cwd::getcwd;
chdir $dir;
standaloneJob(
......@@ -217,5 +218,6 @@ foreach my $file(@all_files) {
is((stat($file))[7], $exp_size, "file '$file' has expected file size ($exp_size)");
}
chdir $orig;
done_testing();
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment