racket/collects/redex/tests/run-err-tests/judgment-form-contracts.rktd
2012-02-29 00:28:11 -05:00

13 lines
342 B
Racket

(#rx"input q at position 1"
([judgment (ctc-fail q s)])
(judgment-holds judgment))
(#rx"output q at position 2"
([judgment (ctc-fail a s)])
(judgment-holds judgment))
(#rx"input q at position 1"
([judgment (ctc-fail b s)])
(judgment-holds judgment))
(#rx"output q at position 2"
([judgment (ctc-fail c s)])
(judgment-holds judgment))