mbutterick
/
brag
1
0
Fork 0
Code Issues 3 Pull Requests 1 Projects Releases Wiki Activity

Remove runtime dependency on rackunit

Browse Source
remotes/jackfirth/master
Jack Firth 3 years ago
parent e7415fc690
commit dbebeb54d8
2 changed files with 70 additions and 66 deletions
Show Stats Download Patch File Download Diff File

2
info.rkt
Unescape Escape View File

@ -10,12 +10,12 @@
(define deps '(["base" #:version "6.3"] (define deps '(["base" #:version "6.3"]
"rackunit-lib"
"syntax-color-lib")) "syntax-color-lib"))
(define build-deps '("at-exp-lib" (define build-deps '("at-exp-lib"
"racket-doc" "racket-doc"
"rackunit-lib"
"scribble-lib" "scribble-lib"
"syntax-color-doc")) "syntax-color-doc"))

134
parser-tools/private-lex/error-tests.rkt
Unescape Escape View File

@ -1,81 +1,85 @@
#lang racket/base #lang racket/base
(require (for-syntax racket/base)
yaragg/parser-tools/lex
rackunit)
(define-syntax (catch-syn-error stx) (module+ test
(syntax-case stx ()
[(_ arg)
(datum->syntax
#'here
(with-handlers ((exn:fail:syntax? exn-message))
(syntax-local-expand-expression #'arg)
"not-an-error"))]))
(check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev))) (require (for-syntax racket/base)
(check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev a))) yaragg/parser-tools/lex
(check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev (a b) v))) rackunit)
(check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev 1 1)))
(check-regexp-match #rx"lex-abbrevs" (catch-syn-error (define-lex-abbrevs ())))
(check-regexp-match #rx"lex-trans" (catch-syn-error (define-lex-trans))) (define-syntax (catch-syn-error stx)
(syntax-case stx ()
[(_ arg)
(datum->syntax
#'here
(with-handlers ((exn:fail:syntax? exn-message))
(syntax-local-expand-expression #'arg)
"not-an-error"))]))
(check-regexp-match #rx"lexer" (catch-syn-error (lexer))) (check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev)))
(check-regexp-match #rx"lexer" (catch-syn-error (lexer ("a" "b" "c")))) (check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev a)))
(check-regexp-match #rx"lexer" (catch-syn-error (lexer ()))) (check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev (a b) v)))
(check-regexp-match #rx"lexer" (catch-syn-error (lexer ("")))) (check-regexp-match #rx"lex-abbrev" (catch-syn-error (define-lex-abbrev 1 1)))
(check-regexp-match #rx"lex-abbrevs" (catch-syn-error (define-lex-abbrevs ())))
(check-regexp-match #rx"regular-expression" (catch-syn-error (lexer (a 1)))) (check-regexp-match #rx"lex-trans" (catch-syn-error (define-lex-trans)))
(check-regexp-match #rx"regular-expression" (catch-syn-error (lexer ((a) 1))))
(check-regexp-match #rx"regular-expression" (catch-syn-error (let ((a 1)) (lexer ((a) 1)))))
(check-regexp-match #rx"regular-expression" (check-regexp-match #rx"lexer" (catch-syn-error (lexer)))
(catch-syn-error (let-syntax ((a 1)) (check-regexp-match #rx"lexer" (catch-syn-error (lexer ("a" "b" "c"))))
(lexer ((a) 1))))) (check-regexp-match #rx"lexer" (catch-syn-error (lexer ())))
(check-regexp-match #rx"lexer" (catch-syn-error (lexer (""))))
(check-regexp-match #rx"define-lex-trans" (check-regexp-match #rx"regular-expression" (catch-syn-error (lexer (a 1))))
(catch-syn-error (check-regexp-match #rx"regular-expression" (catch-syn-error (lexer ((a) 1))))
(let () (check-regexp-match #rx"regular-expression" (catch-syn-error (let ((a 1)) (lexer ((a) 1)))))
(define-lex-trans a 1)
(check-regexp-match #rx"regular-expression"
(catch-syn-error (let-syntax ((a 1))
(lexer ((a) 1)))))
(check-regexp-match #rx"define-lex-trans"
(catch-syn-error
(let () (let ()
(lexer ((a) 1)))))) (define-lex-trans a 1)
(let ()
(lexer ((a) 1))))))
;; Detecting mutual recursion cycle: ;; Detecting mutual recursion cycle:
(check-regexp-match #rx"regular-expression" (check-regexp-match #rx"regular-expression"
(catch-syn-error (catch-syn-error
(let ()
(define-lex-abbrev a b)
(define-lex-abbrev b a)
(let () (let ()
(lexer (a 1)))))) (define-lex-abbrev a b)
(define-lex-abbrev b a)
(let ()
(lexer (a 1))))))
(check-regexp-match #rx"regular-expression" (check-regexp-match #rx"regular-expression"
(catch-syn-error (catch-syn-error
(let ()
(define-lex-abbrev a (repetition 0 1 b))
(define-lex-abbrev b (repetition 0 1 a))
(let () (let ()
(lexer (a 1)))))) (define-lex-abbrev a (repetition 0 1 b))
(define-lex-abbrev b (repetition 0 1 a))
(let ()
(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"
(catch-syn-error (catch-syn-error
(let () (let ()
(define-lex-abbrev balanced (define-lex-abbrev balanced
(union (concatenation "(" balanced ")" balanced) (union (concatenation "(" balanced ")" balanced)
any-char)) any-char))
(lexer (lexer
[balanced (string-append lexeme (balanced input-port))] [balanced (string-append lexeme (balanced input-port))]
[(eof) ""])))) [(eof) ""]))))
(check-regexp-match #rx"regular-expression" (catch-syn-error (lexer (1 1)))) (check-regexp-match #rx"regular-expression" (catch-syn-error (lexer (1 1))))
(check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition) 1)))) (check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition) 1))))
(check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition #\1 #\1 "3") 1)))) (check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition #\1 #\1 "3") 1))))
(check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition 1 #\1 "3") 1)))) (check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition 1 #\1 "3") 1))))
(check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition 1 0 "3") 1)))) (check-regexp-match #rx"repetition" (catch-syn-error (lexer ((repetition 1 0 "3") 1))))
(check-regexp-match #rx"complement" (catch-syn-error (lexer ((complement) 1)))) (check-regexp-match #rx"complement" (catch-syn-error (lexer ((complement) 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) 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)))))

Write Preview
Loading…
Cancel
Save