unit_tests: Add unit tests for KTAP parser

Examplary output is added with group of tests with pass, fail and skip
statuses and proper assertions are added

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