7491e172ea
The eopl language is now racket-based rather than mzscheme-based. This test-suite, which was originally distributed on the book's web-site has been re-written in the new language. Changes include dropping all drscheme-init.scm and top.scm files. Remaining files were renamed to use the .rkt extension and edited to use the #lang syntax (instead of modulue). Require and provide forms were changed to reflect racket's syntax instead of mzscheme's (eg, only-in vs. only). Several occurrences of one-armed ifs were changed to use when and unless. All tests have been run successfully.
17 lines
435 B
Racket
17 lines
435 B
Racket
#lang racket
|
|
(provide (all-from-out rackunit)
|
|
check-error
|
|
define-syntax-rule
|
|
define-syntax
|
|
syntax-rules)
|
|
|
|
;;------------------------------------------------------------------------
|
|
;; Testing utilities
|
|
(require rackunit)
|
|
|
|
(define-syntax-rule (check-error e msg)
|
|
(check-exn (lambda (x) (and (exn:fail? x)
|
|
(string=? msg (exn-message x))))
|
|
(lambda () e)))
|
|
|