unit_tests: Add unit tests for KTAP parser

Two files with examplary output are added, one with version and plan and
the other one without version. Examples contain the group of tests with pass,
fail and skip statuses

Author: schlad

t/30-test_parser.t

@@ -16,6 +16,7 @@ use OpenQA::Parser::Format::LTP;
 use OpenQA::Parser::Format::XUnit;
 use OpenQA::Parser::Format::TAP;
 use OpenQA::Parser::Format::IPA;
+use OpenQA::Parser::Format::KTAP;
 use Mojo::File qw(path tempdir);
 use Mojo::JSON qw(decode_json encode_json);
 
@@ -959,6 +960,30 @@ subtest nested_parsers => sub {
     test_ltp_file_v2($final_data->results->first);
 };
 
+subtest ktap_parse => sub {
+
+    my $ktap_file = path($FindBin::Bin, "data")->child("ktap_correct.tap");
+
+    my $parser = OpenQA::Parser::Format::KTAP->new;
+    $parser->load($ktap_file);
+
+    is $parser->results->size, 4, 'Expected four test groups';
+
+    my $result0 = $parser->results->get(0);
+    is $result0->{name}, 'selftests: cgroup: test_core', 'The first test group has expected name';
+
+    is $result0->result, 'passed', 'Group result is passed';
+    is scalar @{$result0->details}, 12, 'Has 12 subtest details';
+    is $result0->details->[0]->{result}, 'ok', 'First subtest passed';
+    is $result0->details->[0]->{title}, 'test_cgcore_internal_process_constraint', 'First subtest has expected name';
+
+    my $result2 = $parser->results->get(2);
+    is $result2->result, 'fail', 'Group result is failed';
+
+    my $result3 = $parser->results->get(3);
+    is $result3->result, 'skip', 'Group result is skipped';
+};
+
 done_testing;
 
 package OpenQA::Parser::Format::Dummy {    # uncoverable statement

t/data/ktap_correct.tap

@@ -0,0 +1,45 @@
+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 enablednot 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
+not ok 10 selftests: cgroup: test_zswap # exit=1
+# overriding timeout to 300
+# selftests: cgroup: test_hugetlb_memcg
+# 1..0 # SKIP memory hugetlb accounting is disabled
+ok 5 selftests: cgroup: test_hugetlb_memcg # SKIP