diff --git a/t/script/single.t b/t/script/single.t
index cda1b57..0aec043 100644
--- a/t/script/single.t
+++ b/t/script/single.t
@@ -13,13 +13,6 @@
 
 my $f = dirname(__FILE__);
 my $script = catfile($f, '..', '..', 'script', 'korapxml2krill');
-ok(-f $script, 'Script found');
-
-stdout_like(
-  sub { system('perl', $script) },
-  qr!Usage.+?korapxml2krill!s,
-  'Usage output'
-);
 
 my $input = catdir($f, '..', 'annotation', 'corpus', 'doc', '0001');
 ok(-d $input, 'Input directory found');
@@ -127,12 +120,42 @@
 like($json->{data}->{text}, qr/^Zum letzten kulturellen/, 'Foundries');
 is($json->{data}->{stream}->[0]->[0], '-:tokens$<i>20', 'Tokens');
 
-# Test overwrite!!!
+
+# Check overwrite
+$call = join(
+  ' ',
+  'perl', $script,
+  '--input' => $input,
+  '--output' => $output,
+  '-t' => 'CoreNLP#Tokens',
+  '-s' => '#all',
+  '-a' => 'DeReKo#Structure',
+  '-a' => 'Mate#Dependency',
+  '-l' => 'DEBUG'
+);
+
+ok(-f $output, 'Output does exist');
+stderr_like(
+  sub {
+    system($call);
+  },
+  qr!already exists!,
+  $call
+);
+
+$call .= ' -w ';
+
+stderr_unlike(
+  sub {
+    system($call);
+  },
+  qr!already exists!,
+  $call
+);
+
+
 # Test meta
 # Test sigle!
-# Test help
-# Test version
-
 
 done_testing;
 __END__
diff --git a/t/script/usage.t b/t/script/usage.t
new file mode 100644
index 0000000..170eccb
--- /dev/null
+++ b/t/script/usage.t
@@ -0,0 +1,37 @@
+#/usr/bin/env perl
+use strict;
+use warnings;
+use File::Basename 'dirname';
+use File::Spec::Functions qw/catdir catfile/;
+use File::Temp qw/ :POSIX /;
+use Mojo::Util qw/slurp/;
+use Mojo::JSON qw/decode_json/;
+use IO::Uncompress::Gunzip;
+use Test::More;
+use Test::Output;
+use Data::Dumper;
+
+my $f = dirname(__FILE__);
+my $script = catfile($f, '..', '..', 'script', 'korapxml2krill');
+ok(-f $script, 'Script found');
+
+stdout_like(
+  sub { system('perl', $script) },
+  qr!Usage.+?korapxml2krill!s,
+  'Usage output'
+);
+
+stdout_like(
+  sub { system('perl', $script, '--help') },
+  qr!Usage.+?korapxml2krill!s,
+  'Usage output'
+);
+
+stdout_like(
+  sub { system('perl', $script, '--version') },
+  qr!Version \d+\.\d+!s,
+  'Version output'
+);
+
+done_testing;
+__END__