trackler 2.0.6.28 → 2.0.6.29

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

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

data/tracks/erlang/exercises/nucleotide-count/src/nucleotide_count.app.src

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

data/tracks/erlang/exercises/nucleotide-count/test/dna_tests.erl

@@ -0,0 +1,30 @@
+-module(dna_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(dna))).
+
+empty_dna_string_has_no_adenine_test() ->
+  ?assertEqual(0, ?TESTED_MODULE:count("", "A")).
+
+repetitive_cytosine_gets_counted_test() ->
+  ?assertEqual(5, ?TESTED_MODULE:count("CCCCC", "C")).
+
+counts_only_thymine_test() ->
+  ?assertEqual(1, ?TESTED_MODULE:count("GGGGGTAACCCGG", "T")).
+
+validates_nucleotides_test() ->
+  ?assertException(error, "Invalid nucleotide", ?TESTED_MODULE:count("GACT", "X")).
+
+empty_dna_string_has_no_nucleotides_test() ->
+  ?assertEqual([{"A", 0}, {"T", 0}, {"C", 0}, {"G", 0}], ?TESTED_MODULE:nucleotide_counts("")).
+
+repetitive_sequence_has_only_guanine_test() ->
+  ?assertEqual([{"A", 0}, {"T", 0}, {"C", 0}, {"G", 8}], ?TESTED_MODULE:nucleotide_counts("GGGGGGGG")).
+
+counts_all_nucleotides_test() ->
+  ?assertEqual(
+     [{"A", 20}, {"T", 21}, {"C", 12}, {"G", 17}],
+     ?TESTED_MODULE:nucleotide_counts(
+       "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC")).

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

@@ -1,4 +1,4 @@
--module( parallel_letter_frequency ).
+-module( example ).
 
 -export( [dict/1] ).
 

data/tracks/erlang/exercises/parallel-letter-frequency/src/parallel_letter_frequency.app.src

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

data/tracks/erlang/exercises/parallel-letter-frequency/{parallel_letter_frequency_tests.erl → test/parallel_letter_frequency_tests.erl}

@@ -1,10 +1,14 @@
 -module( parallel_letter_frequency_tests ).
+
+-include("exercism.hrl").
 -include_lib( "eunit/include/eunit.hrl" ).
 
+-define(TESTED_MODULE, (sut(parallel_letter_frequency))).
+
 single_test() ->
-  Frequencies = dict:to_list( parallel_letter_frequency:dict(["asd"]) ),
+  Frequencies = dict:to_list( ?TESTED_MODULE:dict(["asd"]) ),
   ?assert( lists:sort(Frequencies) =:= [{$a,1},{$d,1},{$s,1}] ).
 
 double_test() ->
-  Frequencies = dict:to_list( parallel_letter_frequency:dict(["asd", "asd"]) ),
+  Frequencies = dict:to_list( ?TESTED_MODULE:dict(["asd", "asd"]) ),
   ?assert( lists:sort(Frequencies) =:= [{$a,2},{$d,2},{$s,2}] ).

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

@@ -1,4 +1,4 @@
--module(phone).
+-module(example).
 
 -export([number/1, areacode/1, pretty_print/1]).
 

data/tracks/erlang/exercises/phone-number/src/phone_number.app.src

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

data/tracks/erlang/exercises/phone-number/test/phone_tests.erl

@@ -0,0 +1,28 @@
+-module(phone_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(phone))).
+
+cleans_number_test() ->
+  ?assertEqual("1234567890", ?TESTED_MODULE:number("(123) 456-7890")).
+
+cleans_number_with_dots_test() ->
+  ?assertEqual("1234567890", ?TESTED_MODULE:number("123.456.7890")).
+
+valid_when_eleven_digits_test() ->
+  ?assertEqual("1234567890", ?TESTED_MODULE:number("11234567890")).
+
+invalid_when_eleven_digits_test() ->
+  ?assertEqual("0000000000", ?TESTED_MODULE:number("21234567890")).
+
+invalid_when_nine_digits_test() ->
+  ?assertEqual("0000000000", ?TESTED_MODULE:number("123456789")).
+
+area_code_test() ->
+  ?assertEqual("123", ?TESTED_MODULE:areacode("1234567890")).
+
+pretty_print_test() ->
+  ?assertEqual("(123) 456-7890", ?TESTED_MODULE:pretty_print("1234567890")),
+  ?assertEqual("(123) 456-7890", ?TESTED_MODULE:pretty_print("11234567890")).

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

@@ -1,4 +1,4 @@
--module(rna_transcription).
+-module(example).
 -export([to_rna/1]).
 
 to_rna(Strand) ->

data/tracks/erlang/exercises/rna-transcription/src/rna_transcription.app.src

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

data/tracks/erlang/exercises/rna-transcription/test/rna_transcription_tests.erl

@@ -0,0 +1,24 @@
+-module(rna_transcription_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(rna_transcription))).
+
+transcribes_cytidine_unchanged_test() ->
+  ?assertEqual("C", ?TESTED_MODULE:to_rna("G")).
+
+transcribes_guanosine_unchanged_test() ->
+  ?assertEqual("G", ?TESTED_MODULE:to_rna("C")).
+
+transcribes_adenosine_unchanged_test() ->
+  ?assertEqual("A", ?TESTED_MODULE:to_rna("T")).
+
+transcribes_thymidine_to_uracil_test() ->
+  ?assertEqual("U", ?TESTED_MODULE:to_rna("A")).
+
+transcribes_all_occurences_test() ->
+  ?assertEqual(
+     "UGCACCAGAAUU",
+     ?TESTED_MODULE:to_rna("ACGTGGTCTTAA")
+    ).

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

@@ -1,4 +1,4 @@
--module( robot_simulator ).
+-module( example ).
 
 -export( [advance/1, control/2, create/0, direction/1, left/1, place/3, position/1, right/1] ).
 

data/tracks/erlang/exercises/robot-simulator/src/robot_simulator.app.src

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

data/tracks/erlang/exercises/robot-simulator/test/robot_simulator_tests.erl

@@ -0,0 +1,100 @@
+-module( robot_simulator_tests ).
+
+-include("exercism.hrl").
+-include_lib( "eunit/include/eunit.hrl" ).
+
+-define(TESTED_MODULE, (sut(robot_simulator))).
+
+create_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= undefined ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= {undefined, undefined} ).
+
+place_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Position = {1, 2},
+  ?TESTED_MODULE:place( Robot, north, Position ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= north ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ).
+
+left_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Position = {3, 4},
+  ?TESTED_MODULE:place( Robot, north, Position ),
+  ?TESTED_MODULE:left( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= west ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ),
+  ?TESTED_MODULE:left( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= south ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ),
+  ?TESTED_MODULE:left( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= east ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ),
+  ?TESTED_MODULE:left( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= north ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ).
+
+right_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Position = {5, 6},
+  ?TESTED_MODULE:place( Robot, north, Position ),
+  ?TESTED_MODULE:right( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= east ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ),
+  ?TESTED_MODULE:right( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= south ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ),
+  ?TESTED_MODULE:right( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= west ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ),
+  ?TESTED_MODULE:right( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= north ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ).
+
+advance_north_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Direction = north,
+  ?TESTED_MODULE:place( Robot, Direction, {7, 8} ),
+  ?TESTED_MODULE:advance( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= Direction ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= {7, 9} ).
+
+advance_south_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Direction = south,
+  ?TESTED_MODULE:place( Robot, Direction, {9, 10} ),
+  ?TESTED_MODULE:advance( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= Direction ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= {9, 9} ).
+
+advance_east_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Direction = east,
+  ?TESTED_MODULE:place( Robot, Direction, {11, 12} ),
+  ?TESTED_MODULE:advance( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= Direction ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= {12, 12} ).
+
+advance_west_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Direction = west,
+  ?TESTED_MODULE:place( Robot, Direction, {13, 14} ),
+  ?TESTED_MODULE:advance( Robot ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= Direction ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= {12, 14} ).
+
+control_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:place( Robot, north, {7, 3} ),
+  ?TESTED_MODULE:control( Robot, "RAALAL" ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= west ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= {9, 4} ).
+
+control_unknown_test() ->
+  Robot = ?TESTED_MODULE:create(),
+  Direction = north,
+  Position = {7, 3},
+  ?TESTED_MODULE:place( Robot, Direction, Position ),
+  ?TESTED_MODULE:control( Robot, "unknown" ),
+  ?assert( ?TESTED_MODULE:direction(Robot) =:= Direction ),
+  ?assert( ?TESTED_MODULE:position(Robot) =:= Position ).