Ticket #877: out.diff

File out.diff, 846 bytes (added by felix winkelmann, 10 years ago)
  • tests/signal-tests.scm

    diff --git a/tests/signal-tests.scm b/tests/signal-tests.scm
    index b9e5f41..2c58b8d 100644
    a b  
    3333
    3434(define (child)
    3535  (print "child started")
     36  (set-signal-handler! signal/usr1 handler)
     37  (set-signal-handler! signal/usr2 handler)   
     38  (set-signal-handler! signal/term fini)   
    3639  (thread-start!
    3740   (lambda ()
    3841     (do () (#f)
    3942       (thread-sleep! 0.5)
    4043       (tick #\_))))
    41   (set-signal-handler! signal/usr1 handler)
    42   (set-signal-handler! signal/usr2 handler)   
    43   (set-signal-handler! signal/term fini)   
    4444  (do () (#f)
    4545    (thread-sleep! 1)
    4646    (tick #\.)))
     
    4848(let ((pid (process-fork child))
    4949      (sent1 0)
    5050      (sent2 0))
    51   (sleep 1)
     51  (sleep 2)
    5252  (print "sending signals to " pid)
    5353  (do ((i 1000 (sub1 i)))
    5454      ((zero? i))