                                  :joiner id}}])
                peer-ids)))
 
-(deftest joins
+(deftest greedy-allocation
   (checking
-    "Checking joins"
-    10000
+    "Checking greedy allocation causes all peers to be allocated to one of two jobs"
+    100
     [{:keys [replica log peer-choices]} 
      (log-gen/apply-entries-gen 
        (gen/return
-         {:replica {:job-scheduler (:onyx.peer/job-scheduler peer-config)
-                    :messaging peer-config}
+         {:replica {:job-scheduler :onyx.job-scheduler/greedy
+                    :messaging {:onyx.messaging/impl :dummy-messenger}}
           :message-id 0
           :entries (assoc
                      (generate-join-entries [:a :b :c :d :e :f :g :h])

                                                          (planning/discover-tasks (:catalog job-2) (:workflow job-2)))])
          :log []
          :peer-choices []}))]
    (is (= (apply + (map count (vals (get (:allocations replica) job-1-id)))) 4))
    (is (= (apply + (map count (vals (get (:allocations replica) job-2-id)))) 4))
    (is (= (:prepared replica) {}))
    (is (= (:accepted replica) {}))
    (is (= (set (keys (:pairs replica)))
           (set (vals (:pairs replica)))))
    (is (= (count (:peers replica)) 8))))

(def peer-config (assoc (:peer-config config) 
                        :onyx/id onyx-id
                        :onyx.messaging/impl :dummy-messenger
                        ;:onyx.peer/job-scheduler :onyx.job-scheduler/round-robin
                        ))

(def messenger (->DummyMessenger))

