suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more tests

Browse Source
This commit is contained in:
Robby Findler 2013-01-17 15:38:46 -06:00
parent ded6cb1da1
commit 8ccd1a2172
1 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/unstable/2d/reader.rkt
View File

@ -217,10 +217,9 @@
(get-one (not cell-wall-broken?) (car previous-map) #f #t) (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 #f)
(get-one (not cell-wall-broken?) (car previous-map) #t #t)))) (get-one (not cell-wall-broken?) (car previous-map) #t #t))))
(set! allowed-chars (filter values allowed-chars))
(unless (member sep allowed-chars) (unless (member sep allowed-chars)
(line-of-interest) (line-of-interest)
(readerr/expected allowed-chars pos))]) (readerr/expected (filter values allowed-chars) pos))])
(cond (cond
[(null? table-column-breaks) [(null? table-column-breaks)
(whitespace-to-end (+ pos 1)) (whitespace-to-end (+ pos 1))
@ -588,6 +587,14 @@
" ║ ║ ║\n" " ║ ║ ║\n"
" ╚══╩══╝\n")) " ╚══╩══╝\n"))
(list (srcloc #f 4 8 33 1))) (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 (check-equal? (get-err-locs
'("#2d\n" '("#2d\n"
" +----+\n" " +----+\n"
@ -613,6 +620,29 @@
" ║ ║ ║\n" " ║ ║ ║\n"
" ╚══╩══════╝\n")) " ╚══╩══════╝\n"))
(list (srcloc #f 6 8 69 1))) (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))]) (let ([lines (hash-map lines-table (λ (x y) x))])