added stepper-hint

svn: r7279
This commit is contained in:
John Clements 2007-09-05 00:35:50 +00:00
parent 64a31bb0b3
commit 372725996b

View File

@ -7,6 +7,8 @@
(lib "pconvert.ss")
(lib "class.ss"))
(require-for-syntax (lib "shared.ss" "stepper" "private"))
(provide
check-expect ;; syntax : (check-expect <expression> <expression>)
check-within ;; syntax : (check-within <expression> <expression> <expression>)
@ -57,12 +59,15 @@
(not (eq? (syntax-local-context) 'expression))
(quasisyntax/loc stx
(define #,(gensym 'test)
(check-values-expected
(lambda () test) actual (make-src #,@(list (syntax-source stx)
(syntax-line stx)
(syntax-column stx)
(syntax-position stx)
(syntax-span stx)))))))
#,(stepper-syntax-property
#`(check-values-expected
(lambda () test) actual (make-src #,@(list (syntax-source stx)
(syntax-line stx)
(syntax-column stx)
(syntax-position stx)
(syntax-span stx))))
`stepper-hint
`comes-from-check-expect))))
((_ test)
(not (eq? (syntax-local-context) 'expression))
(raise-syntax-error 'check-expect CHECK-EXPECT-STR stx))