trackler 2.0.6.28 → 2.0.6.29

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

@@ -1,4 +1,4 @@
--module('largest_series_product').
+-module(example).
 
 -export([lsp/2]).
 

data/tracks/erlang/exercises/largest-series-product/src/largest_series_product.app.src

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

data/tracks/erlang/exercises/largest-series-product/test/largest_series_product_tests.erl

@@ -0,0 +1,57 @@
+-module('largest_series_product_tests').
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(largest_series_product))).
+
+can_find_the_largest_product_of_2_with_numbers_in_order_test() ->
+  ?assertEqual(72, ?TESTED_MODULE:lsp("0123456789", 2)).
+
+can_find_the_largest_product_of_2_test() ->
+  ?assertEqual(48, ?TESTED_MODULE:lsp("576802143", 2)).
+
+finds_the_largest_product_if_span_equals_length_test() ->
+  ?assertEqual(18, ?TESTED_MODULE:lsp("29", 2)).
+
+can_find_the_largest_product_of_3_with_numbers_in_order_test() ->
+  ?assertEqual(504, ?TESTED_MODULE:lsp("0123456789", 3)).
+
+can_find_the_largest_product_of_3_test() ->
+  ?assertEqual(270, ?TESTED_MODULE:lsp("1027839564", 3)).
+
+can_find_the_largest_product_of_5_with_numbers_in_order_test() ->
+  ?assertEqual(15120, ?TESTED_MODULE:lsp("0123456789", 5)).
+
+can_find_the_largest_product_of_a_big_number_test() ->
+  ?assertEqual(23520, ?TESTED_MODULE:lsp("73167176531330624919225119674426574742355349194934", 6)).
+
+can_find_the_largest_product_of_a_big_number_ii_test() ->
+  ?assertEqual(28350, ?TESTED_MODULE:lsp("52677741234314237566414902593461595376319419139427", 6)).
+
+can_find_the_largest_product_of_a_big_number_project_euler_test() ->
+  ?assertEqual(23514624000, ?TESTED_MODULE:lsp("7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450", 13)).
+
+reports_zero_if_the_only_digits_are_zero_test() ->
+  ?assertEqual(0, ?TESTED_MODULE:lsp("0000", 2)).
+
+reports_zero_if_all_spans_include_zero_test() ->
+  ?assertEqual(0, ?TESTED_MODULE:lsp("99099", 3)).
+
+rejects_span_longer_than_string_length_test() ->
+  ?assertMatch(error, ?TESTED_MODULE:lsp("123", 4)).
+
+reports_1_for_empty_string_and_empty_product_0_span_test() ->
+  ?assertEqual(1, ?TESTED_MODULE:lsp("", 0)).
+
+reports_1_for_nonempty_string_and_empty_product_0_span_test() ->
+  ?assertEqual(1, ?TESTED_MODULE:lsp("123", 0)).
+
+rejects_empty_string_and_nonzero_span_test() ->
+  ?assertMatch(error, ?TESTED_MODULE:lsp("", 1)).
+
+rejects_invalid_character_in_digits_test() ->
+  ?assertMatch(error, ?TESTED_MODULE:lsp("1234a5", 2)).
+
+rejects_negative_span_test() ->
+  ?assertMatch(error, ?TESTED_MODULE:lsp("12345", -1)).

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

@@ -1,4 +1,4 @@
--module(leap).
+-module(example).
 
 -export([leap_year/1]).
 

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

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

data/tracks/erlang/exercises/leap/test/leap_tests.erl

@@ -0,0 +1,18 @@
+-module(leap_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(leap))).
+
+leap_year_test() ->
+  ?assert(?TESTED_MODULE:leap_year(1996)).
+
+non_leap_year_test() ->
+  ?assertNot(?TESTED_MODULE:leap_year(1997)).
+
+century_test() ->
+  ?assertNot(?TESTED_MODULE:leap_year(1900)).
+
+fourth_century_test() ->
+  ?assert(?TESTED_MODULE:leap_year(2400)).

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

@@ -1,4 +1,4 @@
--module(luhn).
+-module(example).
 -export([valid/1, create/1, checksum/1]).
 
 

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

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

data/tracks/erlang/exercises/luhn/test/luhn_tests.erl

@@ -0,0 +1,18 @@
+-module(luhn_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(luhn))).
+
+invalid_test() ->
+  ?assertNot(?TESTED_MODULE:valid("1111")),
+  ?assertNot(?TESTED_MODULE:valid("738")).
+
+valid_test() ->
+  ?assert(?TESTED_MODULE:valid("8739567")),
+  ?assert(?TESTED_MODULE:valid("8763")),
+  ?assert(?TESTED_MODULE:valid("2323 2005 7766 3554")).
+
+create_test() ->
+  ?assertEqual("2323 2005 7766 3554", ?TESTED_MODULE:create("2323 2005 7766 355")).

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

@@ -1,4 +1,4 @@
--module(meetup).
+-module(example).
 -export([schedule/4]).
 
 -type year() :: non_neg_integer().
@@ -31,4 +31,3 @@ day_range(teenth, _Year, _Month) ->
 day_range(last, Year, Month) ->
   LastDay = calendar:last_day_of_the_month(Year, Month),
   lists:seq(LastDay - 6, LastDay).
-

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

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

data/tracks/erlang/exercises/meetup/{meetup_tests.erl → test/meetup_tests.erl}

@@ -1,371 +1,370 @@
 -module(meetup_tests).
+
+-include("exercism.hrl").
 -include_lib("eunit/include/eunit.hrl").
 
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunittest(meetup, [verbose])" -s init stop
+-define(TESTED_MODULE, (sut(meetup))).
 
 monteenth_of_may_2013_test() ->
   ?assertEqual({2013, 5, 13},
-               meetup:schedule(2013, 5, monday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 5, monday, teenth)).
 
 monteenth_of_august_2013_test() ->
   ?assertEqual({2013, 8, 19},
-               meetup:schedule(2013, 8, monday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 8, monday, teenth)).
 
 monteenth_of_september_2013_test() ->
   ?assertEqual({2013, 9, 16},
-               meetup:schedule(2013, 9, monday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 9, monday, teenth)).
 
 tuesteenth_of_march_2013_test() ->
   ?assertEqual({2013, 3, 19},
-               meetup:schedule(2013, 3, tuesday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 3, tuesday, teenth)).
 
 tuesteenth_of_april_2013_test() ->
   ?assertEqual({2013, 4, 16},
-               meetup:schedule(2013, 4, tuesday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 4, tuesday, teenth)).
 
 tuesteenth_of_august_2013_test() ->
   ?assertEqual({2013, 8, 13},
-               meetup:schedule(2013, 8, tuesday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 8, tuesday, teenth)).
 
 wednesteenth_of_january_2013_test() ->
   ?assertEqual({2013, 1, 16},
-               meetup:schedule(2013, 1, wednesday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 1, wednesday, teenth)).
 
 wednesteenth_of_february_2013_test() ->
   ?assertEqual({2013, 2, 13},
-               meetup:schedule(2013, 2, wednesday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 2, wednesday, teenth)).
 
 wednesteenth_of_june_2013_test() ->
   ?assertEqual({2013, 6, 19},
-               meetup:schedule(2013, 6, wednesday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 6, wednesday, teenth)).
 
 thursteenth_of_may_2013_test() ->
   ?assertEqual({2013, 5, 16},
-               meetup:schedule(2013, 5, thursday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 5, thursday, teenth)).
 
 thursteenth_of_june_2013_test() ->
   ?assertEqual({2013, 6, 13},
-               meetup:schedule(2013, 6, thursday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 6, thursday, teenth)).
 
 thursteenth_of_september_2013_test() ->
   ?assertEqual({2013, 9, 19},
-               meetup:schedule(2013, 9, thursday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 9, thursday, teenth)).
 
 friteenth_of_april_2013_test() ->
   ?assertEqual({2013, 4, 19},
-               meetup:schedule(2013, 4, friday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 4, friday, teenth)).
 
 friteenth_of_august_2013_test() ->
   ?assertEqual({2013, 8, 16},
-               meetup:schedule(2013, 8, friday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 8, friday, teenth)).
 
 friteenth_of_september_2013_test() ->
   ?assertEqual({2013, 9, 13},
-               meetup:schedule(2013, 9, friday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 9, friday, teenth)).
 
 saturteenth_of_february_2013_test() ->
   ?assertEqual({2013, 2, 16},
-               meetup:schedule(2013, 2, saturday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 2, saturday, teenth)).
 
 saturteenth_of_april_2013_test() ->
   ?assertEqual({2013, 4, 13},
-               meetup:schedule(2013, 4, saturday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 4, saturday, teenth)).
 
 saturteenth_of_october_2013_test() ->
   ?assertEqual({2013, 10, 19},
-               meetup:schedule(2013, 10, saturday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 10, saturday, teenth)).
 
 sunteenth_of_map_2013_test() ->
   ?assertEqual({2013, 5, 19},
-               meetup:schedule(2013, 5, sunday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 5, sunday, teenth)).
 
 sunteenth_of_june_2013_test() ->
   ?assertEqual({2013, 6, 16},
-               meetup:schedule(2013, 6, sunday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 6, sunday, teenth)).
 
 sunteenth_of_october_2013_test() ->
   ?assertEqual({2013, 10, 13},
-               meetup:schedule(2013, 10, sunday, teenth)).
+               ?TESTED_MODULE:schedule(2013, 10, sunday, teenth)).
 
 first_monday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 4},
-               meetup:schedule(2013, 3, monday, first)).
+               ?TESTED_MODULE:schedule(2013, 3, monday, first)).
 
 first_monday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 1},
-               meetup:schedule(2013, 4, monday, first)).
+               ?TESTED_MODULE:schedule(2013, 4, monday, first)).
 
 first_tuesday_of_may_2013_test() ->
   ?assertEqual({2013, 5, 7},
-               meetup:schedule(2013, 5, tuesday, first)).
+               ?TESTED_MODULE:schedule(2013, 5, tuesday, first)).
 
 first_tuesday_of_june_2013_test() ->
   ?assertEqual({2013, 6, 4},
-               meetup:schedule(2013, 6, tuesday, first)).
+               ?TESTED_MODULE:schedule(2013, 6, tuesday, first)).
 
 first_wednesday_of_july_2013_test() ->
   ?assertEqual({2013, 7, 3},
-               meetup:schedule(2013, 7, wednesday, first)).
+               ?TESTED_MODULE:schedule(2013, 7, wednesday, first)).
 
 first_wednesday_of_august_2013_test() ->
   ?assertEqual({2013, 8, 7},
-               meetup:schedule(2013, 8, wednesday, first)).
+               ?TESTED_MODULE:schedule(2013, 8, wednesday, first)).
 
 first_thursday_of_september_2013_test() ->
   ?assertEqual({2013, 9, 5},
-               meetup:schedule(2013, 9, thursday, first)).
+               ?TESTED_MODULE:schedule(2013, 9, thursday, first)).
 
 first_thursday_of_october_2013_test() ->
   ?assertEqual({2013, 10, 3},
-               meetup:schedule(2013, 10, thursday, first)).
+               ?TESTED_MODULE:schedule(2013, 10, thursday, first)).
 
 first_friday_of_november_2013_test() ->
   ?assertEqual({2013, 11, 1},
-               meetup:schedule(2013, 11, friday, first)).
+               ?TESTED_MODULE:schedule(2013, 11, friday, first)).
 
 first_friday_of_december_2013_test() ->
   ?assertEqual({2013, 12, 6},
-               meetup:schedule(2013, 12, friday, first)).
+               ?TESTED_MODULE:schedule(2013, 12, friday, first)).
 
 first_saturday_of_january_2013_test() ->
   ?assertEqual({2013, 1, 5},
-               meetup:schedule(2013, 1, saturday, first)).
+               ?TESTED_MODULE:schedule(2013, 1, saturday, first)).
 
 first_saturday_of_february_2013_test() ->
   ?assertEqual({2013, 2, 2},
-               meetup:schedule(2013, 2, saturday, first)).
+               ?TESTED_MODULE:schedule(2013, 2, saturday, first)).
 
 first_sunday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 3},
-               meetup:schedule(2013, 3, sunday, first)).
+               ?TESTED_MODULE:schedule(2013, 3, sunday, first)).
 
 first_sunday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 7},
-               meetup:schedule(2013, 4, sunday, first)).
+               ?TESTED_MODULE:schedule(2013, 4, sunday, first)).
 
 second_monday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 11},
-               meetup:schedule(2013, 3, monday, second)).
+               ?TESTED_MODULE:schedule(2013, 3, monday, second)).
 
 second_monday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 8},
-               meetup:schedule(2013, 4, monday, second)).
+               ?TESTED_MODULE:schedule(2013, 4, monday, second)).
 
 second_tuesday_of_may_2013_test() ->
   ?assertEqual({2013, 5, 14},
-               meetup:schedule(2013, 5, tuesday, second)).
+               ?TESTED_MODULE:schedule(2013, 5, tuesday, second)).
 
 second_tuesday_of_june_2013_test() ->
   ?assertEqual({2013, 6, 11},
-               meetup:schedule(2013, 6, tuesday, second)).
+               ?TESTED_MODULE:schedule(2013, 6, tuesday, second)).
 
 second_wednesday_of_july_2013_test() ->
   ?assertEqual({2013, 7, 10},
-               meetup:schedule(2013, 7, wednesday, second)).
+               ?TESTED_MODULE:schedule(2013, 7, wednesday, second)).
 
 second_wednesday_of_august_2013_test() ->
   ?assertEqual({2013, 8, 14},
-               meetup:schedule(2013, 8, wednesday, second)).
+               ?TESTED_MODULE:schedule(2013, 8, wednesday, second)).
 
 second_thursday_of_september_2013_test() ->
   ?assertEqual({2013, 9, 12},
-               meetup:schedule(2013, 9, thursday, second)).
+               ?TESTED_MODULE:schedule(2013, 9, thursday, second)).
 
 second_thursday_of_october_2013_test() ->
   ?assertEqual({2013, 10, 10},
-               meetup:schedule(2013, 10, thursday, second)).
+               ?TESTED_MODULE:schedule(2013, 10, thursday, second)).
 
 second_friday_of_november_2013_test() ->
   ?assertEqual({2013, 11, 8},
-               meetup:schedule(2013, 11, friday, second)).
+               ?TESTED_MODULE:schedule(2013, 11, friday, second)).
 
 second_friday_of_december_2013_test() ->
   ?assertEqual({2013, 12, 13},
-               meetup:schedule(2013, 12, friday, second)).
+               ?TESTED_MODULE:schedule(2013, 12, friday, second)).
 
 second_saturday_of_january_2013_test() ->
   ?assertEqual({2013, 1, 12},
-               meetup:schedule(2013, 1, saturday, second)).
+               ?TESTED_MODULE:schedule(2013, 1, saturday, second)).
 
 second_saturday_of_february_2013_test() ->
   ?assertEqual({2013, 2, 9},
-               meetup:schedule(2013, 2, saturday, second)).
+               ?TESTED_MODULE:schedule(2013, 2, saturday, second)).
 
 second_sunday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 10},
-               meetup:schedule(2013, 3, sunday, second)).
+               ?TESTED_MODULE:schedule(2013, 3, sunday, second)).
 
 second_sunday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 14},
-               meetup:schedule(2013, 4, sunday, second)).
+               ?TESTED_MODULE:schedule(2013, 4, sunday, second)).
 
 third_monday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 18},
-               meetup:schedule(2013, 3, monday, third)).
+               ?TESTED_MODULE:schedule(2013, 3, monday, third)).
 
 third_monday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 15},
-               meetup:schedule(2013, 4, monday, third)).
+               ?TESTED_MODULE:schedule(2013, 4, monday, third)).
 
 third_tuesday_of_may_2013_test() ->
   ?assertEqual({2013, 5, 21},
-               meetup:schedule(2013, 5, tuesday, third)).
+               ?TESTED_MODULE:schedule(2013, 5, tuesday, third)).
 
 third_tuesday_of_june_2013_test() ->
   ?assertEqual({2013, 6, 18},
-               meetup:schedule(2013, 6, tuesday, third)).
+               ?TESTED_MODULE:schedule(2013, 6, tuesday, third)).
 
 third_wednesday_of_july_2013_test() ->
   ?assertEqual({2013, 7, 17},
-               meetup:schedule(2013, 7, wednesday, third)).
+               ?TESTED_MODULE:schedule(2013, 7, wednesday, third)).
 
 third_wednesday_of_august_2013_test() ->
   ?assertEqual({2013, 8, 21},
-               meetup:schedule(2013, 8, wednesday, third)).
+               ?TESTED_MODULE:schedule(2013, 8, wednesday, third)).
 
 third_thursday_of_september_2013_test() ->
   ?assertEqual({2013, 9, 19},
-               meetup:schedule(2013, 9, thursday, third)).
+               ?TESTED_MODULE:schedule(2013, 9, thursday, third)).
 
 third_thursday_of_october_2013_test() ->
   ?assertEqual({2013, 10, 17},
-               meetup:schedule(2013, 10, thursday, third)).
+               ?TESTED_MODULE:schedule(2013, 10, thursday, third)).
 
 third_friday_of_november_2013_test() ->
   ?assertEqual({2013, 11, 15},
-               meetup:schedule(2013, 11, friday, third)).
+               ?TESTED_MODULE:schedule(2013, 11, friday, third)).
 
 third_friday_of_december_2013_test() ->
   ?assertEqual({2013, 12, 20},
-               meetup:schedule(2013, 12, friday, third)).
+               ?TESTED_MODULE:schedule(2013, 12, friday, third)).
 
 third_saturday_of_january_2013_test() ->
   ?assertEqual({2013, 1, 19},
-               meetup:schedule(2013, 1, saturday, third)).
+               ?TESTED_MODULE:schedule(2013, 1, saturday, third)).
 
 third_saturday_of_february_2013_test() ->
   ?assertEqual({2013, 2, 16},
-               meetup:schedule(2013, 2, saturday, third)).
+               ?TESTED_MODULE:schedule(2013, 2, saturday, third)).
 
 third_sunday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 17},
-               meetup:schedule(2013, 3, sunday, third)).
+               ?TESTED_MODULE:schedule(2013, 3, sunday, third)).
 
 third_sunday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 21},
-               meetup:schedule(2013, 4, sunday, third)).
+               ?TESTED_MODULE:schedule(2013, 4, sunday, third)).
 
 fourth_monday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 25},
-               meetup:schedule(2013, 3, monday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 3, monday, fourth)).
 
 fourth_monday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 22},
-               meetup:schedule(2013, 4, monday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 4, monday, fourth)).
 
 fourth_tuesday_of_may_2013_test() ->
   ?assertEqual({2013, 5, 28},
-               meetup:schedule(2013, 5, tuesday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 5, tuesday, fourth)).
 
 fourth_tuesday_of_june_2013_test() ->
   ?assertEqual({2013, 6, 25},
-               meetup:schedule(2013, 6, tuesday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 6, tuesday, fourth)).
 
 fourth_wednesday_of_july_2013_test() ->
   ?assertEqual({2013, 7, 24},
-               meetup:schedule(2013, 7, wednesday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 7, wednesday, fourth)).
 
 fourth_wednesday_of_august_2013_test() ->
   ?assertEqual({2013, 8, 28},
-               meetup:schedule(2013, 8, wednesday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 8, wednesday, fourth)).
 
 fourth_thursday_of_september_2013_test() ->
   ?assertEqual({2013, 9, 26},
-               meetup:schedule(2013, 9, thursday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 9, thursday, fourth)).
 
 fourth_thursday_of_october_2013_test() ->
   ?assertEqual({2013, 10, 24},
-               meetup:schedule(2013, 10, thursday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 10, thursday, fourth)).
 
 fourth_friday_of_november_2013_test() ->
   ?assertEqual({2013, 11, 22},
-               meetup:schedule(2013, 11, friday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 11, friday, fourth)).
 
 fourth_friday_of_december_2013_test() ->
   ?assertEqual({2013, 12, 27},
-               meetup:schedule(2013, 12, friday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 12, friday, fourth)).
 
 fourth_saturday_of_january_2013_test() ->
   ?assertEqual({2013, 1, 26},
-               meetup:schedule(2013, 1, saturday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 1, saturday, fourth)).
 
 fourth_saturday_of_february_2013_test() ->
   ?assertEqual({2013, 2, 23},
-               meetup:schedule(2013, 2, saturday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 2, saturday, fourth)).
 
 fourth_sunday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 24},
-               meetup:schedule(2013, 3, sunday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 3, sunday, fourth)).
 
 fourth_sunday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 28},
-               meetup:schedule(2013, 4, sunday, fourth)).
+               ?TESTED_MODULE:schedule(2013, 4, sunday, fourth)).
 
 last_monday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 25},
-               meetup:schedule(2013, 3, monday, last)).
+               ?TESTED_MODULE:schedule(2013, 3, monday, last)).
 
 last_monday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 29},
-               meetup:schedule(2013, 4, monday, last)).
+               ?TESTED_MODULE:schedule(2013, 4, monday, last)).
 
 last_tuesday_of_may_2013_test() ->
   ?assertEqual({2013, 5, 28},
-               meetup:schedule(2013, 5, tuesday, last)).
+               ?TESTED_MODULE:schedule(2013, 5, tuesday, last)).
 
 last_tuesday_of_june_2013_test() ->
   ?assertEqual({2013, 6, 25},
-               meetup:schedule(2013, 6, tuesday, last)).
+               ?TESTED_MODULE:schedule(2013, 6, tuesday, last)).
 
 last_wednesday_of_july_2013_test() ->
   ?assertEqual({2013, 7, 31},
-               meetup:schedule(2013, 7, wednesday, last)).
+               ?TESTED_MODULE:schedule(2013, 7, wednesday, last)).
 
 last_wednesday_of_august_2013_test() ->
   ?assertEqual({2013, 8, 28},
-               meetup:schedule(2013, 8, wednesday, last)).
+               ?TESTED_MODULE:schedule(2013, 8, wednesday, last)).
 
 last_thursday_of_september_2013_test() ->
   ?assertEqual({2013, 9, 26},
-               meetup:schedule(2013, 9, thursday, last)).
+               ?TESTED_MODULE:schedule(2013, 9, thursday, last)).
 
 last_thursday_of_october_2013_test() ->
   ?assertEqual({2013, 10, 31},
-               meetup:schedule(2013, 10, thursday, last)).
+               ?TESTED_MODULE:schedule(2013, 10, thursday, last)).
 
 last_friday_of_november_2013_test() ->
   ?assertEqual({2013, 11, 29},
-               meetup:schedule(2013, 11, friday, last)).
+               ?TESTED_MODULE:schedule(2013, 11, friday, last)).
 
 last_friday_of_december_2013_test() ->
   ?assertEqual({2013, 12, 27},
-               meetup:schedule(2013, 12, friday, last)).
+               ?TESTED_MODULE:schedule(2013, 12, friday, last)).
 
 last_saturday_of_january_2013_test() ->
   ?assertEqual({2013, 1, 26},
-               meetup:schedule(2013, 1, saturday, last)).
+               ?TESTED_MODULE:schedule(2013, 1, saturday, last)).
 
 last_saturday_of_february_2013_test() ->
   ?assertEqual({2013, 2, 23},
-               meetup:schedule(2013, 2, saturday, last)).
+               ?TESTED_MODULE:schedule(2013, 2, saturday, last)).
 
 last_sunday_of_march_2013_test() ->
   ?assertEqual({2013, 3, 31},
-               meetup:schedule(2013, 3, sunday, last)).
+               ?TESTED_MODULE:schedule(2013, 3, sunday, last)).
 
 last_sunday_of_april_2013_test() ->
   ?assertEqual({2013, 4, 28},
-               meetup:schedule(2013, 4, sunday, last)).
-
+               ?TESTED_MODULE:schedule(2013, 4, sunday, last)).