                                                                   :user/favorite-number 7}}})
                [(<! c)
                 (<! c)]))
-        (is (= [[:get-user {:user/name "nipponfarm"}]
-                [:get-user {:user/name "jburnford"}]]
+        (is (= [[:get-user {:name "nipponfarm"}]
+                [:get-user {:name "jburnford"}]]
                @api-calls))
         (done)))))

   #{:user/favorite-color :user/favorite-number}
   (fn [context ast]
     (let [get-user (get-in context [:apis :get-user])]
       (get-user {:user/name (:user/name context)})))

   :user/favorite-fellow-user
   (fn [context ast]
     (let [c (chan)
           get-user (get-in context [:apis :get-user])]
       (go
         (let [user (<! (get-user {:user/name (:user/name context)}))]
           (-> (resolve* (assoc context :user/name (:user/favorite-fellow-user-name user))
                         User
                         (:children ast))
               (async/pipe c))))

(ns frontend.test-send
  (:require [cljs.core.async :as async :refer [<! chan put!]]
            [cljs.core.async.impl.protocols :as async-impl]
            [clojure.set :as set]
            [clojure.test :refer-macros [async is testing]]
            [frontend.send :as send]
            [om.next :as om])
  (:require-macros [cljs.core.async.macros :refer [go]]
                   [devcards.core :as dc :refer [deftest]]))

(deftest org-runs-ast?-works
  (let [example {:key :circleci/organization
