Your lat/long data pairs look like {523679., 632989.}
which appear to be in some form of DMS form (ddmmss., ddmmss.}. However, I believe that these are being interpreted as decimal degrees. Converting to decimal degrees (simplified conversion used assuming longitude is even number of digits consistent with your data):
data = test /.
x_?NumericQ :>
FromDMS[FromDigits /@
(x // Round // IntegerDigits //
Partition[#, 2] &)] // N;
Manipulate[
If[s === "All",
func[data, ImageSize -> 500],
func[data[[s]], ImageSize -> 300]],
{{func, GeoListPlot, "Function"},
{GeoListPlot, GeoGraphics}},
{{s, "All", "Section"}, {1, 2, 3, 4, 5, "All"}},
ControlType -> SetterBar]

GeoListPlot[test[[;; 2]], ImageSize -> 300]
? $\endgroup${}
are there or not. In that case, I get two pieces if I use the braces, and the other two if I don't. $\endgroup$