fixed gitignore

[urisagit/Stem.git] / t / event / event_test.pl

diff --git a/t/event/event_test.pl b/t/event/event_test.pl
index 11227d1..faefbfe 100644 (file)
--- a/t/event/event_test.pl
+++ b/t/event/event_test.pl
@@ -11,8 +11,7 @@ BEGIN {
 
 use strict ;
 
-#use Test::More tests => 29 ;
-use Test::More tests => 24 ;
+use Test::More tests => 27 ;
 
 use Symbol ;
 
@@ -27,9 +26,9 @@ exit ;
 
 sub test_events {
 
-#      test_null_events() ;
-#      test_plain_events () ;
-#      test_signal_events () ;
+       test_null_events() ;
+       test_plain_events () ;
+       test_signal_events () ;
        test_hard_timer_events () ;
        test_soft_timer_events () ;
        test_io_events () ;
@@ -65,6 +64,7 @@ sub triggered {
        my( $self ) = @_ ;
 
        ok( 1, 'plain event triggered' ) ;
+       Stem::Event::stop_loop() ;
 }
 
 sub test_signal_events {
@@ -76,6 +76,22 @@ sub test_signal_events {
                        return ;
                }
 
+               my $event2 = Stem::Event::Timer->new(
+                       'object'        => $self,
+                       'method'        => 'send_int_signal',
+                       'delay'         => 3,
+               ) ;
+
+               ok( ref $event2, 'signal delay timer created' ) ;
+
+               Stem::Event::start_loop() ;
+
+               ok( 1, 'signal - event loop exit' ) ;
+       }
+}
+
+sub send_int_signal {
+
                my $event = Stem::Event::Signal->new(
                        'object'        => $self,
                        'signal'        => 'INT',
@@ -85,14 +101,10 @@ sub test_signal_events {
 
                $self->{'sig_event'} = $event ;
 
-               kill 'INT', $$ ;
-
-#print "kill INT\n" ;
 
-               Stem::Event::start_loop() ;
+print "kill INT\n" ;
 
-               ok( 1, 'signal - event loop exit' ) ;
-       }
+       kill 'INT', $$ ;
 }
 
 # callback method for signal
@@ -142,6 +154,8 @@ sub hard_timeout {
 
        my( $self ) = @_ ;
 
+send_int_signal() ;
+
        ok( 1, 'hard timer event triggered' ) ;
 
        if ( --$self->{'hard_timer_count'} > 0 ) {