diff options
author | Andy Wingo <wingo@pobox.com> | 2010-11-18 12:26:20 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-11-18 12:26:20 +0100 |
commit | e92f113a5e4fa5a05a525a9d490d8de203d59e19 (patch) | |
tree | 8bd1fae40dce481d147a9e014bf37349f461b874 | |
parent | a608cad27e43e176d1a6e6d7cb4a53ba3861b308 (diff) | |
download | guile-e92f113a5e4fa5a05a525a9d490d8de203d59e19.tar.gz |
more ecmascript testing
* test-suite/tests/ecmascript.test (eread/1, parse): Also check
read-ecmascript/1, which uses tokenize/1.
-rw-r--r-- | test-suite/tests/ecmascript.test | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/test-suite/tests/ecmascript.test b/test-suite/tests/ecmascript.test index c5ef34438..955296de3 100644 --- a/test-suite/tests/ecmascript.test +++ b/test-suite/tests/ecmascript.test @@ -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" |