|
|
@ -1,4 +1,7 @@
|
|
|
|
#lang racket/base
|
|
|
|
#lang racket/base
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
|
|
|
|
|
|
|
|
(require (for-syntax racket/base)
|
|
|
|
(require (for-syntax racket/base)
|
|
|
|
yaragg/parser-tools/lex
|
|
|
|
yaragg/parser-tools/lex
|
|
|
|
rackunit)
|
|
|
|
rackunit)
|
|
|
@ -78,4 +81,5 @@
|
|
|
|
(check-regexp-match #rx"char-range" (catch-syn-error (lexer ((char-range) 1))))
|
|
|
|
(check-regexp-match #rx"char-range" (catch-syn-error (lexer ((char-range) 1))))
|
|
|
|
(check-regexp-match #rx"char-range" (catch-syn-error (lexer ((char-range #\9 #\0) 1))))
|
|
|
|
(check-regexp-match #rx"char-range" (catch-syn-error (lexer ((char-range #\9 #\0) 1))))
|
|
|
|
(check-regexp-match #rx"char-complement" (catch-syn-error (lexer ((char-complement) 1))))
|
|
|
|
(check-regexp-match #rx"char-complement" (catch-syn-error (lexer ((char-complement) 1))))
|
|
|
|
(check-regexp-match #rx"char-complement" (catch-syn-error (lexer ((char-complement (concatenation "1" "2")) 1))))
|
|
|
|
(check-regexp-match #rx"char-complement"
|
|
|
|
|
|
|
|
(catch-syn-error (lexer ((char-complement (concatenation "1" "2")) 1)))))
|
|
|
|