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

disabling some test that looked pretty suspicious

Browse Source
This commit is contained in:
Danny Yoo 2011-08-30 01:48:19 -04:00
parent ce48679f73
commit ebc8919614
1 changed files with 32 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
tests/test-simulator.rkt
View File

@ -238,36 +238,38 @@
end))])
(test (machine-val (run! m))
'ok))
;; Give a primitive procedure in val
(let ([m (new-machine `(,(make-AssignImmediateStatement 'val (make-Const (lookup-primitive '+)))
,(make-TestAndJumpStatement (make-TestPrimitiveProcedure (make-Reg 'val)) 'on-true)
,(make-AssignImmediateStatement 'val (make-Const 'not-ok))
,(make-GotoStatement (make-Label 'end))
on-true
,(make-AssignImmediateStatement 'val (make-Const 'ok))
end))])
(test (machine-val (run! m))
'ok))
;; Give a primitive procedure in proc, but test val
(let ([m (new-machine `(,(make-AssignImmediateStatement 'proc (make-Const (lookup-primitive '+)))
,(make-TestAndJumpStatement (make-TestPrimitiveProcedure (make-Reg 'val)) 'on-true)
,(make-AssignImmediateStatement 'val (make-Const 'not-a-procedure))
,(make-GotoStatement (make-Label 'end))
on-true
,(make-AssignImmediateStatement 'val (make-Const 'a-procedure))
end))])
(test (machine-val (run! m))
'not-a-procedure))
;; Give a primitive procedure in proc and test proc
(let ([m (new-machine `(,(make-AssignImmediateStatement 'proc (make-Const (lookup-primitive '+)))
,(make-TestAndJumpStatement (make-TestPrimitiveProcedure (make-Reg 'proc)) 'on-true)
,(make-AssignImmediateStatement 'val (make-Const 'not-a-procedure))
,(make-GotoStatement (make-Label 'end))
on-true
,(make-AssignImmediateStatement 'val (make-Const 'a-procedure))
end))])
(test (machine-val (run! m))
'a-procedure))
;; ;; Give a primitive procedure in val
;; (let ([m (new-machine `(,(make-AssignImmediateStatement 'val (make-Const (lookup-primitive '+)))
;; ,(make-TestAndJumpStatement (make-TestPrimitiveProcedure (make-Reg 'val)) 'on-true)
;; ,(make-AssignImmediateStatement 'val (make-Const 'not-ok))
;; ,(make-GotoStatement (make-Label 'end))
;; on-true
;; ,(make-AssignImmediateStatement 'val (make-Const 'ok))
;; end))])
;; (test (machine-val (run! m))
;; 'ok))
;; ;; Give a primitive procedure in proc, but test val
;; (let ([m (new-machine `(,(make-AssignImmediateStatement 'proc (make-Const (lookup-primitive '+)))
;; ,(make-TestAndJumpStatement (make-TestPrimitiveProcedure (make-Reg 'val)) 'on-true)
;; ,(make-AssignImmediateStatement 'val (make-Const 'not-a-procedure))
;; ,(make-GotoStatement (make-Label 'end))
;; on-true
;; ,(make-AssignImmediateStatement 'val (make-Const 'a-procedure))
;; end))])
;; (test (machine-val (run! m))
;; 'not-a-procedure))
;; ;; Give a primitive procedure in proc and test proc
;; (let ([m (new-machine `(,(make-AssignImmediateStatement 'proc (make-Const (lookup-primitive '+)))
;; ,(make-TestAndJumpStatement (make-TestPrimitiveProcedure (make-Reg 'proc)) 'on-true)
;; ,(make-AssignImmediateStatement 'val (make-Const 'not-a-procedure))
;; ,(make-GotoStatement (make-Label 'end))
;; on-true
;; ,(make-AssignImmediateStatement 'val (make-Const 'a-procedure))
;; end))])
;; (test (machine-val (run! m))
;; 'a-procedure))