   (test-timeline "col-2" "id-b" {:timeline-current {:n 1}
                                  :timeline {:n 0}
                                  :timeline-changelog {:n-new 1}})
-  (test-timeline->extract "col-2" 1)
+  (test-timeline->extract 1)
   (test-geoserver "col-2" 1))
 
 (defregressiontest new-change-feature "col-2_id-b_new-change" stats

    (doseq [row-id rows-to-delete]
      (swap! extracts dissoc row-id))))

(defn- test-timeline->extract [collection n-extracts]
  (let [extracts (atom {})]
    (with-bindings
      {#'e/*process-insert-extract* (partial inserted-features extracts)
       #'e/*process-delete-extract* (partial deleted-versions extracts)}
      (e/fill-extract "regression-set" collection nil))
    (is (= n-extracts (count @extracts)))))

(defn- query-geoserver [table]

  (test-timeline "col-1" "id-a" {:timeline-current {:n 0}
                                 :timeline {:n 0}
                                 :timeline-changelog {:n-new 1 :n-change 2 :n-delete 3}})
  (test-timeline->extract 0)
  (test-geoserver "col-1" 0))

(defregressiontest new-change-change-delete-new-change-feature "col-1_id-a_new-change-change-delete-new-change" stats
