edit parser-tester

7 years ago · 66a826d6f6
parent 9c97fe31d7
commit 66a826d6f6
2 changed files with 43 additions and 40 deletions
--- a/beautiful-racket-demo/bf-demo/parser-tester.rkt
+++ b/beautiful-racket-demo/bf-demo/parser-tester.rkt
@ -1,42 +1,3 @@
 #lang br
 (require "parser.rkt")
-(module+ test
-  (require rackunit)
-  (check-equal? (parse-to-datum "++++-+++-++-++[>++++-+++-++-++<-]>.")
-                '(bf-program
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-op "-")
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-op "-")
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-op "-")
-                  (bf-op "+")
-                  (bf-op "+")
-                  (bf-loop
-                   "["
-                   (bf-op ">")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "-")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "-")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "-")
-                   (bf-op "+")
-                   (bf-op "+")
-                   (bf-op "<")
-                   (bf-op "-")
-                   "]")
-                  (bf-op ">")
-                  (bf-op "."))))
+(parse-to-datum "++++-+++-++-++[>++++-+++-++-++<-]>.")
--- a/beautiful-racket-demo/bf-demo/test-parser.rkt
+++ b/beautiful-racket-demo/bf-demo/test-parser.rkt
@ -0,0 +1,42 @@
+#lang br
+(require "parser.rkt")
+(module+ test
+  (require rackunit)
+  (check-equal? (parse-to-datum "++++-+++-++-++[>++++-+++-++-++<-]>.")
+                '(bf-program
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-op "-")
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-op "-")
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-op "-")
+                  (bf-op "+")
+                  (bf-op "+")
+                  (bf-loop
+                   "["
+                   (bf-op ">")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "-")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "-")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "-")
+                   (bf-op "+")
+                   (bf-op "+")
+                   (bf-op "<")
+                   (bf-op "-")
+                   "]")
+                  (bf-op ">")
+                  (bf-op "."))))