Added test for script execution
Change-Id: I9bf622fb9b224e72d6d560cb8a183c7979ebab88
diff --git a/t/script.t b/t/script.t
new file mode 100644
index 0000000..5122b63
--- /dev/null
+++ b/t/script.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+use File::Basename 'dirname';
+use File::Spec::Functions qw/catfile/;
+use Test::Output;
+use FindBin;
+
+my $script = catfile(dirname(__FILE__), '..', 'script', 'korapxml2krill');
+
+stdout_like(
+ sub { system('perl', $script) },
+ qr!Usage.+?korapxml2krill!s,
+ 'Usage output'
+);
+
+done_testing;
+__END__