test inputless command behaviour

Start t00* by testing parameter handling.

diff --git a/barcat b/barcat
index a4ed12faa8b248923be9990d22b8962d67764a66..978a222aeac342f6d560e0a0ab405a3ed6b9c77f 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -6,7 +6,7 @@ use List::Util qw( min max sum );
 use open qw( :std :utf8 );
 use experimental qw( lexical_subs );
 
-our $VERSION = '1.04';
+our $VERSION = '1.05';
 
 use Getopt::Long '2.33', qw( :config gnu_getopt );
 sub podexit {

diff --git a/t/t0001-version_--version.in b/t/t0001-version_--version.in
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/t/t0001-version_--version.out b/t/t0001-version_--version.out
new file mode 100644 (file)
index 0000000..8f670b5
--- /dev/null
+++ b/t/t0001-version_--version.out
@@ -0,0 +1,2 @@
+./barcat version 1.05
+(Getopt::Long::GetOptions version 2.48; Perl version 5.24.1)

diff --git a/t/t0003-invalid_options_-aZ.in b/t/t0003-invalid_options_-aZ.in
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/t/t0003-invalid_options_-aZ.out b/t/t0003-invalid_options_-aZ.out
new file mode 100644 (file)
index 0000000..082a421
--- /dev/null
+++ b/t/t0003-invalid_options_-aZ.out
@@ -0,0 +1,2 @@
+Unknown option: a
+Unknown option: Z