File 2631-edlin-Fix-type-expand-testcase.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2631-edlin-Fix-type-expand-testcase.patch of Package erlang

From bf7dd3daaa2f8cb3bb3c0919f2514a88a7311202 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Fri, 5 Jan 2024 09:59:53 +0100
Subject: [PATCH 11/11] edlin: Fix type expand testcase

---
 lib/stdlib/test/edlin_expand_SUITE.erl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/stdlib/test/edlin_expand_SUITE.erl b/lib/stdlib/test/edlin_expand_SUITE.erl
index 9fe758ff9b..1d2f340686 100644
--- a/lib/stdlib/test/edlin_expand_SUITE.erl
+++ b/lib/stdlib/test/edlin_expand_SUITE.erl
@@ -108,13 +108,14 @@ type_completion(_Config) ->
     ct:timetrap({minutes, 20}),
     {Time,_} = timer:tc(fun() -> do_expand("erl_pp:expr(") end),
     case Time of
-        Time when Time > 2600000 -> {skip, "Expansion too slow on this machine"};
+        Time when Time > 5000000 ->
+            {skip, lists:flatten(io_lib:format("Expansion too slow (~p) on this machine",[Time]))};
         _ ->
             parallelforeach(
             fun(Mod) ->
                     Exports = edlin_expand:get_exports(Mod),
                     [try
-                        Str = io_lib:write_atom(Mod) ++ ":" ++ atom_to_list(Func) ++ "(",
+                        Str = io_lib:write_atom(Mod) ++ ":" ++ io_lib:write_atom(Func) ++ "(",
                         do_expand(Str)
                     catch E:R:ST ->
                             erlang:raise(E, {R, Mod, Func}, ST)
@@ -616,7 +617,7 @@ unicode(Config) when is_list(Config) ->
     ok.
 
 do_expand(String) ->
-    % erlang:display(String),
+    % io:format(String),
     Bs = [
           {'Binding', 0},
           {'MapBinding', #{a_key=>0, b_key=>1, c_key=>2}},
-- 
2.35.3

Places

File 2631-edlin-Fix-type-expand-testcase.patch of Package erlang

Places