diff --git a/t/script/single.t b/t/script/single.t
index 54ae7a1..f227393 100644
--- a/t/script/single.t
+++ b/t/script/single.t
@@ -271,32 +271,34 @@
 
 # Koral version
 $input = catdir($f, '..', 'real', 'corpus', 'NKJP', 'NKJP', 'KOT');
-$call = join(
-  ' ',
-  'perl', $script,
-  '--input' => $input,
-  '--output' => $output,
-  '--cache' => $cache,
-  '-t' => 'NKJP#Morpho',
-  '-l' => 'INFO',
-  '--lang' => 'en'
-);
 
-$call .= ' -w ';
+if (-f $input) {
+  $call = join(
+    ' ',
+    'perl', $script,
+    '--input' => $input,
+    '--output' => $output,
+    '--cache' => $cache,
+    '-t' => 'NKJP#Morpho',
+    '-l' => 'INFO',
+    '--lang' => 'en'
+  );
 
-stderr_like(
-  sub {
-    system($call);
-  },
-  qr!The code took!,
-  $call
-);
+  $call .= ' -w ';
 
-ok(-f $output, 'Output does exist');
-ok(($file = Mojo::File->new($output)->slurp), 'Slurp data');
-ok(($json = decode_json $file), 'decode json');
-is($json->{corpusTitle}, 'National Corpus of Polish -- the 1 million word subcorpus', 'Title');
+  stderr_like(
+    sub {
+      system($call);
+    },
+    qr!The code took!,
+    $call
+  );
 
+  ok(-f $output, 'Output does exist');
+  ok(($file = Mojo::File->new($output)->slurp), 'Slurp data');
+  ok(($json = decode_json $file), 'decode json');
+  is($json->{corpusTitle}, 'National Corpus of Polish -- the 1 million word subcorpus', 'Title');
+};