added stepper-hint
svn: r7279
This commit is contained in:
parent
64a31bb0b3
commit
372725996b
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user