Changed op-precedence back to a memoized table (performance tweaks).

[clinton/parenscript.git] / t / test.lisp

diff --git a/t/test.lisp b/t/test.lisp
index 716b102..ac390f5 100644 (file)
--- a/t/test.lisp
+++ b/t/test.lisp
@@ -30,9 +30,10 @@
      (same-space-between-statements
       (normalize-whitespace str))))))
 
-(defmacro test-ps-js (testname parenscript javascript)
+(defmacro test-ps-js (testname parenscript javascript &key (js-target-version *js-target-version*))
   `(test ,testname ()
-         (is (string= (normalize-js-code (ps-doc* ',parenscript))
+         (is (string= (normalize-js-code (let ((*js-target-version* ,js-target-version))
+                                           (ps-doc* ',parenscript)))
                       (normalize-js-code ,javascript)))))
 
 (defun run-tests()
@@ -42,4 +43,3 @@
   (run! 'ps-tests)
   (format t "Running Package System tests:~&")
   (run! 'package-system-tests))
-