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

original commit: ab3c69ceaaa4c31d2c608a3054bafc400e02e7b8
12 years ago · 1acb3c8401
parent c6375182fa
commit 1acb3c8401
1 changed files with 2 additions and 2 deletions
--- a/collects/parser-tools/private-lex/error-tests.rkt
+++ b/collects/parser-tools/private-lex/error-tests.rkt
@ -47,7 +47,7 @@
                       (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 
@ -55,7 +55,7 @@
                       (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"