You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
438 B
Racket
17 lines
438 B
Racket
#lang racket/base
|
|
|
|
(require (submod "../main.rkt" safe))
|
|
(module+ test
|
|
(require rackunit))
|
|
|
|
(module+ test
|
|
(check-exn (regexp (string-append
|
|
"txexpr.*: contract violation\n"
|
|
" *expected: txexpr-tag\\?\n"
|
|
" *given: 4\n"
|
|
" *in: the 1st argument.*"
|
|
" *blaming: .*test/contract-tests.rkt"))
|
|
(λ () (txexpr 4)))
|
|
)
|
|
|