perl - 如何重定向 Perl 的 Test::Simple 的测试输出？

Question

我正在编写一个简单的测试自动化套件，它会告诉我通过和失败的测试用例数量。下面是一个描述代码的简单示例:

#! /usr/bin/perl -w

use Test::Simple tests => 1;

print "Enter the name of the Book: ";
$name = <STDIN>;
chomp($name);

print "You have entered $name \n";

$ori_name = "TextBook";

chomp($ori_name);

ok($name eq $ori_name, 'Checking name');

输入'TextBox'作为输入后得到的输出如下:

1..1
Enter the name of the Book: TextBook
You have entered TextBook
ok 1 - Checking name

我想将相同的输出重定向到一个看起来像

的文件

ok 1 - Checking name

如果我添加以下子程序

log_message (ok ($name eq $ori_name, 'Checking name');


sub log_message
{
    my $message = @_;

    open(DA, '>>PJ.txt') or die "Couldn't open file PJ.txt";

    print DA $message;

    close (DA);
}

然后我得到 '1' 或 '0' - 不是我想要的文本。

我应该如何继续，以便我的代码结果重定向到一个应该具有以下格式的文件:

ok 1 - Checking name

ok 2 - Checking others

等等？

Answer 1

Test::Simple是 Test::Builder::Module子类；您可以通过获取 Test::Builder 来更改输出的目的地对象( $TestBuilder = Test::Simple::->builder() )，然后调用其输出方法(参见 Test::Builder Output )。