CPPUNIT输出以点击格式转换器答案

【问题标题】：CppUnit output to TAP format converterCPPUNIT输出以点击格式转换器
【发布时间】：2012-03-04 02:54:01
【问题描述】：

我寻求一个 perl 模块来将 CppUnit 输出转换为 TAP 格式。之后我想使用 prove 命令运行并检查测试。

【问题讨论】：

我什么都不知道，但 CppUnit 似乎正在使用 JUnit XML 输出。在寻找 JUnit-to-TAP 转换器时，您可能会更幸运。否则，您最好的选择可能是编写一个 CppUnit plugin 直接输出 TAP 而不是进行转换。
你应该看看 TAP::Harness::JUnit，它的代码可以帮助你编写反向转换器（它似乎不存在）。

【解决方案1】：

最近我正在从 junit xml 进行一些转换（虽然不是 TAP 格式）。使用 XML::Twig 模块很容易做到。您的代码应如下所示：

use XML::Twig;

my %hash;

my $twig = XML::Twig->new(
   twig_handlers => {
       testcase => sub { # this gets called per each testcase in XML
           my ($t, $e) = @_;
           my $testcase = $e->att("name");
           my $error = $e->field("error") || $e->field("failure");
           my $ok = defined $error ? "not ok" : "ok";
           # you may want to collect
           #   testcase name, result, error message, etc into hash
           $hash{$testcase}{result} = $ok;
           $hash{$testcase}{error}  = $error;
           # ...
       }
   }
);
$twig->parsefile("test.xml");
$twig->purge();

# Now XML processing is done, print hash out in TAP format:
print "1..", scalar(keys(%hash)), "\n";
foreach my $testcase (keys %hash) {
     # print out testcase result using info from hash
     # don't forget to add leading space for errors
     # ...
}

这个应该比较容易打磨成工作状态

【讨论】：