ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/67_tk_02_signals.t
(Generate patch)

Comparing AnyEvent/t/67_tk_02_signals.t (file contents):
Revision 1.4 by root, Sun Jul 26 12:41:04 2009 UTC vs.
Revision 1.7 by root, Fri Aug 12 18:41:29 2011 UTC

… …
6 exit 0; 6 exit 0;
7 } 7 }
8} 8}
9 9
10use AnyEvent; 10use AnyEvent;
11
12 BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) }
11BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not loadable}), exit 0) } 13 BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not loadable\n}), exit 0) }
14
15
12 16
13$| = 1; print "1..5\n"; 17$| = 1; print "1..5\n";
14 18
15print "ok 1\n"; 19print "ok 1\n";
16 20
… …
28 $cv->broadcast; 32 $cv->broadcast;
29}); 33});
30 34
31print "ok 2\n"; 35print "ok 2\n";
32kill 'INT', $$; 36kill 'INT', $$;
33$cv->wait; 37$cv->recv;
34undef $error; 38undef $error;
35 39
36print "ok 4\n"; 40print "ok 4\n";
37 41
38undef $sw; 42undef $sw;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines