01a41a812e
[It will not bother me if we revert this commit. I liked SK's idea and found it easy to implement. I wonder if others will be worried that it is easy to unintentionally leave off the second argument to check-error. I also wonder if it is problematic to add new string constants, like I've done.] Here is an example: (check-error (/ 1 0) "/: division by zero") (check-error (/ 1 0) "divide by zero") (check-error (/ 1 0)) (check-error 1) Here is the output: Ran 4 tests. 2 of the 4 tests failed. No signature violations. Check failures: check-error encountered the following error instead of the expected divide by zero :: /: division by zero in ex.rkt, line 2, column 0 check-error expected an error, but instead received the value 1. in ex.rkt, line 4, column 0
87 lines
2.9 KiB
Racket
87 lines
2.9 KiB
Racket
#reader scribble/reader
|
|
#lang scheme/base
|
|
(require "common.ss"
|
|
scribble/decode
|
|
(for-label lang/htdp-beginner-abbr))
|
|
|
|
(provide prim-nonterms
|
|
schemegrammar*+library
|
|
schemegrammar*+qq)
|
|
|
|
(define ex-str "This is a string with \" inside")
|
|
|
|
(define-syntax-rule (schemegrammar*+library
|
|
#:literals lits
|
|
(check-expect check-within check-error require)
|
|
form ...)
|
|
(schemegrammar*
|
|
#:literals lits
|
|
form ...
|
|
[test-case @#,scheme[(check-expect expr expr)]
|
|
@#,scheme[(check-within expr expr expr)]
|
|
@#,scheme[(check-member-of expr expr (... ...))]
|
|
@#,scheme[(check-range expr expr expr)]
|
|
@#,scheme[(check-error expr expr)]
|
|
@#,scheme[(check-error expr)]]
|
|
(...
|
|
[library-require @#,scheme[(require string)]
|
|
@#,scheme[(require (lib string string ...))]
|
|
@#,scheme[(require (planet string package))]])
|
|
(...
|
|
[package @#,scheme[(string string number number)]])))
|
|
|
|
(define-syntax-rule (schemegrammar*+qq
|
|
#:literals lits
|
|
(check-expect check-within check-error require)
|
|
form ...)
|
|
(schemegrammar*+library
|
|
#:literals lits
|
|
(check-expect check-within check-error require)
|
|
form ...
|
|
(...
|
|
[quoted id
|
|
number
|
|
string
|
|
character
|
|
@#,scheme[(quoted ...)]
|
|
@#,elem{@schemevalfont{'}@scheme[quoted]}
|
|
@#,elem{@schemevalfont{`}@scheme[quoted]}
|
|
@#,elem{@schemefont{,}@scheme[quoted]}
|
|
@#,elem{@schemefont[",@"]@scheme[quoted]}])
|
|
(...
|
|
[quasiquoted id
|
|
number
|
|
string
|
|
character
|
|
@#,scheme[(quasiquoted ...)]
|
|
@#,elem{@schemevalfont{'}@scheme[quasiquoted]}
|
|
@#,elem{@schemevalfont{`}@scheme[quasiquoted]}
|
|
@#,elem{@schemefont{,}@scheme[expr]}
|
|
@#,elem{@schemefont[",@"]@scheme[expr]}])))
|
|
|
|
(define prim-nonterms
|
|
(make-splice
|
|
(list
|
|
|
|
@t{An @scheme[_id] is a sequence of characters not including a
|
|
space or one of the following:}
|
|
|
|
@t{@hspace[2] @litchar{"} @litchar{,} @litchar{'} @litchar{`}
|
|
@litchar{(} @litchar{)} @litchar{[} @litchar{]}
|
|
@litchar["{"] @litchar["}"] @litchar{|} @litchar{;}
|
|
@litchar{#}}
|
|
|
|
@t{A @scheme[_number] is a number such as @scheme[123], @scheme[3/2], or
|
|
@scheme[5.5].}
|
|
|
|
@t{A @scheme[_string] is enclosed by a pair of @litchar{"}. Unlike
|
|
symbols, strings may be split into characters and manipulated by a
|
|
variety of primitive functions. For example, @scheme["abcdef"],
|
|
@scheme["This is a string"], and @scheme[#,ex-str] are all strings.}
|
|
|
|
@t{A @scheme[_character] begins with @litchar{#\} and has the
|
|
name of the character. For example, @scheme[#\a], @scheme[#\b],
|
|
and @scheme[#\space] are characters.}
|
|
|
|
)))
|