mbutterick
/
beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

edit parser-tester

Browse Source
v6.3-exception
Matthew Butterick 7 years ago
parent 9c97fe31d7
commit 66a826d6f6
2 changed files with 43 additions and 40 deletions
Show Stats Download Patch File Download Diff File

41
beautiful-racket-demo/bf-demo/parser-tester.rkt
Unescape Escape View File

@ -1,42 +1,3 @@
#lang br #lang br
(require "parser.rkt") (require "parser.rkt")
(module+ test (parse-to-datum "++++-+++-++-++[>++++-+++-++-++<-]>.")
(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 "."))))

42
beautiful-racket-demo/bf-demo/test-parser.rkt
Unescape Escape View File

@ -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 "."))))
Write Preview
Loading…
Cancel
Save