   )
 
 
-(facts "Activitystreams can be consumed and are filled once transactions are done"
+#(facts "Activitystreams can be consumed and are filled once transactions are done"
        (let [memory (atom {})]
          (ih/reset-db)
          (-> (k/session test-app)

             )))


(facts "Activitystreams JSON contains transaction log as soon as transactions are done on blockchain"
       (let [memory (atom {})]
         (ih/reset-db)
         (-> (k/session test-app)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn render-activity [transaction]
  {"type"     "Transaction"
   "published" (str (time/format (time/datetime)) "Z")
   "actor"     {"type"       "Person"
                "displayName" (:from transaction)}
   "target"    {"type"       "Person"
                "displayName" (:to transaction)}
   "object"    {"type"       "STUB"
               "displayName" (str (:amount transaction))
               "url" (str (env/env :base-url) "/transactions/UID")}
   })
  
(defn test-activity [transactions]
  {"@context"  "https://www.w3.org/ns/activitystreams"
   "type"      "Container"
   "name"      "Activity stream"
   "totalItems" (count transactions)
   "items"     (map #(render-activity %) transactions)})

(defn no-variables [activity]
  (-> activity
      (dissoc "items")
      )
      ;; (update-in ["object"] dissoc "url"))
  )

(defn assert-timeless-activitystream [state contents]
