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

fix up tests to reflect the module-lexer now behaves a little

Browse Source 
better wrt to its first result

That is, instead of just returning the string "#lang" it now
returns the actual text that was there (it was supposed to be
doing that all along and my recent commit fixed it, but I
missed the test cases)
This commit is contained in:
Robby Findler 2013-02-23 15:41:37 -06:00
parent 18889de808
commit 18c009276d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/syntax-color/module-lexer.rkt
View File

@ -36,10 +36,10 @@
[else (equal? a b)]))
(check-equal? (lex "#lang racket/base" #t)
`(("#lang" other 1 18 #f)
`(("#lang racket/base" other 1 18 #f)
(,eof eof #f #f (proc racket-lexer))))
(check-equal? (lex "#lang racket/base\n1" #t)
`(("#lang" other 1 18 #f)
`(("#lang racket/base" other 1 18 #f)
("\n" white-space 18 19 (proc racket-lexer))
("1" constant 19 20 (proc racket-lexer))
(,eof eof #f #f (proc racket-lexer))))
@ -56,17 +56,17 @@
(check-equal? (lex ";; a\n#lang racket/base" #t)
`(("; a" comment 1 5 #f)
("\n" white-space 5 6 before-lang-line)
("#lang" other 6 23 before-lang-line)
("#lang racket/base" other 6 23 before-lang-line)
(,eof eof #f #f (proc racket-lexer))))
(check-equal? (lex "#lang at-exp racket/base" #t)
`(("#lang" other 1 25 #f)
`(("#lang at-exp racket/base" other 1 25 #f)
(,eof eof 25 25 ((proc scribble-lexer) . #f))))
(check-equal? (lex "#lang at-exp racket/baseBOGUS" #t)
`(("#lang at-exp" error 1 30 #f)
(,eof eof #f #f no-lang-line)))
(check same?
(lex "#lang at-exp racket/base\n1\n" #t)
`(("#lang" other 1 25 #f)
`(("#lang at-exp racket/base" other 1 25 #f)
("\n" white-space 25 26 ((proc scribble-lexer) . #f))
("1" constant 26 27 ((proc scribble-lexer) . dont-care))
("\n" white-space 27 28 ((proc scribble-lexer) . dont-care))