       (fill-domain sink data2)
       (check-results tmp data3))))
 
-(deftest test-source
+(fact "test-source"
   (with-fs-tmp [fs tmp]
     (let [pairs [[(barr 0) (barr 0 2)]
                  [(barr 1) (barr 1 1)]

                              {:num-shards 6
                               :persistence-factory (JavaBerkDB.)}
                              pairs]
        (is (t/kv-pairs= pairs (read-etap-with-flow dpath)))))))

;; Example of how to do stuff now.
(def spec

               (HashModScheme.)
               4))

(defn populate [root idx]
  (with-open [shard (.createShard spec root idx)]
    (doseq [x (range 1000)]
      (.index shard (KeyValDocument. x 10)))))

;; or, you can create a domain store directly:
(defn store []
  (with-fs-tmp [_ tmp]
    (DomainStore. tmp (DomainSpec. (JavaBerkDB.)
                                   (HashModScheme.)
                                   4))))
