commit d5bb4346a9e4fb037624ddcb593cce2a0389e4cd
author Akron <nils@diewald-online.de> Mon Jun 19 11:50:49 2017 +0200
committer Akron <nils@diewald-online.de> Mon Jun 19 11:50:49 2017 +0200
tree 8db5638355532c2a9e0712fb6c19859e569d3b8d
parent e599379ba915b8a01c78a9734c367a21ebf954f6

Fixed permissions in test suite

Change-Id: I524ca573fd2fe61f8710126c43b417d0fde3068a

t/script/extract.t

diff --git a/t/script/extract.t b/t/script/extract.t
index 736647b..6420e52 100644
--- a/t/script/extract.t
+++ b/t/script/extract.t
@@ -3,7 +3,7 @@
 use warnings;
 use File::Basename 'dirname';
 use File::Spec::Functions qw/catdir catfile/;
-use File::Temp qw/tempdir/;
+use File::Temp qw/:POSIX tempdir/;
 use Mojo::Util qw/slurp/;
 use Mojo::JSON qw/decode_json/;
 use IO::Uncompress::Gunzip;
@@ -41,11 +41,14 @@
 my $output = tempdir(CLEANUP => 1);
 ok(-d $output, 'Output directory exists');
 
+my $cache = tmpnam();
+
 $call = join(
   ' ',
   'perl', $script,
   'extract',
   '--input' => $input,
+  '--cache' => $cache,
   '--output' => $output,
 );
 
@@ -80,6 +83,7 @@
   'extract',
   '--input' => $input,
   '--output' => $output2,
+  '--cache' => $cache,
   '-sg' => 'TEST/BSP/4'
 );
 
@@ -118,6 +122,7 @@
   'extract',
   '--input' => $input_rei,
   '--output' => $output2,
+  '--cache' => $cache,
   '-sg' => 'REI/BNG'
 );
 
@@ -154,6 +159,7 @@
   'extract',
   '--input' => $input_rei,
   '--output' => $output2,
+  '--cache' => $cache,
   '-sg' => 'REI/BN*'
 );
 
@@ -229,6 +235,7 @@
   'extract',
   '--input' => $input_quotes,
   '--output' => $output2,
+  '--cache' => $cache,
   '-sg' => '"TEST/BSP \"Example\"/1"'
 );