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

more ecmascript testing

Browse source 
* test-suite/tests/ecmascript.test (eread/1, parse): Also check
  read-ecmascript/1, which uses tokenize/1.
This commit is contained in:
Andy Wingo 2010-11-18 12:26:20 +01:00
parent a608cad27e
commit e92f113a5e
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test-suite/tests/ecmascript.test
View file

@ -24,12 +24,17 @@
(define (eread str)
(call-with-input-string str read-ecmascript))
(define (eread/1 str)
(call-with-input-string str read-ecmascript/1))
(define-syntax parse
(syntax-rules ()
((_ expression expected)
(pass-if expression
(equal? expected (eread expression))))))
(begin
(pass-if expression
(equal? expected (eread expression)))
(pass-if expression
(equal? expected (eread/1 expression)))))))
(with-test-prefix "parser"