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

fix tests

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-03 17:49:43 -07:00
parent 5d9e106147
commit 51f8726c31
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
beautiful-racket-ragg/br/ragg/test/test-errors.rkt
View File

@ -34,18 +34,21 @@
;; errors with position are sensitive to length of lang line
(define lang-line "#lang br/ragg")
(check-compile-error "#lang br/ragg"
(check-compile-error (format "~a" lang-line)
"The grammar does not appear to have any rules")
(check-compile-error "#lang br/ragg\nfoo"
"Error while parsing grammar near: foo [line=2, column=0, position=12]")
(check-compile-error (format "~a\nfoo" lang-line)
"Error while parsing grammar near: foo [line=2, column=0, position=15]")
(check-compile-error "#lang br/ragg\nnumber : 42"
"Error while parsing grammar near: 42 [line=2, column=9, position=21]")
(check-compile-error (format "~a\nnumber : 42" lang-line)
"Error while parsing grammar near: 42 [line=2, column=9, position=24]")
(check-compile-error "#lang br/ragg\nnumber : 1"
"Error while parsing grammar near: 1 [line=2, column=9, position=21]")
(check-compile-error (format "~a\nnumber : 1" lang-line)
"Error while parsing grammar near: 1 [line=2, column=9, position=24]")
@ -127,7 +130,7 @@ EOF
(check-compile-error #<<EOF
#lang racket/base
(require ragg/examples/simple-line-drawing)
(require br/ragg/examples/simple-line-drawing)
(define bad-parser (make-rule-parser crunchy))
EOF
"Rule crunchy is not defined in the grammar"