              "c" [package-c]
              "d" [package-d4 package-d3 package-d2]}
             query (map-query repo-info)]
+
         (is (= [:successful #{package-d2 package-c package-b package-a}]
                (resolve-dependencies
                  [

                  [(present "a")]
                  ]
                 query)))))
    (testing (str "Double Diamond")
      (let [package-a
            (->package
              "a"

              1
              "b_loc1"
              [
               [(present "c")]
               [(present "d" #(< (:version %) 4))]
               ]
              )
