diff --git a/t/script.t b/t/script.t
new file mode 100644
index 0000000..32e1267
--- /dev/null
+++ b/t/script.t
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use File::Basename 'dirname';
+use File::Spec::Functions qw/catfile/;
+
+use Test::More;
+use Test::Output;
+
+my $f = dirname(__FILE__);
+my $script = catfile($f, '..', 'script', 'tei2korapxml');
+ok(-f $script, 'Script found');
+
+stderr_is(
+  sub { system('perl', $script, '--help') },
+  "This program is called from inside another script.\n",
+  'Help'
+);
+
+
+done_testing;