 (ns com.sixsq.slipstream.ssclj.resources.simu-usage-test
   (:require
     [clojure.test                                       :refer :all]
+    [clojure.java.shell                                 :only [sh] :as sh]
     [com.sixsq.slipstream.ssclj.resources.usage-record  :refer :all]
     [com.sixsq.slipstream.ssclj.usage.record-keeper     :as rc]
     [korma.core                                         :as kc]

;; public
;;

(defn delete-all
  []
  (acl/-init)
  (rc/-init)

(defn populate-usage-records
  []
  (rc/-init)
  (doseq [day (some-days)]
    (println "Populating " day)
    (doseq [i (range nb-records-per-day)]
      (kc/insert rc/usage_records (kc/values (rand-usage-record day))))))


