mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
28 lines
999 B
Scheme
28 lines
999 B
Scheme
|
|
(cond-expand
|
|
(modules (import (chibi process) (only (chibi test) test-begin test test-end)))
|
|
(else #f))
|
|
|
|
(test-begin "processes")
|
|
|
|
(test #t (process-running? (current-process-id)))
|
|
(test #t (process-running? (parent-process-id)))
|
|
(test #f (signal-set-contains? (current-signal-mask) signal/alarm))
|
|
|
|
(test #t (signal-set? (make-signal-set)))
|
|
(test #t (signal-set? (current-signal-mask)))
|
|
(test #f (signal-set? #f))
|
|
(test #f (signal-set? '(#f)))
|
|
(test #f (signal-set-contains? (make-signal-set) signal/interrupt))
|
|
(test #t (let ((sset (make-signal-set)))
|
|
(signal-set-fill! sset)
|
|
(signal-set-contains? sset signal/interrupt)))
|
|
(test #t (let ((sset (make-signal-set)))
|
|
(signal-set-add! sset signal/interrupt)
|
|
(signal-set-contains? sset signal/interrupt)))
|
|
(test #f (let ((sset (make-signal-set)))
|
|
(signal-set-fill! sset)
|
|
(signal-set-delete! sset signal/interrupt)
|
|
(signal-set-contains? sset signal/interrupt)))
|
|
|
|
(test-end)
|