Added initial script test
Change-Id: I86e8df81d84e51644b73c36408acf1b6f6a7d4b5
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;