schlad is learning unit tests in perl

Author: schlad

t/30-test_parser.t

@@ -984,6 +984,23 @@ subtest ktap_parse => sub {
     is $result3->result, 'skip', 'Group result is skipped';
 };
 
+subtest 'ktap_parse_incorrect_file' => sub {
+    my $ktap_file = path($FindBin::Bin, "data")->child("ktap_incorrect.tap");
+
+    my $parser = OpenQA::Parser::Format::KTAP->new;
+    $parser->load($ktap_file);
+
+    is $parser->results->size, 3, 'Three test groups parsed (last one missing the final summary line)';
+
+    my $last = $parser->results->get(2);
+    is $last->{name}, 'selftests: cgroup: test_zswap', 'Last test group name is correct';
+    is scalar @{$last->details}, 7, 'Last group has 7 subtests';
+    is $last->details->[0]->{title}, 'test_zswap_usage', 'First subtest parsed correctly';
+    is $last->details->[-1]->{title}, 'test_no_invasive_cgroup_shrink', 'Last subtest parsed';
+    is $last->result, 'fail', 'Group result marked as fail (due to subtest failure)';
+};
+
+
 done_testing;
 
 package OpenQA::Parser::Format::Dummy {    # uncoverable statement

t/data/ktap_incorrect.tap

@@ -0,0 +1,41 @@
+TAP version 13
+1..13
+# overriding timeout to 300
+# selftests: cgroup: test_core
+# ok 1 test_cgcore_internal_process_constraint
+# ok 2 test_cgcore_top_down_constraint_enable
+# ok 3 test_cgcore_top_down_constraint_disable
+# ok 4 test_cgcore_no_internal_process_constraint_on_threads
+# ok 5 test_cgcore_parent_becomes_threaded
+# ok 6 test_cgcore_invalid_domain
+# ok 7 test_cgcore_populated
+# ok 8 test_cgcore_proc_migration
+# ok 9 test_cgcore_thread_migration
+# ok 10 test_cgcore_destroy
+# ok 11 test_cgcore_lesser_euid_open
+# ok 12 test_cgcore_lesser_ns_open
+ok 1 selftests: cgroup: test_core
+# overriding timeout to 300
+# selftests: cgroup: test_cpu
+# ok 1 test_cpucg_subtree_control
+# ok 2 test_cpucg_stats
+# ok 3 test_cpucg_nice
+# ok 4 test_cpucg_weight_overprovisioned
+# ok 5 test_cpucg_weight_underprovisioned
+# ok 6 test_cpucg_nested_weight_overprovisioned
+# ok 7 test_cpucg_nested_weight_underprovisioned
+# ok 8 test_cpucg_max
+# ok 9 test_cpucg_max_nested
+ok 2 selftests: cgroup: test_cpu
+# overriding timeout to 300
+# selftests: cgroup: test_zswap
+# # zswpout does not increase after test program
+# not ok 1 test_zswap_usage
+# ok 2 test_swapin_nozswap
+# # at least 24MB should be brought back from zswap
+# not ok 3 test_zswapin
+# # zswpwb_after is 0 while wb is enabled
+# not ok 4 test_zswap_writeback_enabled
+# not ok 5 test_zswap_writeback_disabled
+# not ok 6 test_no_kmem_bypass
+# not ok 7 test_no_invasive_cgroup_shrink