diff --git a/src/clojure_template_benchmarks/core.clj b/src/clojure_template_benchmarks/core.clj
index 1eed3de..448b782 100644
--- a/src/clojure_template_benchmarks/core.clj
+++ b/src/clojure_template_benchmarks/core.clj
@@ -75,6 +75,13 @@
(for [x (range 1 ceil)]
(laser/node :li :content (str x)))))
+(defdocument simple-laser-hinted "" []
+ (laser/class= "foo") (laser/content ^String bar))
+(defdocument list-laser-hinted "
" [ceil]
+ (laser/element= :ul) (laser/html-content
+ (for [x (range 1 ceil)]
+ (laser/node :li :content (str ^Number x)))))
+
(enlive/deftemplate simple-enlive-core "clojure_template_benchmarks/templates/simple.enlive" []
[:span.foo] (enlive/content bar))
(enlive/deftemplate list-enlive-core "clojure_template_benchmarks/templates/list.enlive" [ceil]
@@ -162,6 +169,14 @@
(with-progress-reporting (quick-bench (list-laser 1000)))
(println "\n --- \n")
+ (println "\n\n ***** laser (hinted) ***** \n\n")
+ (with-progress-reporting (quick-bench (simple-laser-hinted)))
+ (println "\n --- \n")
+ (with-progress-reporting (quick-bench (list-laser-hinted 50)))
+ (println "\n --- \n")
+ (with-progress-reporting (quick-bench (list-laser-hinted 1000)))
+ (println "\n --- \n")
+
(println "\n\n ***** enlive ***** \n\n")
(with-progress-reporting (quick-bench (simple-enlive)))
(println "\n --- \n")