                              [{:name "a"
                                :version-spec #(>= % 25)}]
                              query
-                              :already-installed {"a" 15})
+                             :already-installed {"a" 15})
                            [:unsatisfiable "a"])))
            (testing (str "Asking to install a package that is already "
                          "installed, and the installed version suits.")

                             [{:name "a"
                               :version-spec #(and (>= %1 15) (<= %1 25))}]
                             query)
                             [:successful package-a20]))
                    (is (= (resolve-dependencies
                             [{:name "a"
                               :version-spec #(>= %1 25)}]

          v)))))

(let  [package-a30
       {:name "a"
        :version 30
        :location "a_loc30"
        :conflicts {"c" nil}
        }
       package-a20
       {:name "a"
        :version 20
        :location "a_loc20"}
       package-c10
       {:name "c"
        :version 10
        :location "c_loc10"}
       package-d22
       {:name "d"
        :version 22
        :location "d_loc22"}
       package-e18
       {:name "e"
        :version 18
        :location "e_loc18"
        :conflicts {"d" nil}}
       repo-info
       {"a"
        [package-a30
         package-a20]
        "c"
        [package-c10]
        "d"
        [package-d22]}
       query (map-query repo-info)]
  (deftest retrieval
           (testing "Asking for a present package succeeds."
