Add benchmark to compare to vary-meta

2016-06-08 08:25:03 -07:00 · 2016-06-08 08:25:03 -07:00 · 21e6289c64
commit 21e6289c64
parent fbb7a17197
1 changed files with 6 additions and 0 deletions
--- a/scripts/benchmarks.clj
+++ b/scripts/benchmarks.clj
@ -219,3 +219,9 @@
    300000
    (vector (meta data))
    (select META data)))
+
+(let [data (with-meta {:x 1} {:my :metadata})]
+  (run-benchmark "vary metadata"
+    300000
+    (vary-meta data assoc :y 2)
+    (setval [META :y] 2 data)))