From 8ccd1a2172a89adb496982e9a727503d6aaa166b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 17 Jan 2013 15:38:46 -0600 Subject: [PATCH] more tests --- collects/unstable/2d/reader.rkt | 34 +++++++++++++++++++++++++++++++-- 1 file changed, 32 insertions(+), 2 deletions(-) diff --git a/collects/unstable/2d/reader.rkt b/collects/unstable/2d/reader.rkt index a64b78fdd1..1c7b4ae39a 100644 --- a/collects/unstable/2d/reader.rkt +++ b/collects/unstable/2d/reader.rkt @@ -217,10 +217,9 @@ (get-one (not cell-wall-broken?) (car previous-map) #f #t) (get-one (not cell-wall-broken?) (car previous-map) #t #f) (get-one (not cell-wall-broken?) (car previous-map) #t #t)))) - (set! allowed-chars (filter values allowed-chars)) (unless (member sep allowed-chars) (line-of-interest) - (readerr/expected allowed-chars pos))]) + (readerr/expected (filter values allowed-chars) pos))]) (cond [(null? table-column-breaks) (whitespace-to-end (+ pos 1)) @@ -588,6 +587,14 @@ " ║ ║ ║\n" " ╚══╩══╝\n")) (list (srcloc #f 4 8 33 1))) + (check-equal? (get-err-locs + '("#2d\n" + " ╔══╦══╗\n" + " ║ ║ ║\n" + " ╠═\n" + " ║ ║ ║\n" + " ╚══╩══╝\n")) + (list (srcloc #f 4 4 29 1))) (check-equal? (get-err-locs '("#2d\n" " +----+\n" @@ -613,6 +620,29 @@ " ║ ║ ║\n" " ╚══╩══════╝\n")) (list (srcloc #f 6 8 69 1))) + + (check-equal? (get-err-locs + '("#2d\n" + " ╔══╦══╦═══╗\n" + " ║ ║ ║ ║\n" + " ╠══╬══╩═══╣\n" + " ║ ║ ║\n" + " ╠══╬══╝═══╣\n" + " ║ ║ ║\n" + " ╚══╩══════╝\n")) + (list (srcloc #f 6 8 69 1))) + + (check-equal? (get-err-locs + '("#2d\n" + " ╔══╦═══╦═══╗\n" + " ║ ║ ║ ║\n" + " ╠══╬═══╬═══╣\n" + " ║ ║ ║ ║\n" + " ╠══╣ ═ ╠═══╣\n" + " ║ ║ ║ ║\n" + " ╚══╩═══╩═══╝\n")) + (list (srcloc #f 6 7 72 1) + (srcloc #f 6 5 70 1))) ) (let ([lines (hash-map lines-table (λ (x y) x))])