sub triggered {
my( $self ) = @_ ;
-
-<<<<<<< HEAD:t/event/event_test.pl
ok( 1, 'plain - event triggered' ) ;
-=======
- ok( 1, 'plain event triggered' ) ;
- Stem::Event::stop_loop() ;
->>>>>>> master:t/event/event_test.pl
}
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',
ok( ref $event, 'signal - event created' ) ;
- $self->{'sig_event'} = $event ;
+ kill 'INT', $$ ;
+ $self->{'sig_event'} = $event ;
-print "kill INT\n" ;
+ Stem::Event::start_loop() ;
- kill 'INT', $$ ;
+ ok( 1, 'signal - event loop exit' ) ;
+ }
}
# callback method for signal
ok( 1, 'signal - event triggered' ) ;
$self->{'sig_event'}->cancel() ;
+
Stem::Event::stop_loop() ;
}
my( $self ) = @_ ;
-<<<<<<< HEAD:t/event/event_test.pl
ok( 1, 'hard timer - event triggered' ) ;
-=======
-send_int_signal() ;
-
- ok( 1, 'hard timer event triggered' ) ;
->>>>>>> master:t/event/event_test.pl
if ( --$self->{'hard_timer_count'} > 0 ) {