more ecmascript testing

* test-suite/tests/ecmascript.test (eread/1, parse): Also check
  read-ecmascript/1, which uses tokenize/1.

diff --git a/test-suite/tests/ecmascript.test b/test-suite/tests/ecmascript.test
index c5ef344..955296d 100644 (file)
--- a/test-suite/tests/ecmascript.test
+++ b/test-suite/tests/ecmascript.test
@@ -24,12 +24,17 @@
 \f
 (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"