kernel: Fix code:get_doc/1,2 when cover_compiled

erlang · Feb 25, 2025 · d51a975 · d51a975
1 parent 53e6751
commit d51a975
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 2 deletions.
diff --git a/lib/compiler/test/beam_doc_SUITE.erl b/lib/compiler/test/beam_doc_SUITE.erl
@@ -7,7 +7,8 @@
          private_types/1, export_all/1, equiv/1, spec/1, deprecated/1, warn_missing_doc/1,
          doc_with_file/1, doc_with_file_error/1, all_string_formats/1,
          docs_from_ast/1, spec_switch_order/1, user_defined_type/1, skip_doc/1,
-         no_doc_attributes/1, converted_metadata/1, converted_metadata_warnings/1]).
+         no_doc_attributes/1, converted_metadata/1, converted_metadata_warnings/1,
+         cover_compiled/1]).
 
 -include_lib("common_test/include/ct.hrl").
 -include_lib("kernel/include/eep48.hrl").
@@ -55,7 +56,8 @@ documentation_generation_tests() ->
      skip_doc,
      no_doc_attributes,
      converted_metadata,
-     converted_metadata_warnings
+     converted_metadata_warnings,
+     cover_compiled
     ].
 
 singleton_moduledoc(Conf) ->
@@ -694,6 +696,18 @@ converted_metadata_warnings(Config) ->
 
     ok.
 
+cover_compiled(Config) ->
+    DataDir = proplists:get_value(data_dir, Config),
+    ok = file:set_cwd(DataDir),
+
+    ModuleName = ?get_name(),
+    {ok, ModName} = default_compile_file(Config, ModuleName),
+    {ok, cover_compiled} = cover:compile(ModuleName),
+
+    {ok, #docs_v1{}} = code:get_doc(ModName),
+
+    ok.
+
 scan_and_parse(Code) ->
     {ok, Toks, _} = erl_scan:string(Code),
     parse(Toks).

diff --git a/lib/compiler/test/beam_doc_SUITE_data/cover_compiled.erl b/lib/compiler/test/beam_doc_SUITE_data/cover_compiled.erl
@@ -0,0 +1,7 @@
+-module(cover_compiled).
+-moduledoc ~"""
+cover_compiled
+""".
+
+% SPDX-License-Identifier: Apache-2.0
+% SPDX-FileCopyrightText: 2025 Erlang/OTP and contributors
diff --git a/lib/kernel/src/code.erl b/lib/kernel/src/code.erl
@@ -1867,6 +1867,15 @@ get_doc(Mod, #{sources:=[Source|Sources]}=Options) ->
                 ErtsDir ->
                     GetDoc(filename:join([ErtsDir, "ebin", atom_to_list(Mod) ++ ".beam"]))
             end;
+        cover_compiled ->
+            case which(Mod, get_path()) of
+                non_existing ->
+                    {error, missing};
+                Error when is_atom(Error) ->
+                    {error, Error};
+                Fn when is_list(Fn) ->
+                    GetDoc(Fn)
+            end;
         Error when is_atom(Error) ->
             {error, Error};
         Fn ->