[ViewVC] Diff of: cvs/EV/t/11

Comparing EV/t/11_signal.t (file contents):
Revision 1.1 by root, Sun Jul 19 20:39:54 2009 UTC vs.
Revision 1.3 by root, Thu Oct 21 15:13:43 2010 UTC

 EOF
       exit 0;
    }
 }
-$| = 1; print "1..16\n";
+$| = 1; print "1..24\n";
 use EV;
 print "ok 1\n";
 undef $usr1_0;
 undef $usr1_2;
 print "ok 7\n";
-$loop->loop;
+$loop->run;
 print "ok 9\n";
-EV::loop (EV::LOOP_ONESHOT);
+EV::run (EV::RUN_ONCE);
 print "ok 11\n";
 $usr2 = EV::signal USR2 => sub { print "ok 13\n" };
 $usr1_0 = EV::signal USR1 => sub { print "ok 15\n" };
 print "ok 12\n";
 kill USR2 => $$;
-EV::loop (EV::LOOP_NONBLOCK);
+EV::run (EV::RUN_NOWAIT);
 print "ok 14\n";
 kill USR1 => $$;
-EV::loop (EV::LOOP_NONBLOCK);
+EV::run (EV::RUN_NOWAIT);
 print "ok 16\n";
+my $sig = $loop->signal (INT => sub { });
+print "ok 17\n";
+print eval { $loop->signal (USR2 => sub { }); 1 } ? "not " : "", "ok 18 # $@\n";
+print eval { $sig->set ("USR2"); 1 } ? "not " : "", "ok 19 # $@\n";
+$sig = $loop->signal (INT => sub { });
+print eval { $sig->signal ("USR2"); 1 } ? "not " : "", "ok 20 # $@\n";
+print eval { $sig->signal ("USR2"); 1 } ? "" : "not ", "ok 21 # $@\n"; # now inactive
+print eval { $sig->start; 1 } ? "not " : "", "ok 22 # $@\n";
+print eval { $sig->signal ("USR2"); 1 } ? "" : "not ", "ok 23 # $@\n"; # now inactive
+$sig->signal ("INT");
+print eval { $sig->start; 1 } ? "" : "not ", "ok 24 # $@\n";

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