suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check-expect running

Browse Source
This commit is contained in:
Danny Yoo 2011-08-31 18:33:44 -04:00
parent cb94b0ee7e
commit 464abb58f1
4 changed files with 29 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/kernel-primitives.rkt
View File

@ -73,6 +73,13 @@
'make-struct-field-mutator
'gensym
'srcloc
'make-srcloc
'srcloc-source
'srcloc-line
'srcloc-column
'srcloc-position
'srcloc-span
))
(define-predicate KernelPrimitiveName? KernelPrimitiveName)

12
lang/check-expect/check-expect.rkt
View File

@ -37,7 +37,7 @@
#'(accumulate-test!
(lambda ()
(check-expect* 'stx
(srcloc 'id offset line column span)
(srcloc 'id line column offset span)
(lambda () test)
(lambda () expected))))))]))
@ -91,11 +91,17 @@
#t]
[else
(printf "check-expect: actual value ~s differs from ~s, the expected value\n" test-value expected-value)
;(newline)
;(display-location test-datum a-loc)
(display-location a-loc)
#f])))
(define (display-location a-loc)
(printf " at: ~s, line ~s, column ~s\n"
(srcloc-source a-loc)
(srcloc-line a-loc)
(srcloc-column a-loc)))
;; (define (check-within* test-datum a-loc test-thunk expected-thunk delta-thunk)
;; ;(with-handlers ([void
;; ; (lambda (exn)

25
lang/kernel.rkt
View File

@ -166,7 +166,17 @@
(rename-out [kernel:apply apply])
call-with-values
gensym)
gensym
srcloc
make-srcloc
srcloc?
srcloc-source
srcloc-line
srcloc-column
srcloc-position
srcloc-span)
(define (-identity x) x)
@ -443,18 +453,7 @@ char=?
make-reader-graph
make-placeholder
placeholder-set!
srcloc
make-srcloc
srcloc?
srcloc-id
srcloc-line
srcloc-column
srcloc-position
srcloc-span
)
placeholder-set!)