From a086d1b10e3bf3ccd4a84e94acad07391fa7cf76 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 31 Mar 2011 15:52:37 -0400 Subject: [PATCH] testing --- test-conform.rkt | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/test-conform.rkt b/test-conform.rkt index 10c6745..c581a32 100644 --- a/test-conform.rkt +++ b/test-conform.rkt @@ -53,16 +53,6 @@ (let*-values([(a-machine num-steps) (run (new-machine (run-compiler code)) options ...)] [(actual) (machine-val a-machine)]) - (unless (equal? actual exp) - (raise-syntax-error #f (format "Expected ~s, got ~s" exp actual) - #'stx)) - (unless (= (machine-stack-size a-machine) 1) - (raise-syntax-error #f (format "Stack is not back to the prefix as expected!") - - #'stx)) - (unless (null? (machine-control a-machine)) - (raise-syntax-error #f (format "Control is not empty as expected!") - #'stx)) (printf "ok. ~s steps.\n\n" num-steps)))))]))