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

fixing the test cases.

Browse Source
This commit is contained in:
Danny Yoo 2011-03-07 15:47:49 -05:00
parent 6cb9cf6539
commit 6bf17b7d0b
1 changed files with 15 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
test-simulator.rkt
View File

@ -222,37 +222,33 @@
;; AssignPrimOpStatement ;; AssignPrimOpStatement
(let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(+ - * =)))))]) (let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(+ - * =)))))])
(void (run m))
;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting ;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting
;; the toplevel structure in the environment... :( ;; the toplevel structure in the environment... :(
#;(test (first (machine-env (run m))) (test (first (machine-env (run m)))
(make-toplevel (vector (lookup-primitive '+) (make-toplevel (list (lookup-primitive '+)
(lookup-primitive '-) (lookup-primitive '-)
(lookup-primitive '*) (lookup-primitive '*)
(lookup-primitive '=))))) (lookup-primitive '=)))))
(let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable))) (let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable)))
,(make-AssignImmediateStatement 'val (make-Const "Danny")) ,(make-AssignImmediateStatement 'val (make-Const "Danny"))
,(make-PerformStatement (make-SetToplevel! 0 0 'some-variable))))]) ,(make-PerformStatement (make-SetToplevel! 0 0 'some-variable))))])
(void (run m)) (test (machine-env (run m))
;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting (list (make-toplevel (list "Danny")))))
;; the toplevel structure in the environment... :(
)
(let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable another))) (let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable another)))
,(make-AssignImmediateStatement 'val (make-Const "Danny")) ,(make-AssignImmediateStatement 'val (make-Const "Danny"))
,(make-PerformStatement (make-SetToplevel! 0 1 'another))))]) ,(make-PerformStatement (make-SetToplevel! 0 1 'another))))])
(void (run m)) (test (machine-env (run m))
;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting (list (make-toplevel (list (make-undefined) "Danny")))))
;; the toplevel structure in the environment... :(
)
(let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable))) (let ([m (new-machine `(,(make-PerformStatement (make-ExtendEnvironment/Prefix! '(some-variable)))
,(make-AssignImmediateStatement 'val (make-Const "Danny")) ,(make-AssignImmediateStatement 'val (make-Const "Danny"))
,(make-PushEnvironment 5) ,(make-PushEnvironment 5)
,(make-PerformStatement (make-SetToplevel! 5 0 'some-variable))))]) ,(make-PerformStatement (make-SetToplevel! 5 0 'some-variable))))])
(void (run m)) (test (machine-env (run m))
;; FIXME: I'm hitting what appears to be a Typed Racket bug that prevents me from inspecting (list (make-undefined) (make-undefined) (make-undefined) (make-undefined) (make-undefined)
;; the toplevel structure in the environment... :( (make-toplevel (list "Danny")))))
)