jss: fix test

(Olof-Joachim Frahm)

Merges <https://github.com/armedbear/abcl/pull/42>.
parent 8055cc41
...@@ -41,18 +41,18 @@ ...@@ -41,18 +41,18 @@
(- (#"currentTimeMillis" 'system) start))) (- (#"currentTimeMillis" 'system) start)))
(is-type (let ((just-loop (cl-user::print-db (timeit (just-loop 10000))))) (is-type (let ((just-loop (timeit (just-loop 10000))))
(+ 0.0 (+ 0.0
(print (/ (- (timeit (optimized-jss 10000)) just-loop) (print (/ (- (timeit (optimized-jss 10000)) just-loop)
(- (timeit (unoptimized-jss 10000)) just-loop))))) (- (timeit (unoptimized-jss 10000)) just-loop)))))
'(float 0 0.1)) '(float 0 0.1))
(is (let* ((jss::*inhibit-jss-optimization* nil) (let* ((jss::*inhibit-jss-optimization* nil)
(optimized-jss (macroexpand (precompiler::precompile-form '(#"compile" 'regex.Pattern ".*") t)))) (optimized-jss (macroexpand (precompiler::precompile-form '(#"compile" 'regex.Pattern ".*") t))))
(let* ((jss::*inhibit-jss-optimization* t) (let* ((jss::*inhibit-jss-optimization* t)
(unoptimized-jss (macroexpand (precompiler::precompile-form '(#"compile" 'regex.Pattern ".*") t)))) (unoptimized-jss (macroexpand (precompiler::precompile-form '(#"compile" 'regex.Pattern ".*") t))))
(and (eq (car optimized-jss) 'jstatic) (is (car optimized-jss) 'java:jstatic)
(eq (caar unoptimized-jss) 'lambda))))) (is (caar unoptimized-jss) 'lambda)))
(finalize) (finalize)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment