 (deftest parse-read-not-found
   (async done
     (go
-      (is (= (<! (p/parse {} [:invalid]))
+      (is (= (<? (p/parse {} [:invalid]))
              {:invalid [:error :not-found]}))
       (done))))
 

                        :lesson.type/exercise [:lesson/type :lesson/title :url/slug]}]
      (is (= (->> (p/parse env
                           [{[:lesson/by-slug "percussion"]
                             lesson-union}]) <!)
             {[:lesson/by-slug "percussion"]
              {:db/id 9 :db/table :lesson :lesson/title "Percussion" :lesson/type :lesson.type/video}}))
      (is (= (->> (p/parse env
                           [{[:lesson/by-slug "percussion-playlist"]
                             lesson-union}]) <!)
             {[:lesson/by-slug "percussion-playlist"]
              {:db/id 11 :db/table :lesson :lesson/description "" :lesson/type :lesson.type/playlist}}))
      (is (= (->> (p/parse env
                           [{[:lesson/by-slug "tempo-markings"]
                             lesson-union}]) <!)
             {[:lesson/by-slug "tempo-markings"]
              {:db/id    67 :db/table :lesson :lesson/title "Exercise: Tempo Markings Quiz" :lesson/type :lesson.type/exercise
               :url/slug "tempo-markings"}})))))

(ns daveconservatoire.server.parser-tests
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [cljs.test :refer [is are run-tests async testing deftest do-report]]
            [cljs.core.async :refer [<?]]
            [pathom.test :refer [async-test]]
            [common.async :refer [<?]]
            [pathom.sql :as ps]
