 
   (testing "Generates one set of data for each morph of an Om component"
     (dotimes [_ 10]
-      (let [data (morph-data demo-component-om ::data-for-component)]
+      (let [data (morph-data demo-component-om-next ::data-for-component)]
         (is (not (nil? data)))
         (is (every? (partial s/valid? ::data-for-component) data))
         (is (= 4 (count data)))


(s/def ::description (s/and string? seq))

(defn demo-component [props]
  (html
   [:div {:class (name (::type props))}
    [:.description
     (when (< 2 (count (::description props))) {:class "long"})
     (::description props)]]))

(defui DemoComponentOm
  Object
  (render [this]
    (demo-component (om-next/props this))))

(def demo-component-om (om-next/factory DemoComponentOm))

(deftest morph-data-test
  (testing "Generates one set of data for each morph of a functional component"

            [clojure.spec :as s :include-macros true]
            [clojure.test.check.generators :as gen]
            [goog.object :as gobject]
            [om.core :as om]
            [om.next :as om-next :refer-macros [defui]])
  (:require-macros
   [devcards.core :as dc :refer [defcard deftest]]
