summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-11-18 12:26:20 +0100
committerAndy Wingo <wingo@pobox.com>2010-11-18 12:26:20 +0100
commite92f113a5e4fa5a05a525a9d490d8de203d59e19 (patch)
tree8bd1fae40dce481d147a9e014bf37349f461b874
parenta608cad27e43e176d1a6e6d7cb4a53ba3861b308 (diff)
downloadguile-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.test9
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"