test/reentry.sgl — sigil-wm

1(import (sigil async) (sigil wm host))

2(define host (start-host!))

3(define rejected? #f)

4(on-event! host

5 (lambda (event)

6 (when (eq? (event-type event) 'ready)

7 (set! rejected?

8 (guard (exception (#t #t))

9 (poll-host! host)

10 #f))

11 (stop-host! host))))

12(with-async (run-host! host))

13(unless rejected? (error "event polling was reentrant"))

14(unless (= (host-statistic host 2) 0) (error "native events overflowed"))

15(display "REENTRY=PASS no event consumed by rejected recursion\n")