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

Uncommented unfinished test that made rewrite-path break

Browse Source
This commit is contained in:
Jens Axel Søgaard 2014-08-13 20:58:16 +02:00
parent 42d600c4c1
commit 72b0251203
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
whalesong/tests/test-parse-bytecode.rkt
View File

@ -117,7 +117,6 @@
(make-LocalRef 0 #f))) (make-LocalRef 0 #f)))
;; let1's ;; let1's
(check-equal? (run-my-parse #'(let ([y (f)]) (check-equal? (run-my-parse #'(let ([y (f)])
'ok)) 'ok))
@ -197,7 +196,6 @@
(check-equal? (run-my-parse #'+) (check-equal? (run-my-parse #'+)
(make-Top (make-Prefix (list)) (make-Top (make-Prefix (list))
(make-PrimitiveKernelValue '+))) (make-PrimitiveKernelValue '+)))
@ -383,7 +381,8 @@
;; todo: see what it would take to run a typed/racket/base language. ;; todo: see what it would take to run a typed/racket/base language.
(void ; This test currently breaks rewrite-path in path-rewriter.rkt
#;(void
(run-my-parse '(module foo typed/racket/base (run-my-parse '(module foo typed/racket/base
(provide x) (provide x)
(: x Number) (: x Number)