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

comments, rackunit-y

Browse Source
This commit is contained in:
John Clements 2014-04-11 09:22:10 -07:00
parent 62a001decf
commit 96a9a1fc8f
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/htdp-pkgs/htdp-test/tests/stepper/annotation.rkt
View File

@ -2,12 +2,20 @@
(require stepper/private/annotate (require stepper/private/annotate
"test-engine.rkt" "test-engine.rkt"
"language-level-model.rkt") "language-level-model.rkt"
rackunit)
;; this is a pathetic "set" of tests, but I just spent time debugging
;; a problem that would have been caught by this test, so I'm adding
;; it anyway. More generally, it might be nice to take every test in
;; the through-tests suite and make sure that it can be annotated without
;; failure before trying to run it.
(define (try-annotating str) (define (try-annotating str)
(define expanded (define expanded
(car (string->expanded-syntax-list intermediate str))) (car (string->expanded-syntax-list intermediate str)))
(printf "expanded: ~s\n" expanded) ;(printf "expanded: ~s\n" expanded)
(annotate expanded (lambda (a b c) 'bogus) #f)) (annotate expanded (lambda (a b c) 'bogus) #f))
(try-annotating "(check-expect 2 2)")
(check-not-exn (lambda () (try-annotating "(check-expect 2 2)")))