trackler 2.0.6.28 → 2.0.6.29

data/tracks/erlang/exercises/circular-buffer/src/circular_buffer.app.src

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

data/tracks/erlang/exercises/circular-buffer/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module( circular_buffer ).
+-module(example).
 
 -export( [create/1, read/1, size/1, write/2, write_attempt/2] ).
 
@@ -17,39 +17,6 @@ write_attempt( Pid, Item ) ->
     {write_attempt, false, Pid} -> {error, full}
   end.
 
-
-
-handle( {read, Pid},  {0, MaxSize, Queue}) ->
-  Pid ! {read, empty, erlang:self()},
-  {0, MaxSize, Queue};
-handle( {read, Pid},  {CurrentSize, MaxSize, Queue}) ->
-  {Result, NewQueue} = queue:out(Queue),
-  Pid ! {read, Result, erlang:self()},
-  {CurrentSize-1, MaxSize, NewQueue};
-handle( {write, Item}, {MaxSize, MaxSize, Queue}) ->
-  {_Old, TmpQueue} = queue:out(Queue),
-  NewQueue = queue:in(Item, TmpQueue),
-  {MaxSize, MaxSize, NewQueue};
-handle( {write, Item}, {CurrentSize, MaxSize, Queue}) ->
-  NewQueue = queue:in(Item, Queue),
-  {CurrentSize+1, MaxSize, NewQueue};
-handle( {write_attempt, _Item, Pid}, {MaxSize, MaxSize, Queue}) ->
-  Pid ! {write_attempt, false, erlang:self()},
-  {MaxSize, MaxSize, Queue};
-handle( {write_attempt, Item, Pid}, {CurrentSize, MaxSize, Queue}) ->
-  Pid ! {write_attempt, true, erlang:self()},
-  NewQueue = queue:in(Item, Queue),
-  {CurrentSize+1, MaxSize, NewQueue};
-handle( {size, Pid}, {CurrentSize, MaxSize, Queue}) ->
-  Pid ! {size, MaxSize, Queue},
-  {CurrentSize, MaxSize, Queue}.
-
-loop(State) ->
-  receive
-    Request ->
-      loop(handle(Request, State))
-  end.
-
 loop( Current_size, Max_size, Queue ) ->
   receive
     {read, Pid} ->

data/tracks/erlang/exercises/circular-buffer/test/circular_buffer_tests.erl

@@ -0,0 +1,58 @@
+-module( circular_buffer_tests ).
+
+-include("exercism.hrl").
+-include_lib( "eunit/include/eunit.hrl" ).
+
+-define(TESTED_MODULE, (sut(circular_buffer))).
+
+create_test() ->
+  Pid = ?TESTED_MODULE:create( 5 ),
+  ?assert( {ok, 5} =:= ?TESTED_MODULE:size(Pid) ).
+
+write_read_test() ->
+  Pid = ?TESTED_MODULE:create( 4 ),
+  ?assert( {error, empty} =:= ?TESTED_MODULE:read(Pid) ),
+  ?TESTED_MODULE:write( Pid, 1 ),
+  ?assert( {ok, 1} =:= ?TESTED_MODULE:read(Pid) ).
+
+write_read_many_test() ->
+  Pid = ?TESTED_MODULE:create( 3 ),
+  ?TESTED_MODULE:write( Pid, 1 ),
+  ?TESTED_MODULE:write( Pid, 2 ),
+  ?TESTED_MODULE:write( Pid, 3 ),
+  ?assert( {ok, 1} =:= ?TESTED_MODULE:read(Pid) ),
+  ?assert( {ok, 2} =:= ?TESTED_MODULE:read(Pid) ),
+  ?assert( {ok, 3} =:= ?TESTED_MODULE:read(Pid) ).
+
+over_write_read_test() ->
+  Pid = ?TESTED_MODULE:create( 2 ),
+  ?TESTED_MODULE:write( Pid, 1 ),
+  ?TESTED_MODULE:write( Pid, 2 ),
+  ?TESTED_MODULE:write( Pid, 3 ),
+  ?TESTED_MODULE:write( Pid, 4 ),
+  ?assert( {ok, 3} =:= ?TESTED_MODULE:read(Pid) ),
+  ?assert( {ok, 4} =:= ?TESTED_MODULE:read(Pid) ),
+  ?assert( {error, empty} =:= ?TESTED_MODULE:read(Pid) ).
+
+write_attempt_test() ->
+  Pid = ?TESTED_MODULE:create( 1 ),
+  Attempt1 = ?TESTED_MODULE:write_attempt( Pid, 1 ),
+  ?assert( ok =:= Attempt1 ),
+  Attempt2 = ?TESTED_MODULE:write_attempt( Pid, 2 ),
+  ?assert( {error, full} =:= Attempt2 ),
+  ?assert( {ok, 1} =:= ?TESTED_MODULE:read(Pid) ).
+
+producer_consumer_test() ->
+  Pid = ?TESTED_MODULE:create( 3 ),
+  erlang:spawn( fun() ->
+                    [?TESTED_MODULE:write(Pid, X) || X <- [1,2,3]]
+                end ),
+  My_pid = erlang:self(),
+  Ref = erlang:make_ref(),
+  erlang:spawn( fun() ->
+                    My_pid ! {Ref, [?TESTED_MODULE:read(Pid) || _X <- [1,2,3]]}
+                end ),
+  Reads = receive
+            {Ref, R} -> R
+          end,
+  ?assert( Reads =:= [{ok, 1}, {ok, 2}, {ok, 3}] ).

data/tracks/erlang/exercises/clock/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/clock/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/clock/src/clock.app.src

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

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

@@ -1,4 +1,4 @@
--module('clock').
+-module(example).
 
 -export([create/2,
   is_equal/2,

data/tracks/erlang/exercises/clock/{clock_tests.erl → test/clock_tests.erl}

@@ -1,9 +1,13 @@
 -module('clock_tests').
+
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
--define(assertClockString(String, Hour, Minute), ?assertEqual(String, clock:to_string(clock:create( Hour, Minute)))).
+-define(TESTED_MODULE, (sut(clock))).
+
+-define(assertClockString(String, Hour, Minute), ?assertEqual(String, ?TESTED_MODULE:to_string(?TESTED_MODULE:create( Hour, Minute)))).
 
--define(assertClockAdd(String, Hour, Minute, Add), ?assertEqual(String, clock:to_string(clock:minutes_add(clock:create(Hour, Minute), Add)))).
+-define(assertClockAdd(String, Hour, Minute, Add), ?assertEqual(String, ?TESTED_MODULE:to_string(?TESTED_MODULE:minutes_add(?TESTED_MODULE:create(Hour, Minute), Add)))).
 
 create_on_the_hour_test() ->
   ?assertClockString("08:00", 8, 0).
@@ -115,78 +119,77 @@ subtract_more_than_two_days_test() ->
 
 
 equal_clocks_with_same_time_test() ->
-  Clock1 = clock:create(15, 37),
-  Clock2 = clock:create(15, 37),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(15, 37),
+  Clock2 = ?TESTED_MODULE:create(15, 37),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_a_minute_apart_test() ->
-  Clock1 = clock:create(15, 36),
-  Clock2 = clock:create(15, 37),
-  ?assertNot(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(15, 36),
+  Clock2 = ?TESTED_MODULE:create(15, 37),
+  ?assertNot(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_an_hour_apart_test() ->
-  Clock1 = clock:create(14, 37),
-  Clock2 = clock:create(15, 37),
-  ?assertNot(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(14, 37),
+  Clock2 = ?TESTED_MODULE:create(15, 37),
+  ?assertNot(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 
 equal_clocks_with_hour_overflow_test() ->
-  Clock1 = clock:create(10, 37),
-  Clock2 = clock:create(34, 37),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(10, 37),
+  Clock2 = ?TESTED_MODULE:create(34, 37),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_hour_overflow_by_several_days_test() ->
-  Clock1 = clock:create(3, 11),
-  Clock2 = clock:create(99, 11),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(3, 11),
+  Clock2 = ?TESTED_MODULE:create(99, 11),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_hour_test() ->
-  Clock1 = clock:create(22, 40),
-  Clock2 = clock:create(-2, 40),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(22, 40),
+  Clock2 = ?TESTED_MODULE:create(-2, 40),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_hour_that_wraps_test() ->
-  Clock1 = clock:create(17, 3),
-  Clock2 = clock:create(-31, 3),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(17, 3),
+  Clock2 = ?TESTED_MODULE:create(-31, 3),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_hour_that_wraps_multiple_times_test() ->
-  Clock1 = clock:create(13, 49),
-  Clock2 = clock:create(-83, 49),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(13, 49),
+  Clock2 = ?TESTED_MODULE:create(-83, 49),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_minute_overflow_test() ->
-  Clock1 = clock:create(0, 1),
-  Clock2 = clock:create(0, 1441),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(0, 1),
+  Clock2 = ?TESTED_MODULE:create(0, 1441),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_minute_overflow_by_several_days_test() ->
-  Clock1 = clock:create(2, 2),
-  Clock2 = clock:create(2, 4322),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(2, 2),
+  Clock2 = ?TESTED_MODULE:create(2, 4322),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_minute_test() ->
-  Clock1 = clock:create(2, 40),
-  Clock2 = clock:create(3, -20),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(2, 40),
+  Clock2 = ?TESTED_MODULE:create(3, -20),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_minute_that_wraps_test() ->
-  Clock1 = clock:create(4, 10),
-  Clock2 = clock:create(5, -1490),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(4, 10),
+  Clock2 = ?TESTED_MODULE:create(5, -1490),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_minute_that_wraps_multiple_times_test() ->
-  Clock1 = clock:create(6, 15),
-  Clock2 = clock:create(6, -4305),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(6, 15),
+  Clock2 = ?TESTED_MODULE:create(6, -4305),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_hours_and_minutes_test() ->
-  Clock1 = clock:create(7, 32),
-  Clock2 = clock:create(-12, -268),
-  ?assert(clock:is_equal(Clock1, Clock2)).
+  Clock1 = ?TESTED_MODULE:create(7, 32),
+  Clock2 = ?TESTED_MODULE:create(-12, -268),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).
 
 equal_clocks_with_negative_hours_and_minutes_that_wrap_test() ->
-  Clock1 = clock:create(18, 7),
-  Clock2 = clock:create(-54, -11513),
-  ?assert(clock:is_equal(Clock1, Clock2)).
-
+  Clock1 = ?TESTED_MODULE:create(18, 7),
+  Clock2 = ?TESTED_MODULE:create(-54, -11513),
+  ?assert(?TESTED_MODULE:is_equal(Clock1, Clock2)).

data/tracks/erlang/exercises/difference-of-squares/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/difference-of-squares/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/difference-of-squares/src/difference_of_squares.app.src

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

data/tracks/erlang/exercises/difference-of-squares/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(difference_of_squares).
+-module(example).
 
 -export( [sum_of_squares/1, square_of_sums/1, difference_of_squares/1] ).
 

data/tracks/erlang/exercises/difference-of-squares/{difference_of_squares_tests.erl → test/difference_of_squares_tests.erl}

@@ -1,9 +1,13 @@
 -module(difference_of_squares_tests).
+
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
--define(assertSumOfSquares(Expected, Number), ?assertEqual(Expected, difference_of_squares:sum_of_squares(Number))).
--define(assertSquareOfSums(Expected, Number), ?assertEqual(Expected, difference_of_squares:square_of_sums(Number))).
--define(assertDifference(Expected, Number), ?assertEqual(Expected, difference_of_squares:difference_of_squares(Number))).
+-define(TESTED_MODULE, (sut(difference_of_squares))).
+
+-define(assertSumOfSquares(Expected, Number), ?assertEqual(Expected, ?TESTED_MODULE:sum_of_squares(Number))).
+-define(assertSquareOfSums(Expected, Number), ?assertEqual(Expected, ?TESTED_MODULE:square_of_sums(Number))).
+-define(assertDifference(Expected, Number), ?assertEqual(Expected, ?TESTED_MODULE:difference_of_squares(Number))).
 
 %% Square the sum of the numbers up to the given number
 

data/tracks/erlang/exercises/etl/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/etl/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/etl/src/etl.app.src

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

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

@@ -1,4 +1,4 @@
--module(etl).
+-module(example).
 
 -export([transform/1]).
 
@@ -32,4 +32,3 @@ invert(Pairs) ->
     orddict:new(),
     Pairs
    ).
-