X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fevent%2Fevent_test.pl;fp=t%2Fevent%2Fevent_test.pl;h=faefbfed20870c6b513cef772e694ebdec6b6f1c;hb=f4d1dc84704fc932aa1bcdcce518baffa59e6d55;hp=11227d1a4f8a18e7e29b4ace489f3732cad156da;hpb=48d0b19f5aba63f76cc56d6720cb08ccc1e5a279;p=urisagit%2FStem.git

diff --git a/t/event/event_test.pl b/t/event/event_test.pl
index 11227d1..faefbfe 100644
--- 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 ) {