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/archive.t

diff --git a/t/script/archive.t b/t/script/archive.t
index 69546c0..db4f856 100644
--- a/t/script/archive.t
+++ b/t/script/archive.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/;
 use Mojo::File;
 use Mojo::Util qw/quote/;
 use Mojo::JSON qw/decode_json/;
@@ -42,6 +42,9 @@
 my $output = File::Temp->newdir(CLEANUP => 0);
 $output->unlink_on_destroy(0);
 
+my $cache = tmpnam();
+
+
 ok(-d $output, 'Output directory exists');
 
 $call = join(
@@ -50,6 +53,7 @@
   'archive',
   '--input' => '' . $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'Base#tokens_aggr',
   '-m' => 'Sgbr'
 );
@@ -84,6 +88,7 @@
   'archive',
   '--input' => $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'Tree_Tagger#Tokens',
   '-j' => 4 # 4 jobs!
 );
@@ -135,7 +140,8 @@
 $call = join(
   ' ',
   'perl', $script,
-  '--input' => $input
+  '--input' => $input,
+  '--cache' => $cache
 );
 
 # Test without compression
@@ -153,6 +159,7 @@
   'archive',
   '--input' => $input_quotes,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'Base#tokens_aggr'
 );
 
@@ -177,6 +184,7 @@
   'archive',
   '--input' => $input_quotes,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'Base#tokens_aggr'
 );
 

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"'
 );
 

t/script/single.t

diff --git a/t/script/single.t b/t/script/single.t
index a1d6c58..24e2559 100644
--- a/t/script/single.t
+++ b/t/script/single.t
@@ -3,7 +3,7 @@
 use warnings;
 use File::Basename 'dirname';
 use File::Spec::Functions qw/catdir catfile/;
-use File::Temp qw/ :POSIX /;
+use File::Temp qw/:POSIX/;
 use Mojo::File;
 use Mojo::JSON qw/decode_json/;
 use IO::Uncompress::Gunzip;
@@ -19,6 +19,8 @@
 ok(-d $input, 'Input directory found');
 
 my $output = tmpnam();
+my $cache = tmpnam();
+
 
 ok(!-f $output, 'Output does not exist');
 
@@ -27,6 +29,7 @@
   'perl', $script,
   '--input' => $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'OpenNLP#Tokens',
   '-l' => 'INFO'
 );
@@ -94,6 +97,7 @@
   'perl', $script,
   '--input' => $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'CoreNLP#Tokens',
   '-s' => '#all',
   '-a' => 'DeReKo#Structure',
@@ -129,6 +133,7 @@
   'perl', $script,
   '--input' => $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'CoreNLP#Tokens',
   '-s' => '#all',
   '-a' => 'DeReKo#Structure',
@@ -170,6 +175,7 @@
   'perl', $script,
   '--input' => $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-m' => 'Sgbr',
   '-t' => 'Base#Tokens_aggr',
   '-l' => 'INFO'
@@ -219,6 +225,7 @@
   'perl', $script,
   '--input' => $input,
   '--output' => $output,
+  '--cache' => $cache,
   '-t' => 'base#tokens_aggr',
   '-bs' => 'DeReKo#Structure',
   '-bp' => 'DeReKo#Structure',