rlm@10: (ns clojure.contrib.test-profile
rlm@10:   (:use clojure.test
rlm@10: 	clojure.contrib.profile))
rlm@10: 
rlm@10: (deftest test-print-summary
rlm@10:   (testing "doesn't blow up with no data (assembla #31)"
rlm@10:     (is (= "Name      mean       min       max     count       sum\n"
rlm@10:            (with-out-str (print-summary {}))))))