Question

我正在尝试测试以下方法的输出：

package ASC::Builder::Error;

sub new {

    my ($package, $first_param) = (shift, shift);


    if (ref $first_param eq 'HASH') {
        my %params = @_;
        return bless { message => $first_param->{message}, %params}, $package;
    }
    else {
        my %params = @_; 
        return bless {message => $first_param, %params}, $package;

}   
}

此方法应该接受错误哈希或错误字符串。如果它接受散列，它应该从错误散列输出消息密钥的值。

这是位于ErrorLibrary.pm中的错误哈希：

 use constant {

        CABLING_ERROR => {
        code => 561,
        message => "cabling is not correct at T1",
        tt => { template => 'disabled'},
        fatal => 1,
        link =>'http://www.e-solution.com/CABLING_ERROR',
        },
    };

这是消息方法以及位于Error.pm

中的散列的其他键

package ASC::Builder::Error;

sub message {
        return $_[0]->{message}; 
}

sub tt {
    return {$_[0]->{tt} };
}

sub code {
    return {$_[0]->{code} };
}

这是我当前的单元测试，位于error.t

#input value will either be a String or and Error Message Hash


# error hash
my $error_hash = CABLING_ERROR;
# error string
my $error_string = "cabling is not correct at T1.";

# error hash is passed into new and an error object is outputted
my $error_in = ASC::Builder::Error->new($error_hash);

# checks to see if the output object from new is an Error object
isa_ok($error_in, 'ASC::Builder::Error');

# checking that object can call the message() method
can_ok( $error_in, 'message');


# checks to see if the output message matches the message contained in the error hash(correct)
is($error_in->message(),( $error_string || $error_hash->{message} ), 'Returns correct error message');

最后我的测试结果：

#   Failed test 'Returns correct error message'
#   at t/67_error_post.t line 104.
#          got: 'HASH(0x38b393d490)'
#     expected: 'cabling is not correct at T1.'
# 
# '
# Looks like you failed 1 test of 3.
t/67_error_post.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/3 subtests

Answer 1

在我的机器上

首先，如果我运行您的代码，我会收到关于CABLING_CHECK_TOR_INCORRECT_CABLING_ERROR未定义的错误。如果我用CABLING_ERROR替换它，则测试失败。

#          got: 'cabling is not correct at T1'
#     expected: 'cabling is not correct at T1.'
# Looks like you failed 1 test of 3.

同时有两个可能的输出

现在你要说的输出是什么。

出于某种原因，您的$error_in->message会返回一个hashref，由is()进行字符串化，因为is()不会执行数据结构。您可以使用Test::Deep执行此操作。

use Test::Deep;

cmp_deeply(
    $error_in->message,
    any(
        $error_string,
        $error_hash->{message},
    ),
    'Returns correct error message',
);

在这里，我假设您的$error_string || $error_hash->{message}旨在让它检查其中一个或另一个。

但是||只会检查$error_string是否具有真值并将其返回，或者取$error_hash->{message}的值。它将该操作的结果与$error_in->message进行比较。

测试清楚

但是，这可能无法解决您的实际问题。不是让一个测试用例检查两个可能的事情，而是为每个可能的输入创建一个专用测试用例。这就是单元测试的全部内容。

my $error_direct = ASC::Builder::Error->new('foo');
is $error_direct->message, 'foo', 'direct error message gets read correctly';

my $error_indirect = ASC::Builder::Error->new( { message => 'bar' } );
is $error_indirect->message, 'bar', 'indirect error message gets read correctly';

上面的代码将为您提供两个测试用例。一个用于直接错误字符串，另一个用于间接哈希。

ok 1 - direct error message gets read correctly
ok 2 - indirect error message gets read correctly
1..2

不要浪费时间

与此同时，这也解决了您的方法的另一个问题。在单元测试中，您希望测试最小的单位。不要将它们与您的其他业务逻辑或业务生产数据联系起来。

您的ASC::Builder::Error课程并不关心错误的类型，因此请不要通过加载其他内容来过度复杂化，以便为您提供与现实生活中完全相同的错误消息。只需使用足以证明其功能的简单事物即可。

您的单元测试越简单，维护它们就越容易，并且一旦您有更多案例，就更容易添加更多。

在perl中进行单元测试，接收散列引用作为返回，期望从散列中的键返回一个字符串

1 个答案:

在我的机器上

同时有两个可能的输出

测试清楚

不要浪费时间