(ns minijava.test-munch
  (:use (minijava gas ir munch)
        clojure.test))

(deftest test-Move-Mem-Binop
				(let [
				   t1 (Temp (minijava.ir.temp.Temp.))
				   t2 (Temp (minijava.ir.temp.Temp.))
					tree (Move (Mem (BinaryOp :+ (Const 2) t1)) t2)]
				
				 (is (= (select tree)
           '(Movl (MEMORY t1 (CONST 2))t2))
				))

(ns minijava.test-munch
  (:use (minijava gas ir munch)
        clojure.test))

(deftest test-Move-Mem-Binop
				(let [
				   t1 (Temp (minijava.ir.temp.Temp.))
				   t2 (Temp (minijava.ir.temp.Temp.))
					tree (Move (Mem (BinaryOp :+ (Const 2) t1)) t2)]
				
				 (is (= (select tree)
           '(Movl (MEMORY t1 (CONST 2))t2))
				)))

Fix missing paren in test
Fix missing paren in test

mikedouglas/MiniJava,mikedouglas/MiniJava