trackler 2.0.6.28 → 2.0.6.29

data/tracks/erlang/exercises/bank-account/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/bank-account/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, bank_account}]}.
+%% 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/bank-account/src/bank_account.app.src

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

data/tracks/erlang/exercises/bank-account/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(bank_account).
+-module(example).
 
 -export( [balance/1, charge/2, close/1, create/0, deposit/2, withdraw/2] ).
 

data/tracks/erlang/exercises/bank-account/test/bank_account_tests.erl

@@ -0,0 +1,98 @@
+-module(bank_account_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(bank_account))).
+
+create_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 0).
+
+close_account_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 1),
+  Amount = ?TESTED_MODULE:close(BankAccount),
+  ?assert(Amount =:= 1),
+  ?assertEqual({error, account_closed}, ?TESTED_MODULE:balance( BankAccount )).
+
+deposit_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 1),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 1).
+
+deposit_fail_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, -1),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 0).
+
+deposit_many_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  [erlang:spawn( fun () -> ?TESTED_MODULE:deposit(BankAccount, X) end ) || X <- lists:seq(1, 10)],
+  First = ?TESTED_MODULE:balance(BankAccount),
+  timer:sleep(100),
+  Last = ?TESTED_MODULE:balance(BankAccount),
+  ?assert(First < 55),
+  ?assert(Last =:= 55).
+
+withdraw_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 10 ),
+  Amount = ?TESTED_MODULE:withdraw(BankAccount, 1),
+  ?assert(Amount =:= 1),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 9).
+
+withdraw_fail_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 10),
+  Amount = ?TESTED_MODULE:withdraw(BankAccount, -1),
+  ?assert(Amount =:= 0),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 10).
+
+withdraw_excessive_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 10 ),
+  Amount = ?TESTED_MODULE:withdraw(BankAccount, 20),
+  ?assert(Amount =:= 10),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 0).
+
+withdraw_many_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 55 ),
+  [erlang:spawn( fun () -> ?TESTED_MODULE:withdraw(BankAccount, X) end ) || X <- lists:seq(1, 10)],
+  First = ?TESTED_MODULE:balance(BankAccount),
+  timer:sleep(100),
+  Last = ?TESTED_MODULE:balance(BankAccount),
+  ?assert(First > 0),
+  ?assert(Last =:= 0).
+
+charge_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 10),
+  Amount = ?TESTED_MODULE:charge(BankAccount, 2),
+  ?assert(Amount =:= 2),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 8).
+
+charge_fail_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 10),
+  Amount = ?TESTED_MODULE:charge(BankAccount, -2),
+  ?assert(Amount =:= 0),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 10).
+
+charge_excessive_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 10),
+  Amount = ?TESTED_MODULE:charge(BankAccount, 20),
+  ?assert(Amount =:= 0),
+  ?assert(?TESTED_MODULE:balance(BankAccount) =:= 10).
+
+charge_many_test() ->
+  BankAccount = ?TESTED_MODULE:create(),
+  ?TESTED_MODULE:deposit(BankAccount, 55 ),
+  [erlang:spawn( fun () -> ?TESTED_MODULE:charge(BankAccount, 10) end ) || _X <- lists:seq(1, 10)],
+  First = ?TESTED_MODULE:balance(BankAccount),
+  timer:sleep(100),
+  Last = ?TESTED_MODULE:balance(BankAccount),
+  ?assert(First > 0),
+  ?assert(Last =:= 5).

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

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

data/tracks/erlang/exercises/beer-song/{example.erl → src/example.erl}

@@ -1,4 +1,4 @@
--module(beer_song).
+-module(example).
 -export([verse/1, sing/1, sing/2]).
 
 bottles(0) ->

data/tracks/erlang/exercises/beer-song/{beer_song_tests.erl → test/beer_song_tests.erl}

@@ -1,32 +1,32 @@
 -module(beer_song_tests).
+
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunit:test(beer_song, [verbose])" -s init stop
+-define(TESTED_MODULE, (sut(beer_song))).
 
 verse_test() ->
-  compare_nested_lists(beer_song:verse(8),
+  compare_nested_lists(?TESTED_MODULE:verse(8),
                        "8 bottles of beer on the wall, 8 bottles of beer.\n"
                        "Take one down and pass it around, 7 bottles of beer on the wall.\n").
 
 verse_0_test() ->
-  compare_nested_lists(beer_song:verse(0),
+  compare_nested_lists(?TESTED_MODULE:verse(0),
                        "No more bottles of beer on the wall, no more bottles of beer.\n"
                        "Go to the store and buy some more, 99 bottles of beer on the wall.\n").
 
 verse_1_test() ->
-  compare_nested_lists(beer_song:verse(1),
+  compare_nested_lists(?TESTED_MODULE:verse(1),
                        "1 bottle of beer on the wall, 1 bottle of beer.\n"
                        "Take it down and pass it around, no more bottles of beer on the wall.\n").
 
 verse_2_test() ->
-  compare_nested_lists(beer_song:verse(2),
+  compare_nested_lists(?TESTED_MODULE:verse(2),
                        "2 bottles of beer on the wall, 2 bottles of beer.\n"
                        "Take one down and pass it around, 1 bottle of beer on the wall.\n").
 
 singing_several_verses_test() ->
-  compare_nested_lists(beer_song:sing(8, 6),
+  compare_nested_lists(?TESTED_MODULE:sing(8, 6),
                        "8 bottles of beer on the wall, 8 bottles of beer.\n"
                        "Take one down and pass it around, 7 bottles of beer on the wall.\n\n"
 
@@ -37,7 +37,7 @@ singing_several_verses_test() ->
                        "Take one down and pass it around, 5 bottles of beer on the wall.\n\n").
 
 sing_all_the_rest_of_the_verses_test() ->
-  compare_nested_lists(beer_song:sing(3),
+  compare_nested_lists(?TESTED_MODULE:sing(3),
                        "3 bottles of beer on the wall, 3 bottles of beer.\n"
                        "Take one down and pass it around, 2 bottles of beer on the wall.\n\n"
 

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

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

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

@@ -1,4 +1,4 @@
--module(binary_string). % binary is a "sticky module" so we have to use another name.
+-module(example). % binary is a "sticky module" so we have to use another name.
 -export( [to_decimal/1] ).
 
 to_decimal( String ) ->

data/tracks/erlang/exercises/binary/{binary_string_tests.erl → test/binary_string_tests.erl}

@@ -1,6 +1,9 @@
 -module(binary_string_tests).
+
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
+-define(TESTED_MODULE, (sut(binary_string))).
 
 one_test() -> check( "1" ).
 
@@ -16,7 +19,8 @@ twenty_six_test() -> check( "11010" ).
 
 large_test() -> check( "10001101000" ).
 
-carrot_test() -> ?assert(0 =:= binary_string:to_decimal( "carrot" )).
+carrot_test() ->
+  ?assert(0 =:= ?TESTED_MODULE:to_decimal( "carrot" )).
 
-check( String ) ->
-  ?assert(binary_string:to_decimal( String ) =:= erlang:list_to_integer( String, 2 )).
+check(String) ->
+  ?assert(?TESTED_MODULE:to_decimal(String) =:= erlang:list_to_integer(String, 2)).

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

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

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

@@ -1,4 +1,4 @@
--module(bob).
+-module(example).
 
 -export([response_for/1]).
 

data/tracks/erlang/exercises/bob/{bob_tests.erl → test/bob_tests.erl}

@@ -1,10 +1,10 @@
-% To run tests:
-% erl -make && erl -noshell -eval "eunit:test(bob, [verbose])" -s init stop
-
 -module(bob_tests).
 
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
+-define(TESTED_MODULE, (sut(bob))).
+
 responds_to_something_test() ->
   bob_responds("Tom-ay-to, tom-aaaah-to.", "Whatever.").
 
@@ -69,4 +69,4 @@ responds_to_unicode_non_shout_test() ->
   bob_responds("\xdcML\xe4\xdcTS!", "Whatever.").
 
 bob_responds(Question, Answer) ->
-  ?assertEqual(Answer, bob:response_for(Question)).
+  ?assertEqual(Answer, ?TESTED_MODULE:response_for(Question)).

data/tracks/erlang/exercises/circular-buffer/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/circular-buffer/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]}.