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

Comparing AnyEvent/t/61_fltk_09_multi.t (file contents):
Revision 1.5 by root, Sat Oct 1 22:39:29 2011 UTC vs.
Revision 1.7 by root, Tue Jul 30 23:14:32 2013 UTC

… …
17$^W = 0; # 5.8.6 bugs 17$^W = 0; # 5.8.6 bugs
18 18
19use AnyEvent; 19use AnyEvent;
20use AnyEvent::Util; 20use AnyEvent::Util;
21 21
22 BEGIN { $^W = 0 }
22 BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) } 23 BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) }
23 BEGIN { eval q{use AnyEvent::Impl::FLTK;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::FLTK not loadable\n}), exit 0) } 24 BEGIN { eval q{use AnyEvent::Impl::FLTK;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::FLTK not loadable\n}), exit 0) }
24 25
25 26
26 27
… …
96 print $s == 0 ? "" : "not ", "ok 6 # $s\n"; 97 print $s == 0 ? "" : "not ", "ok 6 # $s\n";
97 98
98 kill INT => $$; 99 kill INT => $$;
99 100
100 $cv = AE::cv; 101 $cv = AE::cv;
101 $wt = AE::timer 0.2, 0, $cv; # maybe OS X needs more time here? 102 $wt = AE::timer 0.2, 0, $cv; # maybe OS X needs more time here? or maybe some buggy arm kernel?
102 103
103 $s = 0; 104 $s = 0;
104 $cv->recv; 105 $cv->recv;
105 106
106 print $s == 3 ? "" : "not ", "ok 7 # $s\n"; 107 print $s == 3 ? "" : "not ", "ok 7 # $s\n";

Diff Legend

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