- added help checks

t/03-count.t

 use v5.36;
 use Test::Cmd;
-use Test::More tests =>18;
+use Test::More tests =>27;
 use Path::Tiny;
 my $perl = $^X;
 my $testapp = Test::Cmd->new(
@@ -27,6 +27,15 @@ password: 839852bed005a7f1237578a6ac1197c142f7d0dd58bb248446dc7849d4bf770902e7f9
 user: lza
 _CFG_
 # tests
+note "help check";
+foreach my $param ("help count", "count -h", "count --help") {
+    $testapp->run(args => $param);
+    #say "STDOUT:",$testapp->stdout;
+    #say "STDERR:",$testapp->stderr;
+    like($testapp->stdout, qr/this usage screen/, "ta-tool $param, stdout");
+    like($testapp->stderr, qr/^$/, "ta-tool $param, stderr");
+    is($? >> 8, 0, "ta-tool $param, exit status");
+}
 
 note "check cli params";
 $testapp->run(args =>'count --lzaid SLUB:LZA:goobi:1 --debug');

t/03-report.t

 
 use v5.36;
 use Test::Cmd;
-use Test::More tests =>6;
+use Test::More tests =>15;
 use Path::Tiny;
 my $perl = $^X;
 my $testapp = Test::Cmd->new(
@@ -28,6 +28,16 @@ password: 839852bed005a7f1237578a6ac1197c142f7d0dd58bb248446dc7849d4bf770902e7f9
 user: lza
 _CFG_
 # tests
+note "help check";
+foreach my $param ("help report", "report -h", "report --help") {
+    $testapp->run(args => $param);
+    #say "STDOUT:",$testapp->stdout;
+    #say "STDERR:",$testapp->stderr;
+    like($testapp->stdout, qr/this usage screen/, "ta-tool $param, stdout");
+    like($testapp->stderr, qr/^$/, "ta-tool $param, stderr");
+    is($? >> 8, 0, "ta-tool $param, exit status");
+}
+
 note "check cli params";
 $testapp->run(args =>'report');
 #say "STDOUT:",$testapp->stdout;

t/03-search.t

 use v5.36;
 use Test::Cmd;
-use Test::More tests =>99;
+use Test::More tests =>108;
 use Path::Tiny;
 my $perl = $^X;
 my $testapp = Test::Cmd->new(
@@ -27,6 +27,16 @@ password: 839852bed005a7f1237578a6ac1197c142f7d0dd58bb248446dc7849d4bf770902e7f9
 user: lza
 _CFG_
 # tests
+note "help check";
+foreach my $param ("help search", "search -h", "search --help") {
+    $testapp->run(args => $param);
+    #say "STDOUT:",$testapp->stdout;
+    #say "STDERR:",$testapp->stderr;
+    like($testapp->stdout, qr/this usage screen/, "ta-tool $param, stdout");
+    like($testapp->stderr, qr/^$/, "ta-tool $param, stderr");
+    is($? >> 8, 0, "ta-tool $param, exit status");
+}
+
 note "check cli params";
 $testapp->run(args =>'search --lzaid SLUB:LZA:goobi:1 --debug');
 #say "STDOUT:",$testapp->stdout;