(import test)
(import (only (chicken format) format) (test-utils gloss))

;;

(include-relative "synch-continuation-test-support")

;; Test

;NOTE "resets" *here* count-to-iteration dynamic-lambda is returns
(test-begin "Synch Examples w/ Coroutine Generators")

;NOTE both #t causes interacting failures!

(define DO-GENNY #t)
(define DO-DYNCTX #f)
(include-relative "synch-continuation-test-body")

;(test-begin "Synch Examples") ;interesting: test impl artifact?

(threads-run)

(test-end "Synch Examples w/ Coroutine Generators")

(test-exit)