Test :: Builder :: Tester失败测试失败，为什么？

这里有测试的输出。Test :: Builder :: Tester失败测试失败，为什么？

prove -lv t/02-fail.t 
t/02-fail.t .. 
not ok 1 
1..1 

# Failed test at t/02-fail.t line 15. 
# STDOUT is: 
# ok 1 - corpus/fail/FooBar.pm version 1.0.1 is valid 
# not ok 2 - corpus/fail/FooBarBaz.pm version is valid 
# 
# not: 
# ok 1 - corpus/fail/FooBar.pm version 1.0.1 is valid 
# 
# not ok 2 - corpus/fail/FooBarBaz.pm version is valid 
# 
# as expected 
# STDERR is: 
# # Failed test 'corpus/fail/FooBarBaz.pm version is valid' 
# # at /home/xenoterracide/projects/Test-HasValidVersion/lib/Test/HasValidVersion.pm line 60. 
# # corpus/fail/FooBarBaz.pm VERSION is not a valid verion 
# 
# not: 
# 
# as expected 
Failed 1/1 subtests 

Test Summary Report 
------------------- 
t/02-fail.t (Wstat: 0 Tests: 1 Failed: 1) 
    Failed test: 1 
Files=1, Tests=1, 0 wallclock secs (0.02 usr 0.01 sys + 0.04 cusr 0.01 csys = 0.08 CPU) 
Result: FAIL

和测试本身

#!/usr/bin/perl 
use 5.006; 
use strict; 
use warnings; 
use Test::Builder::Tester; 
use Test::More; 
use Test::HasValidVersion qw(version_all_ok); 

test_out('ok 1 - corpus/fail/FooBar.pm version 1.0.1 is valid', 
    'not ok 2 - corpus/fail/FooBarBaz.pm version is valid' 
); 

version_all_ok('corpus/fail'); 

test_test; 
done_testing;

（注：这里的github repository测试代码有一点点不同，但未能对同一模块的链接没有任何不同。如果。你克隆回购请确保你签出提交daaab6a7c452958399f74150406915657f2cfa33作为主分支正在更新）

我不知道为什么这是失败的，它似乎是注入整条线docs别提。

有人可以帮助我纠正代码，使其通过？

来源

2011-05-10 xenoterracide

也许你可以给作者发邮件。否则，你可以使用Test :: Tester来代替吗？ – dwarring 2011-05-10 06:06:33

@snoopy我是作者......除非你的意思是Test :: Builder :: Tester的作者 – xenoterracide 2011-05-10 11:42:51

是的，那就是我的意思 – dwarring 2011-05-11 01:31:01

所以我需要做的是在代码中添加一个test_fail(+4)。最终我切换到Test::Tester不必处理空白问题。

#!/usr/bin/perl 
use 5.006; 
use strict; 
use warnings; 
use Test::Builder::Tester; 
use Test::More; 
use Test::HasValidVersion qw(version_ok); 

test_out(
    'ok 1 - VERSION 1.0.1 in corpus/fail/FooBar.pm is valid', 
    'not ok 2 - validate VERSION in corpus/fail/FooBarBaz.pm', 
); 
test_fail(+4); 
test_diag('VERSION in corpus/fail/FooBarBaz.pm is not a valid version'); 

version_ok('corpus/fail/FooBar.pm'); 
version_ok('corpus/fail/FooBarBaz.pm'); 
# version_all_ok('corpus/fail'); 

test_test; 
done_testing;

这里有一个link to the fixed commit

来源

2011-06-04 18:42:36 xenoterracide

您是否尝试过将Test :: More和Test :: Builder :: Tester升级到最新版本？使用perl-5.10.1和perl-5.14.0-RC3这里以及两者的最新版本，我无法复制你的错误，使用你的git repo签出（并修复了回购行中的明显问题被颠倒过来）。

来源

2011-05-12 23:41:09 genehack

我正在运行5.12.3以及任何最新的Test :: More，mike doherty帮助我知道了。我稍后会发布答案。显然，如果你没有使用提交的链接，它现在会通过，因为它已经在master中修复了。 – xenoterracide 2011-05-13 01:27:40

Test :: Builder :: Tester失败测试失败，为什么？

回答

相关问题