       (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)
+      )))
 
+

(ns migae.ctor-pull
  (:refer-clojure :exclude [name hash])
  (:import [com.google.appengine.tools.development.testing
            LocalServiceTestHelper

(use-fixtures :each ds-fixture)

(deftest ^:ctor-pull ctor-pull-notfound
  (testing "pull constructor: entity not found"
    (let [ex (try (ds/entity-map* [:Foo/BAR :NOT/FOUND])
                  (catch EntityNotFoundException e e))]
      (is (= (type ex) EntityNotFoundException)))))

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