 ;(use-fixtures :once (fn [test-fn] (ds/get-datastore-service) (test-fn)))
 (use-fixtures :each ds-fixture)
 
-(deftest ^:coll emap-axiom1
-  (testing "emap axiom 1: an entity-map is a map"
-    (let [e1 (ds/entity-map [:A/B] {:a 1 :b 2})]
-      ;; (log/trace "e1 " (ds/print e1))
-      (is (coll? e1))
-      (is (map? e1))
-      (is (ds/emap? e1))
-      (is (= (keys e1) '(:a :b)))
-      (is (= (vals e1) '(1 2)))
-      )))
-
-(deftest ^:coll emap-axiom2
-  (testing "emap axiom 2: an entity-map is seqable"
-    (let [e1 (ds/entity-map [:A/B] {:a 1 :b 2})]
-      (is (not (seq? e1)))
-      (is (seq? (seq e1)))
-      )))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;   collections api axioms
 

      (log/trace "em1" (ds/print em1))
      (log/trace "em3" (ds/keychain em3) (ds/print em3))
      (log/trace "em3 type:" (type em3))
      (is (not (= em1 em3)))
;;      (is (ds/key= em1 em3))

      (let [em4 (merge em3 {:d 27})]
        (log/trace "em4" em4)
        (is (not= em3 em4)))

      (let [em5 (merge em3 {:c #{{:d 3}}})]
        (log/trace "em5" em5)

(ns test.theory-collections
  "theory of entity-map collections"
  (:refer-clojure :exclude [name hash])
  (:import [com.google.appengine.api.datastore
            Email
