CodeRabbit Generated Unit Tests: Add unit tests for PR changes

test/atomvm_spectrometer_tests.erl

@@ -455,6 +455,22 @@ parse_supported_args_short_module_test_() ->
         ?assertEqual(maps, maps:get(module, Opts))
     end}.
 
+parse_supported_args_erl_test_() ->
+    {"parses --erl flag", fun() ->
+        {command, supported, Opts} = atomvm_spectrometer:parse_args(
+            ["supported", "--erl"]
+        ),
+        ?assertEqual(erlang_only, maps:get(filter, Opts))
+    end}.
+
+parse_supported_args_ex_test_() ->
+    {"parses --ex flag", fun() ->
+        {command, supported, Opts} = atomvm_spectrometer:parse_args(
+            ["supported", "--ex"]
+        ),
+        ?assertEqual(elixir_only, maps:get(filter, Opts))
+    end}.
+
 %% =============================================================================
 %% parse_filter_args/2 tests
 %% =============================================================================
@@ -504,12 +520,37 @@ parse_filter_args_multiple_csv_test_() ->
 parse_filter_args_invalid_min_repos_test_() ->
     {"returns error for invalid --min-repos", fun() ->
         {error, Msg} = atomvm_spectrometer:parse_args([
-            "filter", "results.csv", "--min-repos", "abc"
-        ]),
-        ?assert(string:str(Msg, "Invalid") > 0)
+        )
+    end}.
+
+parse_supported_args_capitalized_module_no_prefix_test_() ->
+    {"parses -m with capitalized module name without Elixir prefix stays as-is", fun() ->
+        % normalize_module_name/1 (ElixirFlag=false) does NOT add Elixir prefix
+        % "List" -> 'List', not 'Elixir.List'
+        {command, supported, Opts} = atomvm_spectrometer:parse_args(
+            ["supported", "-m", "List"]
+        ),
+        ?assertEqual('List', maps:get(module, Opts))
+    end}.
+
+parse_supported_args_erlang_module_test_() ->
+    {"parses --module with lowercase erlang module name", fun() ->
+        {command, supported, Opts} = atomvm_spectrometer:parse_args(
+            ["supported", "--module", "gen_server"]
+        ),
+        ?assertEqual(gen_server, maps:get(module, Opts))
     end}.
 
-parse_filter_args_flag_as_file_test_() ->
+parse_supported_args_unknown_flag_test_() ->
+    {"returns error for unknown flag in supported args", fun() ->
+        {error, _Msg} = atomvm_spectrometer:parse_args(
+            ["supported", "--unknown-flag"]
+        )
+    end}.
+
+%% =============================================================================
+%% parse_filter_args/2 tests
+%% =============================================================================
     {"returns error for flag-shaped option where csv_file expected", fun() ->
         {error, Msg} = atomvm_spectrometer:parse_args([
             "filter", "--unknown-flag"
@@ -661,16 +702,16 @@ parse_query_string_zero_arity_test_() ->
         )
     end}.
 
-parse_query_string_unknown_module_test_() ->
-    {"returns ok for non-existent module", fun() ->
+parse_query_string_without_arity_test_() ->
+    {"returns ok for module query without arity", fun() ->
         ?assertEqual(
-            {ok, nonexistent_module_xyz, foo},
-            spectrometer_atomvm:parse_query_string("nonexistent_module_xyz:foo")
+            {ok, module_xyz, foo},
+            spectrometer_atomvm:parse_query_string("module_xyz:foo")
         )
     end}.
 
-parse_query_string_missing_colon_test_() ->
-    {"returns error for missing colon", fun() ->
+parse_invalid_query_string_test_() ->
+    {"returns error for invalid query string", fun() ->
         {error, _} = spectrometer_atomvm:parse_query_string("foobar"),
         {error, Msg1} = spectrometer_atomvm:parse_query_string("foobar"),
         ?assert(string:str(Msg1, "Invalid format") > 0)
@@ -682,6 +723,32 @@ parse_query_string_invalid_arity_test_() ->
         ?assert(string:str(Msg, "Invalid arity") > 0)
     end}.
 
+parse_query_string_elixir_formats_test_() ->
+    {"parse Elixir query formats for Elixir.GPIO:digital_read", fun() ->
+        FormatsWithArity = [
+            {"Elixir.GPIO.digital_read/1",
+                {ok, 'Elixir.GPIO', digital_read, 1}},
+            {"GPIO.digital_read/1", {ok, 'Elixir.GPIO', digital_read, 1}},
+            {"Elixir.GPIO:digital_read/1",
+                {ok, 'Elixir.GPIO', digital_read, 1}},
+            {"GPIO:digital_read/1", {ok, 'Elixir.GPIO', digital_read, 1}}
+        ],
+        FormatsNoArity = [
+            {"Elixir.GPIO.digital_read", {ok, 'Elixir.GPIO', digital_read}},
+            {"Elixir.GPIO:digital_read", {ok, 'Elixir.GPIO', digital_read}},
+            {"GPIO.digital_read", {ok, 'Elixir.GPIO', digital_read}},
+            {"GPIO:digital_read", {ok, 'Elixir.GPIO', digital_read}}
+        ],
+        lists:foreach(
+            fun({Format, Expected}) ->
+                ?assertEqual(
+                    Expected, spectrometer_atomvm:parse_query_string(Format)
+                )
+            end,
+            FormatsWithArity ++ FormatsNoArity
+        )
+    end}.
+
 %% =============================================================================
 %% Helper function tests
 %% =============================================================================

test/spectrometer_elixir_tests.erl

@@ -0,0 +1,250 @@
+%%
+%% Copyright (c) 2026 Winford (UncleGrumpy) <winford@object.stream>
+%% All rights reserved.
+%%
+%% This is part of atomvm_spectrometer
+%%
+%% SPDX-FileCopyrightText: 2026 Winford (UncleGrumpy)  <winford@object.stream>
+%% SPDX-License-Identifier: Apache-2.0
+%%
+
+-module(spectrometer_elixir_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+%% =============================================================================
+%% parse_query_string/1 tests - 8 formats for Elixir.GPIO:digital_read/1
+%% =============================================================================
+
+parse_query_8_formats_test() ->
+    FormatsWithArity = [
+        {"Elixir.GPIO.digital_read/1", {ok, 'Elixir.GPIO', digital_read, 1}},
+        {"GPIO.digital_read/1", {ok, 'Elixir.GPIO', digital_read, 1}},
+        {"Elixir.GPIO:digital_read/1", {ok, 'Elixir.GPIO', digital_read, 1}},
+        {"GPIO:digital_read/1", {ok, 'Elixir.GPIO', digital_read, 1}}
+    ],
+    FormatsNoArity = [
+        {"Elixir.GPIO.digital_read", {ok, 'Elixir.GPIO', digital_read}},
+        {"GPIO.digital_read", {ok, 'Elixir.GPIO', digital_read}},
+        {"Elixir.GPIO:digital_read", {ok, 'Elixir.GPIO', digital_read}},
+        {"GPIO:digital_read", {ok, 'Elixir.GPIO', digital_read}}
+    ],
+    lists:foreach(
+        fun({Format, Expected}) ->
+            Result = spectrometer_atomvm:parse_query_string(Format),
+            ?assertEqual(Expected, Result)
+        end,
+        FormatsWithArity ++ FormatsNoArity
+    ).
+
+%% =============================================================================
+%% normalize_module tests
+%% =============================================================================
+
+normalize_gpio_test() ->
+    ?assertEqual(
+        'GPIO',
+        spectrometer_utils:normalize_module_name("GPIO")
+    ).
+
+normalize_elixir_gpio_test() ->
+    ?assertEqual(
+        'Elixir.GPIO',
+        spectrometer_utils:normalize_module_name("Elixir.GPIO")
+    ).
+
+normalize_lists_test() ->
+    ?assertEqual(
+        lists,
+        spectrometer_utils:normalize_module_name("lists")
+    ).
+
+normalize_with_flag_test() ->
+    ?assertEqual(
+        'Elixir.GPIO',
+        spectrometer_utils:normalize_module_name("GPIO", true)
+    ),
+    ?assertEqual(
+        'GPIO',
+        spectrometer_utils:normalize_module_name("GPIO", false)
+    ).
+
+%% =============================================================================
+%% is_elixir_module_name tests
+%% =============================================================================
+
+is_elixir_module_name_elxir_prefix_test() ->
+    ?assertEqual(true, spectrometer_utils:is_elixir_module_name("Elixir.GPIO")),
+    ?assertEqual(
+        true, spectrometer_utils:is_elixir_module_name("Elixir.MyModule")
+    ).
+
+is_elixir_module_name_lowercase_test() ->
+    ?assertEqual(false, spectrometer_utils:is_elixir_module_name("lists")),
+    ?assertEqual(false, spectrometer_utils:is_elixir_module_name("maps")),
+    % Uppercase without Elixir prefix is no longer considered Elixir
+    ?assertEqual(false, spectrometer_utils:is_elixir_module_name("GPIO")),
+    ?assertEqual(false, spectrometer_utils:is_elixir_module_name("MyModule")).
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+        {ok, 'Elixir.MapSet', new, 0},
+        spectrometer_atomvm:parse_query_string("Elixir.MapSet:new/0")
+    ).
+
+%% =============================================================================
+%% filter_modules_by_type/2 tests (new function in this PR)
+%% =============================================================================
+
+filter_modules_by_type_erlang_only_test() ->
+    Mods = [lists, maps, 'Elixir.GPIO', 'Elixir.Enum', erlang, gen_server],
+    Result = spectrometer_atomvm:filter_modules_by_type(Mods, erlang_only),
+    ?assertEqual([lists, maps, erlang, gen_server], Result),
+    % All Elixir modules are removed
+    ?assertNot(lists:member('Elixir.GPIO', Result)),
+    ?assertNot(lists:member('Elixir.Enum', Result)).
+
+filter_modules_by_type_elixir_only_test() ->
+    Mods = [lists, maps, 'Elixir.GPIO', 'Elixir.Enum', erlang, 'Elixir.List'],
+    Result = spectrometer_atomvm:filter_modules_by_type(Mods, elixir_only),
+    ?assertEqual(['Elixir.GPIO', 'Elixir.Enum', 'Elixir.List'], Result),
+    % All Erlang modules are removed
+    ?assertNot(lists:member(lists, Result)),
+    ?assertNot(lists:member(erlang, Result)).
+
+filter_modules_by_type_undefined_test() ->
+    Mods = [lists, 'Elixir.GPIO', erlang],
+    % undefined filter returns all modules unchanged
+    ?assertEqual(Mods, spectrometer_atomvm:filter_modules_by_type(Mods, undefined)).
+
+filter_modules_by_type_empty_list_test() ->
+    % Empty list stays empty regardless of filter
+    ?assertEqual([], spectrometer_atomvm:filter_modules_by_type([], erlang_only)),
+    ?assertEqual([], spectrometer_atomvm:filter_modules_by_type([], elixir_only)),
+    ?assertEqual([], spectrometer_atomvm:filter_modules_by_type([], undefined)).
+
+filter_modules_by_type_all_elixir_with_erlang_filter_test() ->
+    % All Elixir modules filtered by erlang_only gives empty list
+    Mods = ['Elixir.GPIO', 'Elixir.Enum', 'Elixir.List'],
+    ?assertEqual([], spectrometer_atomvm:filter_modules_by_type(Mods, erlang_only)).
+
+filter_modules_by_type_all_erlang_with_elixir_filter_test() ->
+    % All Erlang modules filtered by elixir_only gives empty list
+    Mods = [lists, maps, erlang, gen_server],
+    ?assertEqual([], spectrometer_atomvm:filter_modules_by_type(Mods, elixir_only)).
+
+%% =============================================================================
+%% format_since/1 tests (function exists in this PR's scope)
+%% =============================================================================
+
+format_since_version_binary_test() ->
+    % Binary version string is returned as a string
+    ?assertEqual("v0.5.0", spectrometer_atomvm:format_since(<<"v0.5.0">>)),
+    ?assertEqual("v0.7.0", spectrometer_atomvm:format_since(<<"v0.7.0">>)).
+
+format_since_unreleased_test() ->
+    % Unreleased tuple formats as "unreleased BRANCH"
+    ?assertEqual(
+        "unreleased main",
+        spectrometer_atomvm:format_since({unreleased, <<"main">>})
+    ),
+    ?assertEqual(
+        "unreleased 0.7.x",
+        spectrometer_atomvm:format_since({unreleased, <<"0.7.x">>})
+    ).
+
+format_since_unknown_test() ->
+    % Special case: <<"unknown">> returns the string "unknown"
+    ?assertEqual("unknown", spectrometer_atomvm:format_since(<<"unknown">>)).
+
+format_since_other_binary_test() ->
+    % Any other binary is returned as string
+    ?assertEqual(
+        "some_branch",
+        spectrometer_atomvm:format_since(<<"some_branch">>)
+    ).
+
+%% =============================================================================
+%% Regression test: supported_modules includes Elixir modules from bundled data
+%% =============================================================================
+
+supported_modules_includes_elixir_test() ->
+    % The bundled data (updated in this PR) contains Elixir modules
+    % Verify that supported_modules/0 returns a mix of Elixir and Erlang modules
+    Mods = spectrometer_atomvm:supported_modules(),
+    ElixirMods = spectrometer_atomvm:filter_modules_by_type(Mods, elixir_only),
+    ErlangMods = spectrometer_atomvm:filter_modules_by_type(Mods, erlang_only),
+    % After this PR, we should have at least some Elixir modules
+    ?assert(is_list(ElixirMods)),
+    ?assert(is_list(ErlangMods)),
+    % Total count should match
+    ?assertEqual(length(Mods), length(ElixirMods) + length(ErlangMods)).