我有一个正在运作的Coro程序,我正在为
编写测试脚本这是我试图测试
的简化版本use Test::More ;#tests => 9;
BEGIN{
use_ok( 'EV' ) || print "Bail out!\n";
use_ok( 'Coro' ) || print "Bail out!\n";
use_ok( 'AnyEvent' ) || print "Bail out!\n";
use_ok( 'Coro::AnyEvent' ) || print "Bail out!\n";
}
my @coro;
push @coro, async sub{ok(Coro::AnyEvent::sleep(2), 'sleep')};
push @coro, async sub{ok (1 == 1, 'one equals one')};
push @coro, async sub{isnt (1, 2, 'one does not equal two')};
#push @coro, async sub{is(EV::unloop, undef, 'unloop')};
#EV::run;
map {ok($_->join, 'join')} @coro;
给了我
t/coro-test.t ..
ok 1 - use EV;
ok 2 - use Coro;
ok 3 - use AnyEvent;
ok 4 - use Coro::AnyEvent;
ok 5 - one equals one
ok 6 - one does not equal two
Undefined subroutine &main:: called at /usr/lib/perl5/Coro/AnyEvent.pm line 218.
Dubious, test returned 9 (wstat 2304, 0x900)
All 6 subtests passed
Test Summary Report
-------------------
t/coro-test.t (Wstat: 2304 Tests: 6 Failed: 0)
Non-zero exit status: 9
Parse errors: No plan found in TAP output
Files=1, Tests=6, 0 wallclock secs ( 0.02 usr 0.01 sys + 0.18 cusr 0.03 csys = 0.24 CPU)
Result: FAIL
我的(真实的)程序设置了协同程序,然后他们睡不着觉他们无所事事,所以它不是一个人为的例子。
感激不尽的任何帮助。 (我认为unloop和EV :: run不是必需的)
答案 0 :(得分:1)
我无法想象为什么Test :: More不起作用的原因,事实上,它适用于当前版本的Coro和AnyEvent(以及EV或Perl作为事件后端)。
我认为您的问题可能是Coro :: AnyEvent :: sleep返回了Test :: More在您的系统上不喜欢的东西。假设Coro :: AnyEvent :: sleep返回任何特定的东西正在寻找麻烦 - 返回值(如果有的话)是未记录的,因此期望它是特定的东西会使你的程序依赖于未记录的行为,并且失败是预期的结果