Have tests show the fix

compiler-core/src/erlang/tests/consts.rs

@@ -119,58 +119,37 @@ fn pub_const_equal_to_record_with_nested_private_function_field() {
 #[test]
 fn use_unqualified_pub_const_equal_to_private_function() {
     assert_erl!(
-        (
-            "package",
-            "mappers",
-            r#"
+        r#"
               fn identity(a) {
                 a
               }
 
               pub const id = identity
         "#
-        ),
-        r#"
-          import mappers.{ id } as _
-
-          pub fn main() {
-            id
-          }
-        "#
     );
 }
 
 #[test]
-fn use_qualified_pub_const_equal_to_private_function() {
+fn use_unqualified_pub_const_equal_to_record_with_private_function_field() {
     assert_erl!(
-        (
-            "package",
-            "mappers",
-            r#"
+        r#"
               fn identity(a) {
                 a
               }
 
-              pub const id = identity
-        "#
-        ),
-        r#"
-          import mappers
+              pub type Mapper(b) {
+                Mapper(fn(b) -> b)
+              }
 
-          pub fn main() {
-            mappers.id
-          }
+              pub const id_mapper = Mapper(identity)
         "#
     );
 }
 
 #[test]
-fn use_unqualified_pub_const_equal_to_record_with_private_function_field() {
+fn use_qualified_pub_const_equal_to_record_with_private_function_field() {
     assert_erl!(
-        (
-            "package",
-            "mappers",
-            r#"
+        r#"
               fn identity(a) {
                 a
               }
@@ -181,24 +160,13 @@ fn use_unqualified_pub_const_equal_to_record_with_private_function_field() {
 
               pub const id_mapper = Mapper(identity)
         "#
-        ),
-        r#"
-          import mappers.{ id_mapper } as _
-
-          pub fn main() {
-            id_mapper
-          }
-        "#
     );
 }
 
 #[test]
-fn use_qualified_pub_const_equal_to_record_with_private_function_field() {
+fn use_private_in_internal() {
     assert_erl!(
-        (
-            "package",
-            "mappers",
-            r#"
+        r#"
               fn identity(a) {
                 a
               }
@@ -207,15 +175,8 @@ fn use_qualified_pub_const_equal_to_record_with_private_function_field() {
                 Mapper(fn(b) -> b)
               }
 
+              @internal
               pub const id_mapper = Mapper(identity)
         "#
-        ),
-        r#"
-          import mappers
-
-          pub fn main() {
-            mappers.id_mapper
-          }
-        "#
     );
 }

compiler-core/src/erlang/tests/snapshots/gleam_core__erlang__tests__consts__use_private_in_internal.snap

@@ -0,0 +1,16 @@
+---
+source: compiler-core/src/erlang/tests/consts.rs
+assertion_line: 168
+expression: "\n              fn identity(a) {\n                a\n              }\n\n              pub type Mapper(b) {\n                Mapper(fn(b) -> b)\n              }\n\n              @internal\n              pub const id_mapper = Mapper(identity)\n        "
+---
+-module(my@mod).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
+
+-export([identity/1]).
+-export_type([mapper/1]).
+
+-type mapper(I) :: {mapper, fun((I) -> I)}.
+
+-spec identity(J) -> J.
+identity(A) ->
+    A.

compiler-core/src/erlang/tests/snapshots/gleam_core__erlang__tests__consts__use_qualified_pub_const_equal_to_record_with_private_function_field.snap

@@ -1,13 +1,16 @@
 ---
 source: compiler-core/src/erlang/tests/consts.rs
-expression: "\n          import mappers\n\n          pub fn main() {\n            mappers.id_mapper\n          }\n        "
+assertion_line: 151
+expression: "\n              fn identity(a) {\n                a\n              }\n\n              pub type Mapper(b) {\n                Mapper(fn(b) -> b)\n              }\n\n              pub const id_mapper = Mapper(identity)\n        "
 ---
 -module(my@mod).
 -compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
 
--export([main/0]).
+-export([identity/1]).
+-export_type([mapper/1]).
 
--spec main() -> mappers:mapper(any()).
-main() ->
-    {mapper, fun mappers:identity/1}.
+-type mapper(I) :: {mapper, fun((I) -> I)}.
 
+-spec identity(J) -> J.
+identity(A) ->
+    A.

compiler-core/src/erlang/tests/snapshots/gleam_core__erlang__tests__consts__use_unqualified_pub_const_equal_to_private_function.snap

@@ -1,13 +1,13 @@
 ---
 source: compiler-core/src/erlang/tests/consts.rs
-expression: "\n          import mappers.{ id } as _\n\n          pub fn main() {\n            id\n          }\n        "
+assertion_line: 121
+expression: "\n              fn identity(a) {\n                a\n              }\n\n              pub const id = identity\n        "
 ---
 -module(my@mod).
 -compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
 
--export([main/0]).
-
--spec main() -> fun((N) -> N).
-main() ->
-    fun mappers:identity/1.
+-export([identity/1]).
 
+-spec identity(I) -> I.
+identity(A) ->
+    A.

compiler-core/src/erlang/tests/snapshots/gleam_core__erlang__tests__consts__use_unqualified_pub_const_equal_to_record_with_private_function_field.snap

@@ -1,13 +1,16 @@
 ---
 source: compiler-core/src/erlang/tests/consts.rs
-expression: "\n          import mappers.{ id_mapper } as _\n\n          pub fn main() {\n            id_mapper\n          }\n        "
+assertion_line: 134
+expression: "\n              fn identity(a) {\n                a\n              }\n\n              pub type Mapper(b) {\n                Mapper(fn(b) -> b)\n              }\n\n              pub const id_mapper = Mapper(identity)\n        "
 ---
 -module(my@mod).
 -compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
 
--export([main/0]).
+-export([identity/1]).
+-export_type([mapper/1]).
 
--spec main() -> mappers:mapper(any()).
-main() ->
-    {mapper, fun mappers:identity/1}.
+-type mapper(I) :: {mapper, fun((I) -> I)}.
 
+-spec identity(J) -> J.
+identity(A) ->
+    A.