       (is (= (:b em2) nil))
       )))
 
+(deftest ^:ctor-pull ctor-pull-kinded
+  (testing "pull ctor"
+    (let [ems (ds/entity-map* [:C]) ; fetch emaps of kind :C
+          ]
+      (log/trace "ems:" ems)
+      )))
 
+

(use-fixtures :each ds-fixture)

(deftest ^:ctor-pull ctor-pull-notfound
  (testing "co-constructor notfound"
    (try (ds/entity-map* [:A/B])
         (catch EntityNotFoundException e
           (is (= "No entity was found matching the key: A(\"B\")"
                  (.getMessage e)))))))

(deftest ^:ctor-pull ctor-pull
  (testing "pull ctor"

(ns migae.ctor-pull
  "Unit tests for pull constructor entity-map*"
  (:refer-clojure :exclude [name hash])
  (:import [com.google.appengine.tools.development.testing
            LocalServiceTestHelper
