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

          day-14h   (t/plus start-day (t/hours 14))
          vm-joe-id (str "exo" day)
          event-joe-start (assoc event-joe-start-template 
                              :start_timestamp day-9h 
                              :cloud_vm_instanceid vm-joe-id)
          event-joe-end {:end_timestamp day-14h
                         :cloud_vm_instanceid vm-joe-id}
      ]
      (rc/-insertStart event-joe-start)
      (rc/-insertEnd event-joe-end))))


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

