 (let [app-state (-> person-db
                   (f/init-form Phone [:phone/by-id 1])
                   (f/init-form Phone [:phone/by-id 2])
-                  (f/init-form Person [:people/by-id 1])
+                  (f/init-form Person [:people/by-id 7])
                   (f/init-form Person [:people/by-id 3])
                   (f/init-form PolyPerson [:people/by-id 4])
                   (f/init-form PolyPerson [:people/by-id 5])
                   (f/init-form PolyPerson [:people/by-id 6]))
       basic-person (get-in app-state [:people/by-id 3])
-      one-number-person (get-in app-state [:people/by-id 1])
+      one-number-person (get-in app-state [:people/by-id 7])
       no-number-person (get-in app-state [:people/by-id 5])
       many-number-person (get-in app-state [:people/by-id 4])
       one-many-number-person (get-in app-state [:people/by-id 6])

              => true))))
      (component "commit-state - helper"
        (assertions
          (-> basic-person
            (assoc :person/name "MCQ")
            (f/commit-state)

          "defaults as a to-many relation"
          (:input/cardinality f) => :many
          "is marked as a subform"
          f =fn=> f/is-subform?
          "has a subform selection key"
          (:input/select-key f) => :k
          "has the correct type"
