trackler 2.0.6.28 → 2.0.6.29

data/tracks/erlang/exercises/etl/{etl_tests.erl → test/etl_tests.erl}

@@ -1,10 +1,9 @@
 -module(etl_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(etl))).
 
 transform_one_value_test() ->
   erl_transform([{1, ["a"]}], [{"a", 1}]).
@@ -33,4 +32,4 @@ transform_full_dataset_test() ->
   erl_transform(Old, Expected).
 
 erl_transform(Old, New) ->
-  ?assertEqual(lists:sort(New), lists:sort(etl:transform(Old))).
+  ?assertEqual(lists:sort(New), lists:sort(?TESTED_MODULE:transform(Old))).

data/tracks/erlang/exercises/gigasecond/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/gigasecond/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/gigasecond/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(gigasecond).
+-module(example).
 -export([from/1]).
 
 -define(GIGASECOND, 1000000000).
@@ -8,4 +8,3 @@ from({Year, Month, Day}) ->
 from(DateTime) ->
   Seconds = calendar:datetime_to_gregorian_seconds(DateTime),
   calendar:gregorian_seconds_to_datetime(Seconds + ?GIGASECOND).
-

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

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

data/tracks/erlang/exercises/gigasecond/test/gigasecond_tests.erl

@@ -0,0 +1,22 @@
+-module(gigasecond_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(gigasecond))).
+
+one_test() ->
+  Gs = ?TESTED_MODULE:from({2011, 4, 25}),
+  ?assertEqual({{2043, 1, 1}, {1, 46, 40}}, Gs).
+
+two_test() ->
+  Gs = ?TESTED_MODULE:from({1977, 6, 13}),
+  ?assertEqual({{2009, 2, 19}, {1, 46, 40}}, Gs).
+
+three_test() ->
+  Gs = ?TESTED_MODULE:from({1959, 7, 19}),
+  ?assertEqual({{1991, 3, 27}, {1, 46, 40}}, Gs).
+
+four_with_seconds_test() ->
+  Gs = ?TESTED_MODULE:from({{1959, 7, 19}, {23, 59, 59}}),
+  ?assertEqual({{1991, 3, 28}, {1, 46, 39}}, Gs).

data/tracks/erlang/exercises/grade-school/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/grade-school/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/grade-school/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(grade_school).
+-module(example).
 
 -export([add/3, get/2, sort/1, new/0]).
 

data/tracks/erlang/exercises/grade-school/src/grade_school.app.src

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

data/tracks/erlang/exercises/grade-school/test/grade_school_tests.erl

@@ -0,0 +1,47 @@
+-module(grade_school_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(grade_school))).
+
+add_student_test() ->
+  S1 = ?TESTED_MODULE:add("Aimee", 2, ?TESTED_MODULE:new()),
+  Students = ?TESTED_MODULE:get(2, S1),
+  ?assertEqual(["Aimee"], lists:sort(Students)).
+
+add_more_students_in_same_class_test() ->
+  S1 = ?TESTED_MODULE:add("James", 2, ?TESTED_MODULE:new()),
+  S2 = ?TESTED_MODULE:add("Blair", 2, S1),
+  S3 = ?TESTED_MODULE:add("Paul", 2, S2),
+  Students = ?TESTED_MODULE:get(2, S3),
+  ?assertEqual(["Blair","James","Paul"], lists:sort(Students)).
+
+add_students_to_different_grades_test() ->
+  S1 = ?TESTED_MODULE:add("Chelsea", 3, ?TESTED_MODULE:new()),
+  S2 = ?TESTED_MODULE:add("Logan", 7, S1),
+
+  ?assertEqual(["Chelsea"], ?TESTED_MODULE:get(3, S2)),
+  ?assertEqual(["Logan"], ?TESTED_MODULE:get(7, S2)).
+
+get_students_in_a_grade_test() ->
+  S1 = ?TESTED_MODULE:add("Franklin", 5, ?TESTED_MODULE:new()),
+  S2 = ?TESTED_MODULE:add("Bradley", 5, S1),
+  S3 = ?TESTED_MODULE:add("Jeff", 1, S2),
+  Students = ?TESTED_MODULE:get(5, S3),
+  ?assertEqual(["Bradley","Franklin"], lists:sort(Students)).
+
+get_students_in_a_non_existant_grade_test() ->
+  ?assertEqual([], ?TESTED_MODULE:get(1, ?TESTED_MODULE:new())).
+
+sort_school_test() ->
+  S1 = ?TESTED_MODULE:add("Jennifer", 4, ?TESTED_MODULE:new()),
+  S2 = ?TESTED_MODULE:add("Kareem", 6, S1),
+  S3 = ?TESTED_MODULE:add("Christopher", 4, S2),
+  S4 = ?TESTED_MODULE:add("Kyle", 3, S3),
+
+  Sorted = [{3, ["Kyle"]},
+            {4, ["Christopher", "Jennifer"]},
+            {6, ["Kareem"]}],
+
+  ?assertEqual(Sorted, ?TESTED_MODULE:sort(S4)).

data/tracks/erlang/exercises/grains/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/grains/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/grains/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(grains).
+-module(example).
 -export([square/1, total/0]).
 
 square(N) ->
@@ -14,4 +14,3 @@ total() ->
   lists:foldl(fun(Elem, Acc) -> square(Elem) + Acc end,
               0,
               lists:seq(1, 64)).
-

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

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

data/tracks/erlang/exercises/grains/test/grains_tests.erl

@@ -0,0 +1,32 @@
+-module(grains_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(grains))).
+
+-define(assertGrains(Grains, Square), ?assertMatch(Grains, ?TESTED_MODULE:square(Square))).
+
+square_1_test() ->
+  ?assertGrains(1, 1).
+
+square_2_test() ->
+  ?assertGrains(2, 2).
+
+square_3_test() ->
+  ?assertGrains(4, 3).
+
+square_4_test() ->
+  ?assertGrains(8, 4).
+
+square_16_test() ->
+  ?assertGrains(32768, 16).
+
+square_32_test() ->
+  ?assertGrains(2147483648, 32).
+
+square_64_test() ->
+  ?assertGrains(9223372036854775808, 64).
+
+total_grains_test() ->
+  ?assertMatch(18446744073709551615, ?TESTED_MODULE:total()).

data/tracks/erlang/exercises/hamming/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/hamming/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/hamming/{example.erl → src/example.erl}

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

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

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

data/tracks/erlang/exercises/hamming/test/hamming_tests.erl

@@ -0,0 +1,24 @@
+-module(hamming_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(hamming))).
+
+empty_test()->
+  ?assertEqual(0, ?TESTED_MODULE:hamming_distance("", "")).
+
+equal_test() ->
+  ?assertEqual(0, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "GAGCCTACTAACGGGAT")).
+
+all_different_test() ->
+  ?assertEqual(17, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "FFFFFFFFFFFFFFFFF")).
+
+ends_different_test()->
+  ?assertEqual(2, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "TAGCCTACTAACGGGAG")).
+
+middle_different_test() ->
+  ?assertEqual(1, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "GAGCCTACCAACGGGAT")).
+
+some_differences_test() ->
+  ?assertEqual(6, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "GAACCTCCCAAGGGATT")).

data/tracks/erlang/exercises/hello-world/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/hello-world/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/hello-world/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(hello_world).
+-module(example).
 -export([greet/0, greet/1]).
 
 greet() -> "Hello, World!".

data/tracks/erlang/exercises/hello-world/src/hello_world.app.src

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

data/tracks/erlang/exercises/hello-world/test/hello_world_tests.erl

@@ -0,0 +1,18 @@
+-module(hello_world_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(hello_world))).
+
+no_name_test() ->
+  ?assertEqual("Hello, World!", ?TESTED_MODULE:greet()).
+
+alice_test() ->
+  ?assertEqual("Hello, Alice!", ?TESTED_MODULE:greet("Alice")).
+
+bob_test() ->
+  ?assertEqual("Hello, Bob!", ?TESTED_MODULE:greet("Bob")).
+
+strange_test() ->
+  ?assertEqual("Hello, !", ?TESTED_MODULE:greet("")).