From d3a1ebfc41e50f4ae32290be91c490a52965149c Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Fri, 31 May 2024 15:34:07 +0200
Subject: [PATCH] - fixed testcase naming - added tests for --with-ldp and
 --with-filetypes

---
 t/03-report.t | 31 +++++++++++++++++++++++++++----
 1 file changed, 27 insertions(+), 4 deletions(-)

diff --git a/t/03-report.t b/t/03-report.t
index 531ddca..7464b40 100644
--- a/t/03-report.t
+++ b/t/03-report.t
@@ -1,6 +1,6 @@
 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(
@@ -48,9 +48,32 @@ is($? >> 8, 0, 'ta-tool report, base, exit status');
 $testapp->run(args =>'report --output-as-csv');
 #say "STDOUT:",$testapp->stdout;
 #say "STDERR:",$testapp->stderr;
-like($testapp->stdout, qr/^"set","subset","timespan_from","timespan_to","aip_state","filter","flavour","value"\n"([a-z]+)",,"\d{4}-\d{2}-\d{2}","\d{4}-\d{2}-\d{2}","([a-z ]+)",,"([a-z ]+)",\d+(\.\d+)?\n/s, 'ta-tool report, base, stdout');
-like($testapp->stderr, qr/^reporting for period/s, 'ta-tool report, base, stderr');
-is($? >> 8, 0, 'ta-tool report, base, exit status');
+like($testapp->stdout, qr/^"set","subset","timespan_from","timespan_to","aip_state","filter","flavour","value"\n"([a-z]+)",,"\d{4}-\d{2}-\d{2}","\d{4}-\d{2}-\d{2}","([a-z ]+)",,"([a-z ]+)",\d+(\.\d+)?\n/s, 'ta-tool report, base as CSV, stdout');
+like($testapp->stderr, qr/^reporting for period/s, 'ta-tool report, base as CSV, stderr');
+is($? >> 8, 0, 'ta-tool report, base as CSV, exit status');
+
+$testapp->run(args =>'report --output-as-csv --with-ldp');
+#say "STDOUT:",$testapp->stdout;
+#say "STDERR:",$testapp->stderr;
+like($testapp->stdout, qr/^"set","subset","timespan_from","timespan_to","aip_state","filter","flavour","value"\n.*LDP/s, 'ta-tool report, with ldp, stdout');
+like($testapp->stderr, qr/^reporting for period.*HINT:.*with-ldp/s, 'ta-tool report, with ldp, stderr');
+is($? >> 8, 0, 'ta-tool report, with ldp, exit status');
+
+$testapp->run(args =>'report --output-as-csv --with-filetypes');
+#say "STDOUT:",$testapp->stdout;
+#say "STDERR:",$testapp->stderr;
+like($testapp->stdout, qr/^"set","subset","timespan_from","timespan_to","aip_state","filter","flavour","value"\n.*pronom/s, 'ta-tool report, with filetype, stdout');
+like($testapp->stderr, qr/^reporting for period.*HINT:.*with-filetype/s, 'ta-tool report, with filetype, stderr');
+is($? >> 8, 0, 'ta-tool report, with filetype, exit status');
+
+$testapp->run(args =>'report --output-as-csv --with-ldp --with-filetypes');
+#say "STDOUT:",$testapp->stdout;
+#say "STDERR:",$testapp->stderr;
+like($testapp->stdout, qr/^"set","subset","timespan_from","timespan_to","aip_state","filter","flavour","value"\n.*LDP/s, 'ta-tool report, with ldp and filetypes, stdout');
+like($testapp->stderr, qr/^reporting for period.*HINT:.*with-ldp.*with-filetype/s, 'ta-tool report, with ldp and filetypes, stderr');
+is($? >> 8, 0, 'ta-tool report, with ldp and filetypes, exit status');
+
+
 
 note "overrides";
 $testapp->run(args =>'report --elasticsearch-host localhost');
-- 
GitLab