Add tests
Change-Id: I9395db27c7c4f40ea1f27b189471ecef6925ef6d
diff --git a/t/test.t b/t/test.t
new file mode 100644
index 0000000..5ee9c58
--- /dev/null
+++ b/t/test.t
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+use Test::More;
+use Test::Script;
+
+script_runs([ 'script/korapxml2conllu', '-h' ], { exit => 255 });
+script_stderr_like "Description", "Can print help message";
+
+for my $morpho_fname (glob("t/data/*\.*\.zip")) {
+ my $base_fname = $morpho_fname =~ s/(.*)\..*\.zip/$1.zip/r;
+ die "cannot find $base_fname" if (!-e $base_fname);
+
+ my $conllu_fname = $base_fname =~ s/(.*)\.zip/$1.conllu/r;
+ die "cannot find $conllu_fname" if (!-e $conllu_fname);
+
+ my $expected;
+ open(my $fh, '<', $conllu_fname) or die "cannot open file $conllu_fname"; {
+ local $/;
+ $expected = <$fh>;
+ }
+ close($fh);
+ script_runs([ 'script/korapxml2conllu', $morpho_fname ], "Runs with input");
+ script_stdout_is $expected, "Converts $morpho_fname correctly";
+}
+done_testing;
\ No newline at end of file