gered/clojure-template-benchmarks
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:bitemyapp/clojure-template-benchmarks

Browse source
This commit is contained in:
Chris Allen 2013-02-19 22:58:47 -08:00
parent cee48d7622 6ac4aff8c4
commit 5e61f81a75
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/clojure_template_benchmarks/core.clj
View file

@ -75,6 +75,13 @@
(for [x (range 1 ceil)]
(laser/node :li :content (str x)))))
(defdocument simple-laser-hinted "<span class=\"foo\"></span>" []
(laser/class= "foo") (laser/content ^String bar))
(defdocument list-laser-hinted "<ul></ul>" [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")