perl mocking有没有办法模拟$？

发布时间：2020-12-15 21:45:53 所属栏目：大数据来源：网络整理

导读：我使用 Test::MockModule 来测试perl模块.其中一个电话需要检查$的状态？获取错误代码和程序检查. 我如何模拟$的结果？被测代码如下所示. my $result = CCUtil::cleartool($cmd);if ( $? != 0 ) { confess "Stream $stream not found( $result) ";} api返回

我使用 Test::MockModule来测试perl模块.其中一个电话需要检查$的状态？获取错误代码和程序检查.

我如何模拟$的结果？

被测代码如下所示.

my $result = CCUtil::cleartool($cmd);

if ( $? != 0 ) {
    confess  "Stream $stream not found( $result) ";
}

api返回字符串并设置$？用于检查状态.

正常方法调用及其返回值使用如下所示进行更改

my $module = Test::MockModule->new('CCUtil');
$mockModule->mock(cleartool => sub {return 'stream not found'});

现在模拟了方法调用.不是 – $的价值？

解决方法

my $module = Test::MockModule->new('CCUtil');
$mockModule->mock(cleartool => sub { $? = 0x0100; return 'stream not found' });

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!