请分享您的想法,参加 2024 年 Clojure 状态调查!

欢迎!请查阅 关于 页面获取更多关于如何使用本站的信息。

0
ClojureScript
(这在 Nashorn 下的 Java 9 中导致 {{cljs.spec-test/test-roundtrip}} 失败。)

节点,在运行这些测试时,除了清理 {{.cljs_nashorn_repl/}},清除 {{nashorn_code_cache/}} 也非常重要,以确保可重复性。

Java 8


$ script/nashornrepljs
要退出,请输入::cljs/quit
cljs.user=> (require '[cljs.spec.alpha :as s])

cljs.user=> (s/def ::even? (s/and number? even?))
:cljs.user/even?
cljs.user=> (s/def ::odd? (s/and number? odd?))
:cljs.user/odd?
cljs.user=> (def s2
  (s/cat :forty-two #{42}
    :odds (s/+ ::odd?)
    :m (s/keys :req-un [::a ::b ::c])
    :oes (s/& (s/* (s/cat :o ::odd? :e ::even?)) #(< (count %) 3))
    :ex (s/* (s/alt :odd ::odd? :even ::even?))))
#'cljs.user/s2
cljs.user=> (s/conform s2 [42 11 13 15 {:a 1 :b 2 :c 3} 1 2 3 42 43 44 11])
{:forty-two 42, :odds [11 13 15], :m {:a 1, :b 2, :c 3}, :oes [{:o 1, :e 2} {:o 3, :e 42}], :ex [[:odd 43] [:even 44] [:odd 11]]}


在 Java 9 下,第一个 {{s/conform}} 失败,但第二个成功。


$ script/nashornrepljs
要退出,请输入::cljs/quit
cljs.user=> (require '[cljs.spec.alpha :as s])

cljs.user=> (s/def ::even? (s/and number? even?))
:cljs.user/even?
cljs.user=> (s/def ::odd? (s/and number? odd?))
:cljs.user/odd?
cljs.user=> (def s2
  (s/cat :forty-two #{42}
    :odds (s/+ ::odd?)
    :m (s/keys :req-un [::a ::b ::c])
    :oes (s/& (s/* (s/cat :o ::odd? :e ::even?)) #(< (count %) 3))
    :ex (s/* (s/alt :odd ::odd? :even ::even?))))
#'cljs.user/s2
cljs.user=> (s/conform s2 [42 11 13 15 {:a 1 :b 2 :c 3} 1 2 3 42 43 44 11])
参数不是数组
  cljs$spec$alpha$deriv (.cljs_nashorn_repl/cljs/spec/alpha.cljs:0:0)
  cljs$spec$alpha$re_conform (.cljs_nashorn_repl/cljs/spec/alpha.cljs:1211:5)
  cljs$spec$alpha$Spec$conform_STAR_$arity$2 (.cljs_nashorn_repl/cljs/spec/alpha.cljs:1252:9)
  cljs$spec$alpha$conform_STAR_ (.cljs_nashorn_repl/cljs/spec/alpha.cljs:39:1)
  cljs$spec$alpha$conform (.cljs_nashorn_repl/cljs/spec/alpha.cljs:153:3)
  (NO_SOURCE_FILE <eval>:1:0)
  (NO_SOURCE_FILE <eval>:1:0)
  (NO_SOURCE_FILE <eval>:1:0)
cljs.user=> (s/conform s2 [42 11 13 15 {:a 1 :b 2 :c 3} 1 2 3 42 43 44 11])
{:forty-two 42, :odds [11 13 15], :m {:a 1, :b 2, :c 3}, :oes [{:o 1, :e 2} {:o 3, :e 42}], :ex [[:odd 43] [:even 44] [:odd 11]]}


打印 {{*e}} 实际上是 Java 异常,这似乎表明这是一个内部错误


cljs.user=> (.printStackTrace *e)
java.lang.IllegalArgumentException: Argument is not an array
  at java.base/java.lang.reflect.Array.getLength(Native Method)
  at jdk.scripting.nashorn/jdk.nashorn.internal.runtime.RewriteException.toObjectArray(RewriteException.java:247)
  at jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2983$194058AA$alpha$cu1$restOf.cljs$spec$alpha$deriv(.cljs_nashorn_repl/goog/../cljs/spec/alpha.js:0)
  at jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2952$217830AA$alpha$cu1$restOf.cljs$spec$alpha$re_conform(.cljs_nashorn_repl/goog/../cljs/spec/alpha.js:4600)
  at jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2760$223940AA$alpha$cu1$restOf.cljs$spec$alpha$regex_spec_impl#cljs$spec$alpha$Spec$conform_STAR_$arity$2(.cljs_nashorn_repl/goog/../cljs/spec/alpha.js:4729)
  at jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2756$1102AA$alpha$cu1$restOf.cljs$spec$alpha$conform_STAR_(.cljs_nashorn_repl/goog/../cljs/spec/alpha.js:36)
  at jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2754$15797AA$alpha$cu1$restOf.cljs$spec$alpha$conform(.cljs_nashorn_repl/goog/../cljs/spec/alpha.js:455)
  at jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2724$42$\^eval\_$cu1$restOf.L:1#L:1(<eval>:1)
    在 jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2723$1$\^eval\_.L:1(<eval>:1)
    在 jdk.scripting.nashorn.scripts/jdk.nashorn.internal.scripts.Script$Recompilation$2722$\^eval\_.:program(<eval>:1)
    在 jdk.scripting.nashorn/jdk.nashorn.internal.runtime.ScriptFunctionData.invoke(ScriptFunctionData.java:652)
    在 jdk.scripting.nashorn/jdk.nashorn.internal.runtime.ScriptFunction.invoke(ScriptFunction.java:513)
    在 jdk.scripting.nashorn/jdk.nashorn.internal.runtime.ScriptRuntime.apply(ScriptRuntime.java:517)
    在 jdk.scripting.nashorn/jdk.nashorn.api.scripting.NashornScriptEngine.evalImpl(NashornScriptEngine.java:448)
    在 jdk.scripting.nashorn/jdk.nashorn.api.scripting.NashornScriptEngine.evalImpl(NashornScriptEngine.java:405)
    在 jdk.scripting.nashorn/jdk.nashorn.api.scripting.NashornScriptEngine.evalImpl(NashornScriptEngine.java:401)
    在 jdk.scripting.nashorn/jdk.nashorn.api.scripting.NashornScriptEngine.eval(NashornScriptEngine.java:154)
    在 java.scripting/javax.script.AbstractScriptEngine.eval(AbstractScriptEngine.java:264)
    在 cljs.repl.nashorn$eval_str.invokeStatic(nashorn.clj:46)
    在 cljs.repl.nashorn$eval_str.invoke(nashorn.clj:45)
    在 cljs.repl.nashorn.NashornEnv._evaluate(nashorn.clj:134)
    在 cljs.repl$evaluate_form.invokeStatic(repl.cljc:538)
    在 cljs.repl$evaluate_form.invoke(repl.cljc:472)
    在 cljs.repl$eval_cljs.invokeStatic(repl.cljc:645)
    在 cljs.repl$eval_cljs.invoke(repl.cljc:638)
    在 cljs.repl$repl_STAR_$read_eval_print__8396.invoke(repl.cljc:918)
    在 cljs.repl$repl_STAR_$fn__8404$fn__8413.invoke(repl.cljc:965)
    在 cljs.repl$repl_STAR_$fn__8404.invoke(repl.cljc:964)
    在 cljs.compiler$with_core_cljs.invokeStatic(compiler.cljc:1285)
    在 cljs.compiler$with_core_cljs.invoke(compiler.cljc:1274)
    在 cljs.repl$repl_STAR_.invokeStatic(repl.cljc:927)
    在 cljs.repl$repl_STAR_.invoke(repl.cljc:798)
    在 cljs.repl$repl.invokeStatic(repl.cljc:1046)
    在 cljs.repl$repl.doInvoke(repl.cljc:976)
    在 clojure.lang.RestFn.invoke(RestFn.java:410)
    在 user$eval9072.invokeStatic(NO_SOURCE_FILE:3)
    在 user$eval9072.invoke(NO_SOURCE_FILE:3)
    在 clojure.lang.Compiler.eval(Compiler.java:7062)
    在 clojure.lang.Compiler.eval(Compiler.java:7025)
    在 clojure.core$eval.invokeStatic(core.clj:3206)
    在 clojure.main$eval_opt.invokeStatic(main.clj:291)
    在 clojure.main$eval_opt.invoke(main.clj:285)
    在 clojure.main$initialize.invokeStatic(main.clj:311)
    在 clojure.main$null_opt.invokeStatic(main.clj:345)
    在 clojure.main$null_opt.invoke(main.clj:342)
    在 clojure.main$main.invokeStatic(main.clj:424)
    在 clojure.main$main.doInvoke(main.clj:387)
    在 clojure.lang.RestFn.applyTo(RestFn.java:137)
    在 clojure.lang.Var.applyTo(Var.java:702)
    在 clojure.main.main(main.java:37)

1 答案

0
...