                           3 {:id 3 :page 1 :group 1}
                           4 {:id 4 :page 1 :group 2}}}
 
-        expected {:pages {1 {:id 1, :shapes [3 4]}},
-                  :shapes {3 {:id 3, :page 1}, 4 {:id 4, :page 1}},
+        expected {:pages {1 {:id 1 :shapes [3 4]}}
+                  :shapes {3 {:id 3 :page 1} 4 {:id 4 :page 1}}
                   :workspace {:selected #{4 3}}}]
     (let [result (impl/degroup-shapes initial [1 2] 1)]
       ;; (pprint expected)

                          2 {:id 2 :page 1 :type :group :items [3] :group 1}
                          3 {:id 3 :page 1 :group 2}}}

        expected {:pages {1 {:id 1, :shapes [1]}},
                  :shapes {1 {:id 1, :page 1, :type :group, :items [3]},
                           3 {:id 3, :page 1, :group 1}},
                  :workspace {:selected #{3}}}]
    (let [result (impl/degroup-shapes initial [2] 1)]
      ;; (pprint expected)

                          2 {:id 2 :page 1 :group 3}
                          3 {:id 3 :page 1 :type :group}}}

        expected {:pages {1 {:id 1 :shapes [1 3]}}
                  :shapes {1 {:id 1 :page 1}
                           2 {:id 2 :page 1 :group 4}
                           3 {:id 3 :page 1 :type :group :items [4]}
                           4 {:type :group
                              :name "Group-1"
                              :items [2]
                              :id 4
                              :page 1
                              :group 3}}
                  :workspace {:selected #{4}}}]
    (with-redefs [uxbox.util.uuid/random (constantly 4)]
      (let [result (impl/group-shapes initial [2] 1)]
        ;; (pprint expected)
