Introduce POD documentation and add license file
Change-Id: Icebd05c8776c29a1ba0eb583e9523148379757cd
diff --git a/t/script.t b/t/script.t
index 3f9f8e9..fcdd1da 100644
--- a/t/script.t
+++ b/t/script.t
@@ -17,12 +17,19 @@
my $script = catfile($f, '..', 'script', 'tei2korapxml');
ok(-f $script, 'Script found');
-stderr_is(
+stdout_like(
sub { system('perl', $script, '--help') },
- "This program is called from inside another script.\n",
+ qr!This\s*program\s*is\s*usually\s*called\s*from\s*inside\s*another\s*script\.!,
'Help'
);
+stdout_like(
+ sub { system('perl', $script, '--version') },
+ qr!tei2korapxml - v\d+?\.\d+?!,
+ 'Version'
+);
+
+
# Load example file
my $file = catfile($f, 'data', 'goe_sample.i5.xml');
my $outzip = tmpnam();
@@ -105,6 +112,4 @@
xml_is($struct_xml, '//*[name()="span" and @id="s3"]//*[@name="type"]', 'Autobiographie', 'text content');
-
-
done_testing;