         proj-id (:default-project-id prof)
         file    (th/create-file db/pool (:id prof) proj-id 1)
         page    (th/create-page db/pool (:id prof) (:id file) 1)]
+
     (t/testing "lagging changes"
       (let [sid  (uuid/next)
             data {::sm/type :update-page

        ;; (th/print-result! out)
        (t/is (nil? (:error out)))

        (let [result (:result out)]
          (t/is (= 1 (:revn result)))
          (t/is (= (:id data) (:page-id result)))
          (t/is (vector (:changes result)))
          (t/is (= 1 (count (:changes result))))
          (t/is (= :add-obj (get-in result [:changes 0 :type]))))))

    (t/testing "conflict error"
      (let [data {::sm/type :update-page

        (t/is (nil? (:error out1)))
        (t/is (nil? (:error out2)))

        (t/is (= 1 (count (get-in out1 [:result 0 :changes]))))
        (t/is (= 1 (count (get-in out2 [:result 0 :changes]))))

        (t/is (= 2 (count (:result out2))))

        (t/is (= (:id data) (get-in out1 [:result 0 :page-id])))
        (t/is (= (:id data) (get-in out2 [:result 0 :page-id])))
    ))))


