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

;;

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

;; Test

(define FAILURE-STATEMENT #<<EOS
                    *** Tests Reliably Fail ***

            Shows a reasonable use of an exit continuation
            breaking the implied "isolation".

            Need to know what is being synch'ed.

            Coroutine Generators OK, Dynamic-Lambda, not OK.
            
            Note that running the mutex tests concurrently
            will result in failures.

                    *** Tests Reliably Fail ***
EOS
)

;NOTE that `test-failure-count', the `test' accumulator, is a parameter. Each
;thread has a counter & only the main thread counter is reported. The main
;thread runs no tests.
(newline)
(print FAILURE-STATEMENT)

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

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

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

(threads-run)

(test-end "Synch Examples w/ Dynamic-Lambda")

(test-exit)