                   [tx3 :db/txInstant now tx3 1]
                   [1 :aka "Devil" tx4 1]
                   [tx4 :db/txInstant now tx4 1]])))
+
         (finally
           (<? (dm/close-db db)))))))
 

          conn (dm/connection-with-db db)
          now  0xdeadbeef]
      (try
        (is (not (= nil (<? (dm/<transact! conn test-schema now)))))

        (let [txa (tx (<? (dm/<transact! conn [[:db/add     0 :x 123]] now)))
              txb (tx (<? (dm/<transact! conn [[:db/retract 0 :x 123]] now)))]
          (is (= (<? (<datoms-after (dm/db conn) txa))
                 #{}))
          (is (= (<? (<transactions-after (dm/db conn) txa))
                 [[0 :x 123 txa 1] ;; TODO: true, not 1.
                  [txa :db/txInstant now txa 1]
                  [0 :x 123 txb 0]

          conn (dm/connection-with-db db)
          now  -1]
      (try
        (let [tx0 (tx (<? (dm/<transact! conn test-schema now)))
              report (<? (dm/<transact! conn [[:db/add (dm/id-literal :db.part/user -1) :x 0]
                                              [:db/add (dm/id-literal :db.part/user -1) :y 1]
                                              [:db/add (dm/id-literal :db.part/user -2) :y 2]
                                              [:db/add (dm/id-literal :db.part/user -2) :y 3]] now))]
