From 3d2d4269158b9bddeb4c24cd4b69d5602b4b9668 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Mon, 9 Sep 2019 23:57:49 +0200 Subject: [PATCH] test inputless command behaviour Start t00* by testing parameter handling. --- barcat | 2 +- t/t0001-version_--version.in | 0 t/t0001-version_--version.out | 2 ++ t/t0003-invalid_options_-aZ.in | 0 t/t0003-invalid_options_-aZ.out | 2 ++ 5 files changed, 5 insertions(+), 1 deletion(-) create mode 100644 t/t0001-version_--version.in create mode 100644 t/t0001-version_--version.out create mode 100644 t/t0003-invalid_options_-aZ.in create mode 100644 t/t0003-invalid_options_-aZ.out diff --git a/barcat b/barcat index a4ed12f..978a222 100755 --- 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 index 0000000..e69de29 diff --git a/t/t0001-version_--version.out b/t/t0001-version_--version.out new file mode 100644 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 index 0000000..e69de29 diff --git a/t/t0003-invalid_options_-aZ.out b/t/t0003-invalid_options_-aZ.out new file mode 100644 index 0000000..082a421 --- /dev/null +++ b/t/t0003-invalid_options_-aZ.out @@ -0,0 +1,2 @@ +Unknown option: a +Unknown option: Z -- 2.30.0