Fixed permissions in test suite
Change-Id: I524ca573fd2fe61f8710126c43b417d0fde3068a
diff --git a/Changes b/Changes
index 28b58c3..d064d40 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+0.30 2017-06-19
+ - Fixed permission handling in test suite.
+ - Added preliminary DCK support.
+
0.29 2017-04-23
- support --to-tar flag.
diff --git a/Makefile.PL b/Makefile.PL
index 7eec5c1..af7b1d3 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -36,7 +36,7 @@
'utf8' => 0,
'bytes' => 0,
'Pod::Usage' => 0,
- 'Cache::FastMmap' => 1.40,
+ 'Cache::FastMmap' => 1.45,
'Sys::Info' => 0.78,
'Config::Simple' => 4.58,
'String::Random' => 0.29,
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'
);
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"'
);
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',