use strict ;
-#use Test::More tests => 29 ;
-use Test::More tests => 24 ;
+use Test::More tests => 27 ;
use Symbol ;
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 () ;
my( $self ) = @_ ;
ok( 1, 'plain event triggered' ) ;
+ Stem::Event::stop_loop() ;
}
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',
$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
my( $self ) = @_ ;
+send_int_signal() ;
+
ok( 1, 'hard timer event triggered' ) ;
if ( --$self->{'hard_timer_count'} > 0 ) {