 
 (def categories (map name open-company.resources.common/category-names))
 
-(with-state-changes [(before :facts (do (company/delete-all-companies!)
+(with-state-changes [(around :facts (schema.core/with-fn-validation ?form))
+                     (before :facts (do (company/delete-all-companies!)
                                         (company/create-company r/open r/coyote)
                                         (section/put-section r/slug :update r/text-section-1 r/coyote)
                                         (section/put-section r/slug :finances r/finances-section-1 r/coyote)


    (future-facts "when the new order is NOT valid"))

  (facts "about section removal"

    ;; verify the initial set of sections

          (:team db-company) => nil
          (:help db-company) => (contains r/text-section-1)
          (:diversity db-company) => nil
          (:values db-company) => (contains r/text-section-1)))))
