Ticket #877: out.diff

tests/signal-tests.scm

@@ -33 +33 @@
 
 (define (child)
   (print "child started")
+  (set-signal-handler! signal/usr1 handler)
+  (set-signal-handler! signal/usr2 handler)   
+  (set-signal-handler! signal/term fini)   
   (thread-start! 
    (lambda ()
      (do () (#f)
        (thread-sleep! 0.5)
        (tick #\_))))
-  (set-signal-handler! signal/usr1 handler)
-  (set-signal-handler! signal/usr2 handler)   
-  (set-signal-handler! signal/term fini)   
   (do () (#f) 
     (thread-sleep! 1)
     (tick #\.)))
@@ -48 +48 @@
 (let ((pid (process-fork child))
       (sent1 0)
       (sent2 0))
-  (sleep 1)
+  (sleep 2)
   (print "sending signals to " pid)
   (do ((i 1000 (sub1 i)))
       ((zero? i))