   (p/promise (fn [_ reject]
                (p/schedule sleep #(reject value)))))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Core Interface Tests
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (t/deftest promise-from-value
   (let [p1 (p/promise 1)]
     (t/is (p/done? p1))
-    (t/is (= (m/extract p1) 1))))
+    (t/is (= (p/extract p1) 1))))
 
 (t/deftest promise-from-factory
   (let [p1 (p/promise (fn [resolve _] (resolve 1)))]
     #?(:clj (deref p1))
     (t/is (p/done? p1))
-    (t/is (= (m/extract p1) 1))))
+    (t/is (= (p/extract p1) 1))))
 
 (t/deftest promise-async-factory
   #?(:cljs

           p2 (p/branch p1 (constantly nil) (constantly 1))]
       (t/is (= @p2 1)))))

(t/deftest chaining-using-bind
  #?(:cljs
     (t/async done

        p1 (p/rejected e1)
        p2 (p/catch p1 (constantly nil))]
    (t/is (p/rejected? p1))
    (t/is (= e1 (p/extract p1)))))

(t/deftest promise-from-promise
  (let [p1 (p/promise 1)
