         (:body response) => common/unauthorized)
       ;; verify the initial order is unchanged
       (let [db-company (company/get-company r/slug)]
-        (:categories db-company) => ["progress" "financial" "company"]
+        (:categories db-company) => categories
         (:sections db-company) => {:progress ["update" "team" "help"]
                                    :financial ["finances"]
                                    :company ["diversity" "values"]}))


;; ----- Tests -----

(with-state-changes [(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)

        (:body response) => common/forbidden)
      ;; verify the initial order is unchanged
      (let [db-company (company/get-company r/slug)]
        (:categories db-company) => categories
        (:sections db-company) => {:progress ["update" "team" "help"]
                                   :financial ["finances"]
                                   :company ["diversity" "values"]}))
