trackler 2.0.6.28 → 2.0.6.29

data/tracks/erlang/exercises/roman-numerals/include/exercism.hrl

@@ -0,0 +1,6 @@
+sut(Module) ->
+  {ok, Files} = file:list_dir("./src"),
+  case lists:member(atom_to_list(Module) ++ ".erl", Files) of
+    true  -> Module;
+    false -> example
+  end.

data/tracks/erlang/exercises/roman-numerals/rebar.conf

@@ -0,0 +1,30 @@
+%% Erlang compiler options
+{erl_opts, [debug_info]}.
+
+{deps, []}.
+
+{dialyzer, [
+  {warnings, [underspecs, no_return]},
+  {get_warnings, true},
+  {plt_apps, top_level_deps}, % top_level_deps | all_deps
+  {plt_extra_apps, []},
+  {plt_location, local}, % local | "/my/file/name"
+  {plt_prefix, "rebar3"},
+  {base_plt_apps, [stdlib, kernel, crypto]},
+  {base_plt_location, global}, % global | "/my/file/name"
+  {base_plt_prefix, "rebar3"}
+]}.
+
+%% eunit:test(Tests)
+{eunit_tests, [{application, beer_song}]}.
+%% Options for eunit:test(Tests, Opts)
+{eunit_opts, [verbose]}.
+
+%% == xref ==
+
+{xref_warnings, true}.
+
+%% xref checks to run
+{xref_checks, [undefined_function_calls, undefined_functions,
+  locals_not_used, exports_not_used,
+  deprecated_function_calls, deprecated_functions]}.

data/tracks/erlang/exercises/roman-numerals/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(roman_numerals).
+-module(example).
 
 -export([numerals/1]).
 

data/tracks/erlang/exercises/roman-numerals/src/roman_numerals.app.src

@@ -0,0 +1,9 @@
+{application, roman_numerals,
+  [{description, "exercism.io - roman-numerals"},
+    {vsn, "git"},
+    {modules, []},
+    {registered, []},
+    {applications, [kernel,
+      stdlib]},
+    {env, []}
+  ]}.

data/tracks/erlang/exercises/roman-numerals/{roman_numerals_tests.erl → test/roman_numerals_tests.erl}

@@ -1,13 +1,12 @@
 -module(roman_numerals_tests).
 
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
-% To run tests:
-% erlc -make
-% erl -noshell -eval "eunit:test(etl, [verbose])" -s init stop
+-define(TESTED_MODULE, (sut(roman_numerals))).
 
 expect_roman(Number, Expected) ->
-  ?assertEqual(roman_numerals:numerals(Number), Expected).
+  ?assertEqual(?TESTED_MODULE:numerals(Number), Expected).
 
 convert_1_test() -> expect_roman(1, "I").
 

data/tracks/erlang/exercises/scrabble-score/include/exercism.hrl

@@ -0,0 +1,6 @@
+sut(Module) ->
+  {ok, Files} = file:list_dir("./src"),
+  case lists:member(atom_to_list(Module) ++ ".erl", Files) of
+    true  -> Module;
+    false -> example
+  end.

data/tracks/erlang/exercises/scrabble-score/rebar.conf

@@ -0,0 +1,30 @@
+%% Erlang compiler options
+{erl_opts, [debug_info]}.
+
+{deps, []}.
+
+{dialyzer, [
+  {warnings, [underspecs, no_return]},
+  {get_warnings, true},
+  {plt_apps, top_level_deps}, % top_level_deps | all_deps
+  {plt_extra_apps, []},
+  {plt_location, local}, % local | "/my/file/name"
+  {plt_prefix, "rebar3"},
+  {base_plt_apps, [stdlib, kernel, crypto]},
+  {base_plt_location, global}, % global | "/my/file/name"
+  {base_plt_prefix, "rebar3"}
+]}.
+
+%% eunit:test(Tests)
+{eunit_tests, [{application, beer_song}]}.
+%% Options for eunit:test(Tests, Opts)
+{eunit_opts, [verbose]}.
+
+%% == xref ==
+
+{xref_warnings, true}.
+
+%% xref checks to run
+{xref_checks, [undefined_function_calls, undefined_functions,
+  locals_not_used, exports_not_used,
+  deprecated_function_calls, deprecated_functions]}.

data/tracks/erlang/exercises/scrabble-score/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(scrabble_score).
+-module(example).
 
 -export([score/1]).
 
@@ -24,4 +24,4 @@ get_char_value( $g ) ->  2;
 get_char_value( C ) when C >= $a, C =< $z ->  1;
 get_char_value( C ) when C >= $A, C =< $Z ->
   [C2] = string:to_lower( [C] ),
-  get_char_value( C2 ).  
+  get_char_value( C2 ).

data/tracks/erlang/exercises/scrabble-score/src/scrabble_score.app.src

@@ -0,0 +1,9 @@
+{application, scrabble_score,
+  [{description, "exercism.io - scrabble-score"},
+    {vsn, "git"},
+    {modules, []},
+    {registered, []},
+    {applications, [kernel,
+      stdlib]},
+    {env, []}
+  ]}.

data/tracks/erlang/exercises/scrabble-score/{scrabble_score_tests.erl → test/scrabble_score_tests.erl}

@@ -1,7 +1,11 @@
 -module(scrabble_score_tests).
+
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
--define(checkScore(N, S), ?assertEqual(N, scrabble_score:score(S))).
+-define(TESTED_MODULE, (sut(scrabble))).
+
+-define(checkScore(N, S), ?assertEqual(N, ?TESTED_MODULE:score(S))).
 
 empty_word_scores_zero_test() -> ?checkScore(0, "").
 

data/tracks/erlang/exercises/series/include/exercism.hrl

@@ -0,0 +1,6 @@
+sut(Module) ->
+  {ok, Files} = file:list_dir("./src"),
+  case lists:member(atom_to_list(Module) ++ ".erl", Files) of
+    true  -> Module;
+    false -> example
+  end.

data/tracks/erlang/exercises/series/rebar.conf

@@ -0,0 +1,30 @@
+%% Erlang compiler options
+{erl_opts, [debug_info]}.
+
+{deps, []}.
+
+{dialyzer, [
+  {warnings, [underspecs, no_return]},
+  {get_warnings, true},
+  {plt_apps, top_level_deps}, % top_level_deps | all_deps
+  {plt_extra_apps, []},
+  {plt_location, local}, % local | "/my/file/name"
+  {plt_prefix, "rebar3"},
+  {base_plt_apps, [stdlib, kernel, crypto]},
+  {base_plt_location, global}, % global | "/my/file/name"
+  {base_plt_prefix, "rebar3"}
+]}.
+
+%% eunit:test(Tests)
+{eunit_tests, [{application, beer_song}]}.
+%% Options for eunit:test(Tests, Opts)
+{eunit_opts, [verbose]}.
+
+%% == xref ==
+
+{xref_warnings, true}.
+
+%% xref checks to run
+{xref_checks, [undefined_function_calls, undefined_functions,
+  locals_not_used, exports_not_used,
+  deprecated_function_calls, deprecated_functions]}.

data/tracks/erlang/exercises/series/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module( series ).
+-module( example ).
 
 -export( [from_string/2] ).
 

data/tracks/erlang/exercises/series/src/series.app.src

@@ -0,0 +1,9 @@
+{application, series,
+  [{description, "exercism.io - series"},
+    {vsn, "git"},
+    {modules, []},
+    {registered, []},
+    {applications, [kernel,
+      stdlib]},
+    {env, []}
+  ]}.

data/tracks/erlang/exercises/series/test/series_tests.erl

@@ -0,0 +1,10 @@
+-module( series_tests ).
+
+-include("exercism.hrl").
+-include_lib( "eunit/include/eunit.hrl" ).
+
+-define(TESTED_MODULE, (sut(series))).
+
+three_test() -> ?assert( ?TESTED_MODULE:from_string(3, "01234") =:= ["012", "123", "234"] ).
+
+four_test() -> ?assert( ?TESTED_MODULE:from_string(4, "01234") =:= ["0123", "1234"] ).

data/tracks/erlang/exercises/space-age/include/exercism.hrl

@@ -0,0 +1,6 @@
+sut(Module) ->
+  {ok, Files} = file:list_dir("./src"),
+  case lists:member(atom_to_list(Module) ++ ".erl", Files) of
+    true  -> Module;
+    false -> example
+  end.

data/tracks/erlang/exercises/space-age/rebar.conf

@@ -0,0 +1,30 @@
+%% Erlang compiler options
+{erl_opts, [debug_info]}.
+
+{deps, []}.
+
+{dialyzer, [
+  {warnings, [underspecs, no_return]},
+  {get_warnings, true},
+  {plt_apps, top_level_deps}, % top_level_deps | all_deps
+  {plt_extra_apps, []},
+  {plt_location, local}, % local | "/my/file/name"
+  {plt_prefix, "rebar3"},
+  {base_plt_apps, [stdlib, kernel, crypto]},
+  {base_plt_location, global}, % global | "/my/file/name"
+  {base_plt_prefix, "rebar3"}
+]}.
+
+%% eunit:test(Tests)
+{eunit_tests, [{application, beer_song}]}.
+%% Options for eunit:test(Tests, Opts)
+{eunit_opts, [verbose]}.
+
+%% == xref ==
+
+{xref_warnings, true}.
+
+%% xref checks to run
+{xref_checks, [undefined_function_calls, undefined_functions,
+  locals_not_used, exports_not_used,
+  deprecated_function_calls, deprecated_functions]}.

data/tracks/erlang/exercises/space-age/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(space_age).
+-module(example).
 
 -export([ageOn/2]).
 

data/tracks/erlang/exercises/space-age/src/space_age.app.src

@@ -0,0 +1,9 @@
+{application, space_age,
+  [{description, "exercism.io - space-age"},
+    {vsn, "git"},
+    {modules, []},
+    {registered, []},
+    {applications, [kernel,
+      stdlib]},
+    {env, []}
+  ]}.

data/tracks/erlang/exercises/space-age/test/space_age_tests.erl

@@ -0,0 +1,51 @@
+-module(space_age_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(space_age))).
+
+age_in_earth_years_test() ->
+  equalFloat(?TESTED_MODULE:ageOn(earth, 1000000000), 31.69).
+
+age_in_mercury_years_test() ->
+  Seconds = 2134835688,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 67.65),
+  equalFloat(?TESTED_MODULE:ageOn(mercury, Seconds), 280.88).
+
+age_in_venus_years_test() ->
+  Seconds = 189839836,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 6.02),
+  equalFloat(?TESTED_MODULE:ageOn(venus, Seconds), 9.78).
+
+age_in_mars_years_test() ->
+  Seconds = 2329871239,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 73.83),
+  equalFloat(?TESTED_MODULE:ageOn(mars, Seconds), 39.25).
+
+age_in_jupiter_years_test() ->
+  Seconds = 901876382,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 28.58),
+  equalFloat(?TESTED_MODULE:ageOn(jupiter, Seconds), 2.41).
+
+age_in_saturn_years_test() ->
+  Seconds = 3000000000,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 95.06),
+  equalFloat(?TESTED_MODULE:ageOn(saturn, Seconds), 3.23).
+
+age_in_uranus_years_test() ->
+  Seconds = 3210123456,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 101.72),
+  equalFloat(?TESTED_MODULE:ageOn(uranus, Seconds), 1.21).
+
+age_in_neptune_years_test() ->
+  Seconds = 8210123456,
+  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 260.16),
+  equalFloat(?TESTED_MODULE:ageOn(neptune, Seconds), 1.58).
+
+equalFloat(A, B) ->
+  ?assertEqual(B, round(A,2)).
+
+round(Number, Precision) ->
+  P = math:pow(10, Precision),
+  round(Number * P) / P.

data/tracks/erlang/exercises/strain/include/exercism.hrl

@@ -0,0 +1,6 @@
+sut(Module) ->
+  {ok, Files} = file:list_dir("./src"),
+  case lists:member(atom_to_list(Module) ++ ".erl", Files) of
+    true  -> Module;
+    false -> example
+  end.

data/tracks/erlang/exercises/strain/rebar.conf

@@ -0,0 +1,30 @@
+%% Erlang compiler options
+{erl_opts, [debug_info]}.
+
+{deps, []}.
+
+{dialyzer, [
+  {warnings, [underspecs, no_return]},
+  {get_warnings, true},
+  {plt_apps, top_level_deps}, % top_level_deps | all_deps
+  {plt_extra_apps, []},
+  {plt_location, local}, % local | "/my/file/name"
+  {plt_prefix, "rebar3"},
+  {base_plt_apps, [stdlib, kernel, crypto]},
+  {base_plt_location, global}, % global | "/my/file/name"
+  {base_plt_prefix, "rebar3"}
+]}.
+
+%% eunit:test(Tests)
+{eunit_tests, [{application, beer_song}]}.
+%% Options for eunit:test(Tests, Opts)
+{eunit_opts, [verbose]}.
+
+%% == xref ==
+
+{xref_warnings, true}.
+
+%% xref checks to run
+{xref_checks, [undefined_function_calls, undefined_functions,
+  locals_not_used, exports_not_used,
+  deprecated_function_calls, deprecated_functions]}.

data/tracks/erlang/exercises/strain/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(strain).
+-module(example).
 
 -export([keep/2, discard/2]).
 

data/tracks/erlang/exercises/strain/src/strain.app.src

@@ -0,0 +1,9 @@
+{application, strain,
+  [{description, "exercism.io - strain"},
+    {vsn, "git"},
+    {modules, []},
+    {registered, []},
+    {applications, [kernel,
+      stdlib]},
+    {env, []}
+  ]}.

data/tracks/erlang/exercises/strain/test/strain_tests.erl

@@ -0,0 +1,52 @@
+-module(strain_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(strain))).
+
+empty_keep_test() ->
+  ?assertEqual([], ?TESTED_MODULE:keep(fun(X) -> X < 10 end, [])).
+
+keep_everything_test() ->
+  ?assertEqual([1, 2, 3], ?TESTED_MODULE:keep(fun(X) -> X < 10 end, [1,2,3])).
+
+keep_first_last_test() ->
+  ?assertEqual([1, 3], ?TESTED_MODULE:keep(fun(X) -> odd(X) end, [1,2,3])).
+
+keep_nothin_test() ->
+  ?assertEqual([], ?TESTED_MODULE:keep(fun(X) -> even(X) end, [1,3,5,7])).
+
+keep_neither_first_nor_last_test() ->
+  ?assertEqual([2], ?TESTED_MODULE:keep(fun(X) -> even(X) end, [1,2,3])).
+
+keep_strings_test() ->
+  Str = ["apple", "zebra", "banana", "zombies", "cherimoya", "zealot"],
+  ?assertEqual(
+     ["zebra", "zombies", "zealot"],
+     ?TESTED_MODULE:keep(fun(S) -> string:sub_string(S, 1,1) =:= "z" end, Str)).
+
+empty_discard_test() ->
+  ?assertEqual([], ?TESTED_MODULE:discard(fun(X) -> X < 10 end, [])).
+
+discard_everything_test() ->
+  ?assertEqual([], ?TESTED_MODULE:discard(fun(X) -> X < 10 end, [1,2,3])).
+
+discard_first_and_last_test() ->
+  ?assertEqual([2], ?TESTED_MODULE:discard(fun(X) -> odd(X) end, [1,2,3])).
+
+discard_nothing_test() ->
+  ?assertEqual([1, 3, 5, 7], ?TESTED_MODULE:discard(fun(X) -> even(X) end, [1,3,5,7])).
+
+discard_neither_first_nor_last_test() ->
+  ?assertEqual([1, 3], ?TESTED_MODULE:discard(fun(X) -> even(X) end, [1,2,3])).
+
+discard_strings_test() ->
+  Str = ["apple", "zebra", "banana", "zombies", "cherimoya", "zealot"],
+  ?assertEqual(
+     ["apple", "banana", "cherimoya"],
+     ?TESTED_MODULE:discard(fun(S) -> string:sub_string(S, 1,1) =:= "z" end, Str)).
+
+odd(N) -> N rem 2 > 0.
+
+even(N) -> N rem 2 =:= 0.

data/tracks/erlang/exercises/sum-of-multiples/include/exercism.hrl

@@ -0,0 +1,6 @@
+sut(Module) ->
+  {ok, Files} = file:list_dir("./src"),
+  case lists:member(atom_to_list(Module) ++ ".erl", Files) of
+    true  -> Module;
+    false -> example
+  end.