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

unit testing the assembler

Browse Source
This commit is contained in:
Danny Yoo 2011-03-09 13:43:04 -05:00
parent 55a7de098f
commit d7554b2ae4
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test-assemble.rkt
View File

@ -45,7 +45,19 @@
;; Assigning a number
(test (E (make-AssignImmediateStatement 'val (make-Const 42))) (test (E (make-AssignImmediateStatement 'val (make-Const 42)))
"42") "42")
;; Assigning a string
(test (E (make-AssignImmediateStatement 'val (make-Const "Danny"))) (test (E (make-AssignImmediateStatement 'val (make-Const "Danny")))
"Danny")
;; Assigning a cons
(test (E (make-AssignImmediateStatement 'val (make-Const (cons 1 2))))
"1,2")
;; Assigning to proc means val should still be uninitialized.
(test (E (make-AssignImmediateStatement 'proc (make-Const "Danny")))
"undefined")
;; But we should see the assignment if we inspect MACHINE.proc.
(test (E (make-AssignImmediateStatement 'proc (make-Const "Danny"))
"MACHINE.proc")
"Danny") "Danny")