Fix erl_scan testcase swallowing errors

When the call to erl_scan succeeded returning more than one token, for example "123_", the unexpected success was not detected.
erlang · Nov 23, 2024 · b92e961 · b92e961
1 parent 171fb25
commit b92e961
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/stdlib/test/erl_scan_SUITE.erl b/lib/stdlib/test/erl_scan_SUITE.erl
@@ -323,7 +323,7 @@ integers() ->
     lists:foreach(
       fun(S) ->
               case erl_scan:string(S) of
-                  {ok, [{integer, _, _}], _} ->
+                  {ok, [{integer, _, _}|_], _} ->
                       error({unexpected_integer, S});
                   _ ->
                       ok
@@ -388,7 +388,7 @@ base_integers() ->
     lists:foreach(
       fun(S) ->
               case erl_scan:string(S) of
-                  {ok, [{integer, _, _}], _} ->
+                  {ok, [{integer, _, _}|_], _} ->
                       error({unexpected_integer, S});
                   _ ->
                       ok
@@ -441,7 +441,7 @@ floats() ->
     lists:foreach(
       fun(S) ->
               case erl_scan:string(S) of
-                  {ok, [{float, _, _}], _} ->
+                  {ok, [{float, _, _}|_], _} ->
                       error({unexpected_float, S});
                   _ ->
                       ok