#lang scheme/base
(require scheme/class)
(require "snooze-syntax.ss"
"test-base.ss")
(provide make-snooze-concurrency-tests)
(define (make-snooze-concurrency-tests snooze)
(define-snooze-interface snooze)
(test-suite "snooze-concurrency-tests"
(test-case "concurrent connections don't interfere with one another"
(fail "Not implemented (see source in snooze-unit-concurrency-test.ss for explanation)."))
(test-case "concurrent continuations don't interfere with one another"
(fail "Not implemented (see source in snooze-unit-concurrency-test.ss for explanation)."))
))