Issue with PlotRange and Graphics3D in version 12.2

When Boxed is set to False, PlotRange no longer works. I feel this should be considered a bug.

Test cases

Manipulate[
  Graphics3D[{Sphere[]}, 
    PlotRange -> {{-r, r}, {-r, r}, {-r, r}}, 
    Boxed -> boole], 
  {boole, {True, False}}, 
  {r, 1, 5}]

Manipulate[
  Graphics3D[
    {{Opacity[0.5], Cone[{{0, 0, -5}, {0, 0, 0}}], 
      Red, InfinitePlane[{0, 0, z0}, {{1, 0, 0}, {1, Cos[α], Sin[α]}}]}}, 
    Boxed -> boole, 
    PlotRange -> 6],
  {boole, {True, False}}, 
  {{α, Pi/6}, 0, Pi}, 
  {{z0, -3}, -5, 0}]