diff --git a/t/03-report.t b/t/03-report.t index 531ddca4b35332184f2281407e6528913ed17deb..7464b40c97e35d89b1726ec4f6e721efa9118df9 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');