ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/t/11_signal.t
(Generate patch)

Comparing EV/t/11_signal.t (file contents):
Revision 1.1 by root, Sun Jul 19 20:39:54 2009 UTC vs.
Revision 1.2 by root, Sun Jul 19 21:59:55 2009 UTC

5EOF 5EOF
6 exit 0; 6 exit 0;
7 } 7 }
8} 8}
9 9
10$| = 1; print "1..16\n"; 10$| = 1; print "1..24\n";
11 11
12use EV; 12use EV;
13 13
14print "ok 1\n"; 14print "ok 1\n";
15 15
64 64
65EV::loop (EV::LOOP_NONBLOCK); 65EV::loop (EV::LOOP_NONBLOCK);
66 66
67print "ok 16\n"; 67print "ok 16\n";
68 68
69my $sig = $loop->signal (INT => sub { });
70
71print "ok 17\n";
72
73print eval { $loop->signal (USR2 => sub { }); 1 } ? "not " : "", "ok 18 # $@\n";
74print eval { $sig->set ("USR2"); 1 } ? "not " : "", "ok 19 # $@\n";
75$sig = $loop->signal (INT => sub { });
76print eval { $sig->signal ("USR2"); 1 } ? "not " : "", "ok 20 # $@\n";
77print eval { $sig->signal ("USR2"); 1 } ? "" : "not ", "ok 21 # $@\n"; # now inactive
78print eval { $sig->start; 1 } ? "not " : "", "ok 22 # $@\n";
79print eval { $sig->signal ("USR2"); 1 } ? "" : "not ", "ok 23 # $@\n"; # now inactive
80$sig->signal ("INT");
81print eval { $sig->start; 1 } ? "" : "not ", "ok 24 # $@\n";
82

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines