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

Correct the test case so it executes the error path we want.

Browse Source
This commit is contained in:
Danny Yoo 2013-02-01 14:58:47 -07:00
parent 7146289c34
commit ab3c69ceaa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/parser-tools/private-lex/error-tests.rkt
View File

@ -47,7 +47,7 @@
(define-lex-abbrev a b) (define-lex-abbrev a b)
(define-lex-abbrev b a) (define-lex-abbrev b a)
(let () (let ()
(lexer ((a) 1)))))) (lexer (a 1))))))
(check-regexp-match #rx"regular-expression" (check-regexp-match #rx"regular-expression"
(catch-syn-error (catch-syn-error
@ -55,7 +55,7 @@
(define-lex-abbrev a (repetition 0 1 b)) (define-lex-abbrev a (repetition 0 1 b))
(define-lex-abbrev b (repetition 0 1 a)) (define-lex-abbrev b (repetition 0 1 a))
(let () (let ()
(lexer ((a) 1)))))) (lexer (a 1))))))
;; Detecting cycle within same abbreviation: ;; Detecting cycle within same abbreviation:
(check-regexp-match #rx"regular-expression" (check-regexp-match #rx"regular-expression"