gistfile1.txt

dedup_test_mods(Mods) ->
    extract_dedups([{expand_mod(atom_to_list(Mod)), Mod} || Mod <- Mods]).

expand_mod(ModStr) ->
    case lists:suffix("_test", ModStr) of
        true -> ModStr;
        false -> ModStr ++ "_test"
    end.

extract_dedups(Mods) ->
    [Mod || {_, Mod} <- lists:ukeysort(Mods)].