Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
ebe4d0b6
Commit
ebe4d0b6
authored
Sep 07, 2018
by
Matthieu Muffato
Browse files
Forgot to fix these two chdir
parent
ff54bf11
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
0 deletions
+6
-0
t/01.utils/system_cmd.t
t/01.utils/system_cmd.t
+4
-0
t/05.runnabledb/fastafactory.t
t/05.runnabledb/fastafactory.t
+2
-0
No files found.
t/01.utils/system_cmd.t
View file @
ebe4d0b6
...
...
@@ -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
();
t/05.runnabledb/fastafactory.t
View file @
ebe4d0b6
...
...
@@ -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
();
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment