Thread: [poe-commits] poe/tests/10_units/07_exceptions 03_not_handled.t,1.1,1.2
Brought to you by:
rcaputo
From: <ha...@us...> - 2005-12-10 07:55:14
|
Update of /cvsroot/poe/poe/tests/10_units/07_exceptions In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32510/tests/10_units/07_exceptions Modified Files: 03_not_handled.t Log Message: Change exceptions test to better determine if POE has shut down properly when the DIE signal is not handled Index: 03_not_handled.t =================================================================== RCS file: /cvsroot/poe/poe/tests/10_units/07_exceptions/03_not_handled.t,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 03_not_handled.t 4 Dec 2005 01:30:37 -0000 1.1 --- 03_not_handled.t 10 Dec 2005 07:55:05 -0000 1.2 *************** *** 1,5 **** # $Id$ ! use Test::More tests => 4; use POE; --- 1,5 ---- # $Id$ ! use Test::More tests => 6; use POE; *************** *** 11,15 **** $_[KERNEL]->sig('DIE' => 'mock_death'); $_[KERNEL]->yield('death'); - $_[KERNEL]->delay('last_breath' => 0.5); }, --- 11,14 ---- *************** *** 18,22 **** death => sub { die "OMG THEY CANCELLED FRIENDS"; }, mock_death => sub { is($_[ARG0], 'DIE', "DIE signal sent"); }, ! last_breath => sub { fail("POE environment survived uncaught exception"); }, }, ); --- 17,33 ---- death => sub { die "OMG THEY CANCELLED FRIENDS"; }, mock_death => sub { is($_[ARG0], 'DIE', "DIE signal sent"); }, ! }, ! ); ! ! POE::Session->create( ! inline_states => { ! _start => sub { ! pass("Other session started"); ! $_[KERNEL]->delay('last_breath' => 0.5); ! }, ! ! _stop => sub { pass("Other session stopping"); }, ! ! last_breath => sub { fail("POE environment survived uncaught exception"); }, }, ); |