                          (keys bolt-to-comps))})
        bolts-with-comps))
 
-(defn benchmark [spec & [n]]
-  (let [n (or n 5)]
-    (doall (take n (repeatedly #(time (doall (do-counts (bolts-with-comps spec (medium) 0 6)))))))
-    nil))
-
 (defn benchmark1 []
   (benchmark spec1 5))
 

    ;; explicitly set to progressive present:
    (is (= "I am eating" (morph (generate progressive))))))

    
(deftest lb1
  (let [comp-paths (babel.generate/find-comp-paths good-lb)
        paths-to-specs (zipmap
                        comp-paths
                        (map #(get-in good-lb %)
                             comp-paths))
        paths-to-lbs
        (zipmap
         comp-paths
         (map #(babel.generate/lightning-bolts
                med
                (get-in good-lb %)
                0 0)
              comp-paths))]

    (is (not (empty? (get paths-to-lbs [:head :comp]))))
    (is (not (empty? (get paths-to-lbs [:comp]))))))

(deftest benchmark-test []
  (let [med (medium)
        to-run #(time (println (fo (generate


    (is (not (empty? (babel.generate/lightning-bolts med (get-in good-lb [:head :comp]) 0 0))))
    (is (not (empty? (babel.generate/lightning-bolts med (get-in good-lb [:comp]) 0 0))))))

(deftest take-advantage-present
  (let [result (generate {:synsem {:sem {:pred :take-advantage-of
