mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

update elisp reader tests to handle EOF tokens

Browse source 
* test-suite/tests/elisp-reader.test (lex-all, "end-of-input",
  "lexer/1"): Check for an EOF token instead of the symbol `*eoi*'.
This commit is contained in:
Brian Templeton 2010-07-01 22:38:23 -04:00 • committed by Andy Wingo
parent 2ce5e74073
commit e9de35293f
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/elisp-reader.test
View file

@ -32,7 +32,7 @@
(define (lex-all lexer)
(let iterate ((result '()))
(let ((token (lexer)))
(if (eq? token '*eoi*)
(if (eq? (car token) 'eof)
(reverse result)
(iterate (cons token result))))))
@ -43,9 +43,9 @@
(let ((lexer (get-string-lexer "")))
(pass-if "end-of-input"
(and (eq? (lexer) '*eoi*)
(eq? (lexer) '*eoi*)
(eq? (lexer) '*eoi*))))
(and (eq? (car (lexer)) 'eof)
(eq? (car (lexer)) 'eof)
(eq? (car (lexer)) 'eof))))
(pass-if "single character tokens"
(equal? (lex-string "()[]'`,,@ . ")
@ -125,8 +125,8 @@ test\"ab\"\\ abcd
get-lexer/1)))
(pass-if "lexer/1"
(and (equal? (lex-all lexer) (lex-string lex1-string))
(eq? (lexer) '*eoi*)
(eq? (lexer) '*eoi*)))))
(eq? (car (lexer)) 'eof)
(eq? (car (lexer)) 'eof)))))
; ==============================================================================