   (doseq [i (range nb-weeks)]
     (let [start-week (t/plus (t/date-time 2014) (t/weeks i))
           end-week (t/plus start-week (t/weeks 1))]
-      (summarize-and-store (u/to-ISO-8601 start-week) (u/to-ISO-8601 end-week)))))      
+      (summarizeAndStore (u/to-ISO-8601 start-week) (u/to-ISO-8601 end-week)))))      
 
 (defn check-summaries
   []  

    :user                "joe"
    :cloud               "exoscale-ch-gva"    
    :metrics [{   :name  "nb-cpu"
                  :value 2 }
              { :name  "RAM-GB"
                  :value 8 }
              { :name  "disk-GB"
                  :value 100.5 }]})


    ))

(deftest test-with-records-full-year
  (let [nb-weeks 5]
    (fill-joe (* nb-weeks 7))
    (summarize-joe-weekly nb-weeks)
    (check-summaries)))
