    "one segment per fixed window" 100000
    [w-range-and-slide gen/s-pos-int
     w-attr gen/pos-int]
-   (let [segment {:window-key w-attr}
-         buckets (wids 0 w-range-and-slide w-range-and-slide segment)]
+   (let [w-key :window-key
+         segment {:window-key w-attr}
+         buckets (wids 0 w-range-and-slide w-range-and-slide w-key segment)]
      (is (= 1 (count buckets))))))
 
 (deftest sliding-windows

(def w-slide (* 1000 60 20))

(doseq [p people]
  (let [segment (assoc p :window-key (.getTime (random-timestamp)))
        assigned-extents (wids 0 w-range w-slide segment)]
    (doseq [e assigned-extents]
      (swap! state update e conj p))))


   [w-slide (gen/resize 10 gen/s-pos-int)
    multiple gen/s-pos-int
    extent-id gen/pos-int]
   (let [w-key :window-key
         values (extents 0 (* multiple w-slide) w-slide extent-id)]
     (is (every? #(some #{extent-id}
                        (wids 0 (* multiple w-slide) w-slide w-key {:window-key %}))
                 values)))))

(def windows
