diff --git a/src/test/cljs/cljs/storm/bodies_test.cljs b/src/test/cljs/cljs/storm/bodies_test.cljs index d7089b098..5176f5a51 100644 --- a/src/test/cljs/cljs/storm/bodies_test.cljs +++ b/src/test/cljs/cljs/storm/bodies_test.cljs @@ -9,10 +9,10 @@ (let [r (b/tried)] (is (= 4 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "tried" [] 375669735] - [:expr-exec 2 "3,1" 375669735] - [:expr-exec "#object[...]" "3,2,1" 375669735] + [:expr-exec 2 "3,1"] + [:expr-exec "#object[...]" "3,2,1"] [:bind "e" "#object[...]" ""] - [:fn-return 4 "3,3,3" 375669735]] + [:fn-return 4 "3,3,3"]] (u/capture)) "captured traces should match."))) (deftest letfn-test @@ -21,11 +21,11 @@ (is (= [[:fn-call "cljs.storm.tests-code.bodies" "letfn-fn" [] 1673004201] [:fn-call "cljs.storm.tests-code.bodies" "square" [2] 1673004201] [:bind "x" 2 ""] - [:expr-exec 2 "3,1,0,2,1" 1673004201] - [:expr-exec 2 "3,1,0,2,2" 1673004201] - [:fn-return 4 "3,1,0,2" 1673004201] - [:expr-exec 4 "3,2,2" 1673004201] - [:fn-return 5 "3,2" 1673004201]] + [:expr-exec 2 "3,1,0,2,1"] + [:expr-exec 2 "3,1,0,2,2"] + [:fn-return 4 "3,1,0,2"] + [:expr-exec 4 "3,2,2"] + [:fn-return 5 "3,2"]] (u/capture)) "captured traces should match."))) (deftest loops-test @@ -37,30 +37,30 @@ [:bind "s" 0 "3"] [:bind "n" 2 "3"] - [:expr-exec 2 "3,2,1,1" -1606941997] - [:expr-exec false "3,2,1" -1606941997] - [:expr-exec 0 "3,2,3,1,1" -1606941997] - [:expr-exec 2 "3,2,3,1,2" -1606941997] - [:expr-exec 2 "3,2,3,1" -1606941997] - [:expr-exec 2 "3,2,3,2,1" -1606941997] - [:expr-exec 1 "3,2,3,2" -1606941997] + [:expr-exec 2 "3,2,1,1"] + [:expr-exec false "3,2,1"] + [:expr-exec 0 "3,2,3,1,1"] + [:expr-exec 2 "3,2,3,1,2"] + [:expr-exec 2 "3,2,3,1"] + [:expr-exec 2 "3,2,3,2,1"] + [:expr-exec 1 "3,2,3,2"] [:bind "s" 2 "3"] [:bind "n" 1 "3"] - [:expr-exec 1 "3,2,1,1" -1606941997] - [:expr-exec false "3,2,1" -1606941997] - [:expr-exec 2 "3,2,3,1,1" -1606941997] - [:expr-exec 1 "3,2,3,1,2" -1606941997] - [:expr-exec 3 "3,2,3,1" -1606941997] - [:expr-exec 1 "3,2,3,2,1" -1606941997] - [:expr-exec 0 "3,2,3,2" -1606941997] + [:expr-exec 1 "3,2,1,1"] + [:expr-exec false "3,2,1"] + [:expr-exec 2 "3,2,3,1,1"] + [:expr-exec 1 "3,2,3,1,2"] + [:expr-exec 3 "3,2,3,1"] + [:expr-exec 1 "3,2,3,2,1"] + [:expr-exec 0 "3,2,3,2"] [:bind "s" 3 "3"] [:bind "n" 0 "3"] - [:expr-exec 0 "3,2,1,1" -1606941997] - [:expr-exec true "3,2,1" -1606941997] + [:expr-exec 0 "3,2,1,1"] + [:expr-exec true "3,2,1"] - [:fn-return 3 "3,2,2" -1606941997]] + [:fn-return 3 "3,2,2"]] (u/capture)) "captured traces should match."))) (deftest let-test @@ -68,15 +68,15 @@ (is (= 15 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "letter" [] 844078910] [:bind "a" 5 "3"] - [:expr-exec 5 "3,1,3,1" 844078910] - [:expr-exec 10 "3,1,3" 844078910] + [:expr-exec 5 "3,1,3,1"] + [:expr-exec 10 "3,1,3"] [:bind "b" 10 "3"] - [:expr-exec 5 "3,1,5,1,1,1" 844078910] - [:expr-exec 10 "3,1,5,1,1,2" 844078910] - [:expr-exec 15 "3,1,5,1,1" 844078910] + [:expr-exec 5 "3,1,5,1,1,1"] + [:expr-exec 10 "3,1,5,1,1,2"] + [:expr-exec 15 "3,1,5,1,1"] [:bind "z" 15 "3,1,5"] [:bind "c" 15 "3"] - [:fn-return 15 "3,2" 844078910]] + [:fn-return 15 "3,2"]] (u/capture)) "captured traces should match."))) (deftest case-test @@ -84,29 +84,29 @@ (is (= 42 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "casey" [":first"] -742825312] [:bind "x" ":first" ""] - [:expr-exec ":first" "3,1" -742825312] - [:fn-return 42 "3,3" -742825312]] + [:expr-exec ":first" "3,1"] + [:fn-return 42 "3,3"]] (u/capture)) "captured traces should match."))) (deftest do-test (let [r (b/doer)] (is (= 8 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "doer" [] -1895706795] - [:expr-exec 2 "3,1" -1895706795] - [:expr-exec 4 "3,2" -1895706795] - [:expr-exec 6 "3,3,1" -1895706795] - [:fn-return 8 "3,3,2" -1895706795]] + [:expr-exec 2 "3,1"] + [:expr-exec 4 "3,2"] + [:expr-exec 6 "3,3,1"] + [:fn-return 8 "3,3,2"]] (u/capture)) "captured traces should match."))) (deftest set!-test (let [r (b/setter)] (is (= 42 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "setter" [] 807580509] - [:expr-exec 2 "3" 807580509] - [:expr-exec 40 "4" 807580509] - #_[:expr-exec 2 "5,1" 807580509] ;; TODO: bring this back - #_[:expr-exec 40 "5,2" 807580509] - [:fn-return 42 "5" 807580509]] + [:expr-exec 2 "3"] + [:expr-exec 40 "4"] + #_[:expr-exec 2 "5,1"] ;; TODO: bring this back + #_[:expr-exec 40 "5,2"] + [:fn-return 42 "5"]] (u/capture)) "captured traces should match."))) (deftest interop-test @@ -114,11 +114,11 @@ (is (= 42 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "interopter" ["#js {:num 2, :f #object[...]}"] 919708180] [:bind "o" "#js {:num 2, :f #object[...]}" ""] - [:expr-exec "#js {:num 2, :f #object[...]}" "3,1,1" 919708180] - [:expr-exec 2 "3,1" 919708180] - [:expr-exec "#js {:num 2, :f #object[...]}" "3,2,1" 919708180] - [:expr-exec 40 "3,2" 919708180] - [:fn-return 42 "3" 919708180]] + [:expr-exec "#js {:num 2, :f #object[...]}" "3,1,1"] + [:expr-exec 2 "3,1"] + [:expr-exec "#js {:num 2, :f #object[...]}" "3,2,1"] + [:expr-exec 40 "3,2"] + [:fn-return 42 "3"]] (u/capture)) "captured traces should match."))) (deftest integration-1-test @@ -126,21 +126,21 @@ (is (= 4 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "integration-1" [{:x 2}] -608980379] [:bind "m" {:x 2} ""] - [:expr-exec {:x 2} "3,1,1,1,1" -608980379] - [:expr-exec true "3,1,1,1" -608980379] - [:expr-exec {:x 2} "3,1,1,2,1" -608980379] - [:expr-exec 2 "3,1,1,2" -608980379] + [:expr-exec {:x 2} "3,1,1,1,1"] + [:expr-exec true "3,1,1,1"] + [:expr-exec {:x 2} "3,1,1,2,1"] + [:expr-exec 2 "3,1,1,2"] [:bind "x" 2 "3"] - [:expr-exec 2 "3,2,1" -608980379] - [:expr-exec 2 "3,2,2" -608980379] - [:fn-return 4 "3,2" -608980379]] + [:expr-exec 2 "3,2,1"] + [:expr-exec 2 "3,2,2"] + [:fn-return 4 "3,2"]] (u/capture)) "captured traces should match."))) (deftest js-fn-call-test (let [r (b/js-fn-call)] (is (instance? js/Promise r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "js-fn-call" [] -166767748] - [:fn-return "#object[...]" "3" -166767748]] + [:fn-return "#object[...]" "3"]] (u/capture)) "captured traces should match."))) (deftest clj-fn-call-test @@ -148,9 +148,9 @@ (is (= {:a {:b 42}, [:c] 42} r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.bodies" "clj-fn-call" [{}] -1988855813] [:bind "m" {} ""] - [:expr-exec {} "3,1,1" -1988855813] - [:expr-exec {:a {:b 42}} "3,1" -1988855813] - [:expr-exec {} "3,2,1" -1988855813] - [:expr-exec {[:c] 42} "3,2" -1988855813] - [:fn-return {:a {:b 42}, [:c] 42} "3" -1988855813]] + [:expr-exec {} "3,1,1"] + [:expr-exec {:a {:b 42}} "3,1"] + [:expr-exec {} "3,2,1"] + [:expr-exec {[:c] 42} "3,2"] + [:fn-return {:a {:b 42}, [:c] 42} "3"]] (u/capture)) "captured traces should match."))) diff --git a/src/test/cljs/cljs/storm/functions_test.cljs b/src/test/cljs/cljs/storm/functions_test.cljs index f33aabda8..61743df6f 100644 --- a/src/test/cljs/cljs/storm/functions_test.cljs +++ b/src/test/cljs/cljs/storm/functions_test.cljs @@ -11,7 +11,7 @@ (is (= [[:fn-call "cljs.storm.tests-code.functions" "empty-body" [40 2] 110441699] [:bind "a" 40 ""] [:bind "b" 2 ""] - [:fn-return nil "" 110441699]] + [:fn-return nil ""]] (u/capture)) "captured traces should match."))) (deftest simple-fn-test @@ -20,16 +20,16 @@ (is (= [[:fn-call "cljs.storm.tests-code.functions" "simple" [40 2] 1954697464] [:bind "a" 40 ""] [:bind "b" 2 ""] - [:expr-exec 40 "3,1" 1954697464] - [:expr-exec 2 "3,2" 1954697464] - [:fn-return 42 "3" 1954697464]] + [:expr-exec 40 "3,1"] + [:expr-exec 2 "3,2"] + [:fn-return 42 "3"]] (u/capture)) "captured traces should match."))) (deftest defed-fn-test (let [r (fns/defed)] (is (= 42 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.functions" "defed" [] -699754393] - [:fn-return 42 "2" -699754393]] + [:fn-return 42 "2"]] (u/capture)) "captured traces should match."))) (deftest multi-arity-fn-test @@ -37,14 +37,14 @@ (is (= 42 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.functions" "multi-arity" [40] -876490731] [:bind "a" 40 ""] - [:expr-exec 40 "2,1,1" -876490731] + [:expr-exec 40 "2,1,1"] [:fn-call "cljs.storm.tests-code.functions" "multi-arity" [40 2] -876490731] [:bind "a" 40 ""] [:bind "b" 2 ""] - [:expr-exec 40 "3,1,1" -876490731] - [:expr-exec 2 "3,1,2" -876490731] - [:fn-return 42 "3,1" -876490731] - [:fn-return 42 "2,1" -876490731]] + [:expr-exec 40 "3,1,1"] + [:expr-exec 2 "3,1,2"] + [:fn-return 42 "3,1"] + [:fn-return 42 "2,1"]] (u/capture)) "captured traces should match."))) (deftest args-destructuring-fn-test @@ -53,9 +53,9 @@ (is (= [[:fn-call "cljs.storm.tests-code.functions" "args-destructuring" [{:a 40, :b 2}] 713448837] [:bind "a" 40 ""] [:bind "b" 2 ""] - [:expr-exec 40 "3,1" 713448837] - [:expr-exec 2 "3,2" 713448837] - [:fn-return 42 "3" 713448837]] + [:expr-exec 40 "3,1"] + [:expr-exec 2 "3,2"] + [:fn-return 42 "3"]] (u/capture)) "captured traces should match."))) (deftest variadic-fn-test @@ -63,8 +63,8 @@ (is (= 10 r) "function return should be right.") (is (= '[[:fn-call "cljs.storm.tests-code.functions" "variadic" [(1 2 3 4)] 1269596501] [:bind "nums" (1 2 3 4) ""] - [:expr-exec (1 2 3 4) "3,2" 1269596501] - [:fn-return 10 "3" 1269596501]] + [:expr-exec (1 2 3 4) "3,2"] + [:fn-return 10 "3"]] (u/capture)) "captured traces should match."))) (deftest tail-recursive-fn-test @@ -73,23 +73,23 @@ (is (= [[:fn-call "cljs.storm.tests-code.functions" "tail-recursive" [0 2] 1815279187] [:bind "s" 0 ""] [:bind "n" 2 ""] - [:expr-exec 2 "3,1,1" 1815279187] - [:expr-exec false "3,1" 1815279187] - [:expr-exec 0 "3,3,1,1" 1815279187] - [:expr-exec 2 "3,3,1,2" 1815279187] - [:expr-exec 2 "3,3,1" 1815279187] - [:expr-exec 2 "3,3,2,1" 1815279187] - [:expr-exec 1 "3,3,2" 1815279187] - [:expr-exec 1 "3,1,1" 1815279187] - [:expr-exec false "3,1" 1815279187] - [:expr-exec 2 "3,3,1,1" 1815279187] - [:expr-exec 1 "3,3,1,2" 1815279187] - [:expr-exec 3 "3,3,1" 1815279187] - [:expr-exec 1 "3,3,2,1" 1815279187] - [:expr-exec 0 "3,3,2" 1815279187] - [:expr-exec 0 "3,1,1" 1815279187] - [:expr-exec true "3,1" 1815279187] - [:fn-return 3 "3,2" 1815279187]] + [:expr-exec 2 "3,1,1"] + [:expr-exec false "3,1"] + [:expr-exec 0 "3,3,1,1"] + [:expr-exec 2 "3,3,1,2"] + [:expr-exec 2 "3,3,1"] + [:expr-exec 2 "3,3,2,1"] + [:expr-exec 1 "3,3,2"] + [:expr-exec 1 "3,1,1"] + [:expr-exec false "3,1"] + [:expr-exec 2 "3,3,1,1"] + [:expr-exec 1 "3,3,1,2"] + [:expr-exec 3 "3,3,1"] + [:expr-exec 1 "3,3,2,1"] + [:expr-exec 0 "3,3,2"] + [:expr-exec 0 "3,1,1"] + [:expr-exec true "3,1"] + [:fn-return 3 "3,2"]] (u/capture)) "captured traces should match."))) (deftest recursive-fn-test @@ -97,45 +97,45 @@ (is (= 24 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.functions" "factorial" [4] 71712880] [:bind "n" 4 ""] - [:expr-exec 4 "3,1,1" 71712880] - [:expr-exec false "3,1" 71712880] - [:expr-exec 4 "3,3,1" 71712880] - [:expr-exec 4 "3,3,2,1,1" 71712880] - [:expr-exec 3 "3,3,2,1" 71712880] + [:expr-exec 4 "3,1,1"] + [:expr-exec false "3,1"] + [:expr-exec 4 "3,3,1"] + [:expr-exec 4 "3,3,2,1,1"] + [:expr-exec 3 "3,3,2,1"] [:fn-call "cljs.storm.tests-code.functions" "factorial" [3] 71712880] [:bind "n" 3 ""] - [:expr-exec 3 "3,1,1" 71712880] - [:expr-exec false "3,1" 71712880] - [:expr-exec 3 "3,3,1" 71712880] - [:expr-exec 3 "3,3,2,1,1" 71712880] - [:expr-exec 2 "3,3,2,1" 71712880] + [:expr-exec 3 "3,1,1"] + [:expr-exec false "3,1"] + [:expr-exec 3 "3,3,1"] + [:expr-exec 3 "3,3,2,1,1"] + [:expr-exec 2 "3,3,2,1"] [:fn-call "cljs.storm.tests-code.functions" "factorial" [2] 71712880] [:bind "n" 2 ""] - [:expr-exec 2 "3,1,1" 71712880] - [:expr-exec false "3,1" 71712880] - [:expr-exec 2 "3,3,1" 71712880] - [:expr-exec 2 "3,3,2,1,1" 71712880] - [:expr-exec 1 "3,3,2,1" 71712880] + [:expr-exec 2 "3,1,1"] + [:expr-exec false "3,1"] + [:expr-exec 2 "3,3,1"] + [:expr-exec 2 "3,3,2,1,1"] + [:expr-exec 1 "3,3,2,1"] [:fn-call "cljs.storm.tests-code.functions" "factorial" [1] 71712880] [:bind "n" 1 ""] - [:expr-exec 1 "3,1,1" 71712880] - [:expr-exec false "3,1" 71712880] - [:expr-exec 1 "3,3,1" 71712880] - [:expr-exec 1 "3,3,2,1,1" 71712880] - [:expr-exec 0 "3,3,2,1" 71712880] + [:expr-exec 1 "3,1,1"] + [:expr-exec false "3,1"] + [:expr-exec 1 "3,3,1"] + [:expr-exec 1 "3,3,2,1,1"] + [:expr-exec 0 "3,3,2,1"] [:fn-call "cljs.storm.tests-code.functions" "factorial" [0] 71712880] [:bind "n" 0 ""] - [:expr-exec 0 "3,1,1" 71712880] - [:expr-exec true "3,1" 71712880] - [:fn-return 1 "" 71712880] - [:expr-exec 1 "3,3,2" 71712880] - [:fn-return 1 "3,3" 71712880] - [:expr-exec 1 "3,3,2" 71712880] - [:fn-return 2 "3,3" 71712880] - [:expr-exec 2 "3,3,2" 71712880] - [:fn-return 6 "3,3" 71712880] - [:expr-exec 6 "3,3,2" 71712880] - [:fn-return 24 "3,3" 71712880]] + [:expr-exec 0 "3,1,1"] + [:expr-exec true "3,1"] + [:fn-return 1 ""] + [:expr-exec 1 "3,3,2"] + [:fn-return 1 "3,3"] + [:expr-exec 1 "3,3,2"] + [:fn-return 2 "3,3"] + [:expr-exec 2 "3,3,2"] + [:fn-return 6 "3,3"] + [:expr-exec 6 "3,3,2"] + [:fn-return 24 "3,3"]] (u/capture)) "captured traces should match."))) (deftest multimethods-test @@ -143,7 +143,7 @@ (is (= 16 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.functions" "area" [{:type :square, :side 4}] -1257757404] [:bind "side" 4 ""] - [:expr-exec 4 "4,1" -1257757404] - [:expr-exec 4 "4,2" -1257757404] - [:fn-return 16 "4" -1257757404]] + [:expr-exec 4 "4,1"] + [:expr-exec 4 "4,2"] + [:fn-return 16 "4"]] (u/capture)) "captured traces should match."))) diff --git a/src/test/cljs/cljs/storm/types_test.cljs b/src/test/cljs/cljs/storm/types_test.cljs index 0127ed676..ca82d7d01 100644 --- a/src/test/cljs/cljs/storm/types_test.cljs +++ b/src/test/cljs/cljs/storm/types_test.cljs @@ -10,18 +10,18 @@ r (ts/area s)] (is (= 25 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.types" "area" [s] 2018231146] - [:expr-exec 5 "4,2,1" 2018231146] - [:expr-exec 5 "4,2,2" 2018231146] - [:fn-return 25 "4,2" 2018231146]] + [:expr-exec 5 "4,2,1"] + [:expr-exec 5 "4,2,2"] + [:fn-return 25 "4,2"]] (u/capture)) "captured traces should match."))) (deftest deftype-test (let [r (ts/area (ts/->Circle 2))] (is (= 12.56 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.types" "area" ["#object[...]"] -1182932616] - [:expr-exec 2 "4,2,2" -1182932616] - [:expr-exec 2 "4,2,3" -1182932616] - [:fn-return 12.56 "4,2" -1182932616]] + [:expr-exec 2 "4,2,2"] + [:expr-exec 2 "4,2,3"] + [:fn-return 12.56 "4,2"]] (u/capture)) "captured traces should match."))) (deftest extend-type-basic-test @@ -29,8 +29,8 @@ (is (= 9 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.types" "area" ["tha-shape"] 1515835378] [:bind "s" "tha-shape" "3"] - [:expr-exec "tha-shape" "3,2,1" 1515835378] - [:fn-return 9 "3,2" 1515835378]] + [:expr-exec "tha-shape" "3,2,1"] + [:fn-return 9 "3,2"]] (u/capture)) "captured traces should match."))) (deftest extend-type-proto-test @@ -38,8 +38,8 @@ r (ts/sides-count tr)] (is (= 3 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.types" "sides-count" [tr] 1211097684] - [:expr-exec 2 "3,2,2" 1211097684] - [:fn-return 3 "3,2" 1211097684]] + [:expr-exec 2 "3,2,2"] + [:fn-return 3 "3,2"]] (u/capture)) "captured traces should match."))) (deftest extend-proto-basic-test @@ -47,9 +47,9 @@ (is (= 100 r) "function return should be right.") (is (= [[:fn-call "cljs.storm.tests-code.types" "area" [10] 1752788479] [:bind "n" 10 ""] - [:expr-exec 10 "8,2,1" 1752788479] - [:expr-exec 10 "8,2,2" 1752788479] - [:fn-return 100 "8,2" 1752788479]] + [:expr-exec 10 "8,2,1"] + [:expr-exec 10 "8,2,2"] + [:fn-return 100 "8,2"]] (u/capture)) "captured traces should match."))) (deftest extend-proto-type-test @@ -59,9 +59,9 @@ (is (= [[:fn-call "cljs.storm.tests-code.types" "area" [rect] 1752788479] [:bind "r" rect "3"] [:bind "r" rect ""] ;; TODO: hmm why is this? - [:expr-exec rect "3,2,1,1" 1752788479] - [:expr-exec 2 "3,2,1" 1752788479] - [:expr-exec rect "3,2,2,1" 1752788479] - [:expr-exec 4 "3,2,2" 1752788479] - [:fn-return 8 "3,2" 1752788479]] + [:expr-exec rect "3,2,1,1"] + [:expr-exec 2 "3,2,1"] + [:expr-exec rect "3,2,2,1"] + [:expr-exec 4 "3,2,2"] + [:fn-return 8 "3,2"]] (u/capture)) "captured traces should match."))) diff --git a/src/test/cljs/cljs/storm/utils.cljs b/src/test/cljs/cljs/storm/utils.cljs index 39549e842..aa987c6d3 100644 --- a/src/test/cljs/cljs/storm/utils.cljs +++ b/src/test/cljs/cljs/storm/utils.cljs @@ -18,14 +18,14 @@ (fn [_ form-ns form-name args form-id] (swap! captured-traces conj [:fn-call form-ns form-name (into [] (map maybe-serialize) args) form-id]))) (set! cljs.storm.tracer/trace-expr-fn - (fn [_ val coord form-id] - (swap! captured-traces conj [:expr-exec (maybe-serialize val) coord form-id]))) + (fn [_ val coord _] + (swap! captured-traces conj [:expr-exec (maybe-serialize val) coord]))) (set! cljs.storm.tracer/trace-bind-fn (fn [_ coord sym-name val] (swap! captured-traces conj [:bind sym-name (maybe-serialize val) coord]))) (set! cljs.storm.tracer/trace-fn-return-fn - (fn [_ ret-val coord form-id] - (swap! captured-traces conj [:fn-return (maybe-serialize ret-val) coord form-id]))) + (fn [_ ret-val coord _] + (swap! captured-traces conj [:fn-return (maybe-serialize ret-val) coord]))) (defn reset-captured-traces-fixture [f] (reset! captured-traces [])