Permalink
Browse files

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

  • Loading branch information...
1 parent 7146289 commit ab3c69ceaaa4c31d2c608a3054bafc400e02e7b8 @dyoo committed Feb 1, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 collects/parser-tools/private-lex/error-tests.rkt
@@ -47,15 +47,15 @@
(define-lex-abbrev a b)
(define-lex-abbrev b a)
(let ()
- (lexer ((a) 1))))))
+ (lexer (a 1))))))
(check-regexp-match #rx"regular-expression"
(catch-syn-error
(let ()
(define-lex-abbrev a (repetition 0 1 b))
(define-lex-abbrev b (repetition 0 1 a))
(let ()
- (lexer ((a) 1))))))
+ (lexer (a 1))))))
;; Detecting cycle within same abbreviation:
(check-regexp-match #rx"regular-expression"

0 comments on commit ab3c69c

Please sign in to comment.