trackler 2.2.1.62 → 2.2.1.63

data/tracks/erlang/exercises/space-age/test/space_age_tests.erl

@@ -1,47 +1,45 @@
 -module(space_age_tests).
 
--define(TESTED_MODULE, (sut(space_age))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 age_in_earth_years_test() ->
-  equalFloat(?TESTED_MODULE:ageOn(earth, 1000000000), 31.69).
+  equalFloat(space_age:ageOn(earth, 1000000000), 31.69).
 
 age_in_mercury_years_test() ->
   Seconds = 2134835688,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 67.65),
-  equalFloat(?TESTED_MODULE:ageOn(mercury, Seconds), 280.88).
+  equalFloat(space_age:ageOn(earth, Seconds), 67.65),
+  equalFloat(space_age:ageOn(mercury, Seconds), 280.88).
 
 age_in_venus_years_test() ->
   Seconds = 189839836,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 6.02),
-  equalFloat(?TESTED_MODULE:ageOn(venus, Seconds), 9.78).
+  equalFloat(space_age:ageOn(earth, Seconds), 6.02),
+  equalFloat(space_age:ageOn(venus, Seconds), 9.78).
 
 age_in_mars_years_test() ->
   Seconds = 2329871239,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 73.83),
-  equalFloat(?TESTED_MODULE:ageOn(mars, Seconds), 39.25).
+  equalFloat(space_age:ageOn(earth, Seconds), 73.83),
+  equalFloat(space_age:ageOn(mars, Seconds), 39.25).
 
 age_in_jupiter_years_test() ->
   Seconds = 901876382,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 28.58),
-  equalFloat(?TESTED_MODULE:ageOn(jupiter, Seconds), 2.41).
+  equalFloat(space_age:ageOn(earth, Seconds), 28.58),
+  equalFloat(space_age:ageOn(jupiter, Seconds), 2.41).
 
 age_in_saturn_years_test() ->
   Seconds = 3000000000,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 95.06),
-  equalFloat(?TESTED_MODULE:ageOn(saturn, Seconds), 3.23).
+  equalFloat(space_age:ageOn(earth, Seconds), 95.06),
+  equalFloat(space_age:ageOn(saturn, Seconds), 3.23).
 
 age_in_uranus_years_test() ->
   Seconds = 3210123456,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 101.72),
-  equalFloat(?TESTED_MODULE:ageOn(uranus, Seconds), 1.21).
+  equalFloat(space_age:ageOn(earth, Seconds), 101.72),
+  equalFloat(space_age:ageOn(uranus, Seconds), 1.21).
 
 age_in_neptune_years_test() ->
   Seconds = 8210123456,
-  equalFloat(?TESTED_MODULE:ageOn(earth, Seconds), 260.16),
-  equalFloat(?TESTED_MODULE:ageOn(neptune, Seconds), 1.58).
+  equalFloat(space_age:ageOn(earth, Seconds), 260.16),
+  equalFloat(space_age:ageOn(neptune, Seconds), 1.58).
 
 equalFloat(A, B) ->
   ?assertEqual(B, round(A,2)).
@@ -49,3 +47,6 @@ equalFloat(A, B) ->
 round(Number, Precision) ->
   P = math:pow(10, Precision),
   round(Number * P) / P.
+
+version_test() ->
+  ?assertMatch(1, space_age:test_version()).

data/tracks/erlang/exercises/spiral-matrix/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/spiral-matrix/test/spiral_matrix_tests.erl

@@ -1,8 +1,7 @@
 -module(spiral_matrix_tests).
 
--define(TESTED_MODULE, (sut(spiral_matrix))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 -define(spiral1, [[1]]).
 -define(spiral2, [[1,2],
@@ -22,22 +21,25 @@
 -define(get(X,Y,L), lists:nth(X,lists:nth(Y,L))).
 
 empty_spiral_test() ->
-    ?assertEqual([], ?TESTED_MODULE:make(0)).
+    ?assertEqual([], spiral_matrix:make(0)).
 trivial_spiral_test() ->
-    ?assertEqual(?spiral1, ?TESTED_MODULE:make(1)).
+    ?assertEqual(?spiral1, spiral_matrix:make(1)).
 spiral_of_size_2_test() ->
-    ?assertEqual(?spiral2, ?TESTED_MODULE:make(2)).
+    ?assertEqual(?spiral2, spiral_matrix:make(2)).
 spiral_of_size_3_test() ->
-    ?assertEqual(?spiral3, ?TESTED_MODULE:make(3)).
+    ?assertEqual(?spiral3, spiral_matrix:make(3)).
 spiral_of_size_4_test() ->
-    ?assertEqual(?spiral4, ?TESTED_MODULE:make(4)).
+    ?assertEqual(?spiral4, spiral_matrix:make(4)).
 spiral_of_size_5_test() ->
-    ?assertEqual(?spiral5, ?TESTED_MODULE:make(5)).
+    ?assertEqual(?spiral5, spiral_matrix:make(5)).
 spiral_of_size_500_test() ->
-    M = ?TESTED_MODULE:make(500),
+    M = spiral_matrix:make(500),
     ?assertEqual(1, ?get(1,1,M)),
     ?assertEqual(1997, ?get(2,2,M)),
     ?assertEqual(38894, ?get(480,55,M)),
     ?assertEqual(121053, ?get(430,364,M)),
     ?assertEqual(158597, ?get(99,299,M)),
     ?assertEqual(250000, ?get(250,251,M)).
+
+version_test() ->
+  ?assertMatch(1, spiral_matrix:test_version()).

data/tracks/erlang/exercises/strain/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/strain/test/strain_tests.erl

@@ -1,51 +1,52 @@
 -module(strain_tests).
 
--define(TESTED_MODULE, (sut(strain))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 empty_keep_test() ->
-  ?assertEqual([], ?TESTED_MODULE:keep(fun(X) -> X < 10 end, [])).
+  ?assertEqual([], strain:keep(fun(X) -> X < 10 end, [])).
 
 keep_everything_test() ->
-  ?assertEqual([1, 2, 3], ?TESTED_MODULE:keep(fun(X) -> X < 10 end, [1,2,3])).
+  ?assertEqual([1, 2, 3], strain:keep(fun(X) -> X < 10 end, [1,2,3])).
 
 keep_first_last_test() ->
-  ?assertEqual([1, 3], ?TESTED_MODULE:keep(fun(X) -> odd(X) end, [1,2,3])).
+  ?assertEqual([1, 3], strain:keep(fun(X) -> odd(X) end, [1,2,3])).
 
 keep_nothin_test() ->
-  ?assertEqual([], ?TESTED_MODULE:keep(fun(X) -> even(X) end, [1,3,5,7])).
+  ?assertEqual([], strain:keep(fun(X) -> even(X) end, [1,3,5,7])).
 
 keep_neither_first_nor_last_test() ->
-  ?assertEqual([2], ?TESTED_MODULE:keep(fun(X) -> even(X) end, [1,2,3])).
+  ?assertEqual([2], strain:keep(fun(X) -> even(X) end, [1,2,3])).
 
 keep_strings_test() ->
   Str = ["apple", "zebra", "banana", "zombies", "cherimoya", "zealot"],
   ?assertEqual(
      ["zebra", "zombies", "zealot"],
-     ?TESTED_MODULE:keep(fun(S) -> string:sub_string(S, 1,1) =:= "z" end, Str)).
+     strain:keep(fun(S) -> string:sub_string(S, 1,1) =:= "z" end, Str)).
 
 empty_discard_test() ->
-  ?assertEqual([], ?TESTED_MODULE:discard(fun(X) -> X < 10 end, [])).
+  ?assertEqual([], strain:discard(fun(X) -> X < 10 end, [])).
 
 discard_everything_test() ->
-  ?assertEqual([], ?TESTED_MODULE:discard(fun(X) -> X < 10 end, [1,2,3])).
+  ?assertEqual([], strain:discard(fun(X) -> X < 10 end, [1,2,3])).
 
 discard_first_and_last_test() ->
-  ?assertEqual([2], ?TESTED_MODULE:discard(fun(X) -> odd(X) end, [1,2,3])).
+  ?assertEqual([2], strain:discard(fun(X) -> odd(X) end, [1,2,3])).
 
 discard_nothing_test() ->
-  ?assertEqual([1, 3, 5, 7], ?TESTED_MODULE:discard(fun(X) -> even(X) end, [1,3,5,7])).
+  ?assertEqual([1, 3, 5, 7], strain:discard(fun(X) -> even(X) end, [1,3,5,7])).
 
 discard_neither_first_nor_last_test() ->
-  ?assertEqual([1, 3], ?TESTED_MODULE:discard(fun(X) -> even(X) end, [1,2,3])).
+  ?assertEqual([1, 3], strain:discard(fun(X) -> even(X) end, [1,2,3])).
 
 discard_strings_test() ->
   Str = ["apple", "zebra", "banana", "zombies", "cherimoya", "zealot"],
   ?assertEqual(
      ["apple", "banana", "cherimoya"],
-     ?TESTED_MODULE:discard(fun(S) -> string:sub_string(S, 1,1) =:= "z" end, Str)).
+     strain:discard(fun(S) -> string:sub_string(S, 1,1) =:= "z" end, Str)).
+
+version_test() ->
+  ?assertMatch(1, strain:test_version()).
 
 odd(N) -> N rem 2 > 0.
 

data/tracks/erlang/exercises/sum-of-multiples/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/sum-of-multiples/test/sum_of_multiples_tests.erl

@@ -1,39 +1,40 @@
 -module(sum_of_multiples_tests).
 
--define(TESTED_MODULE, (sut(sum_of_multiples))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 sum_with_3_5_to_1_test() ->
-  ?assertEqual(0, ?TESTED_MODULE:sumOfMultiples([3, 5], 1)).
+  ?assertEqual(0, sum_of_multiples:sumOfMultiples([3, 5], 1)).
 
 sum_with_3_5_to_3_test() ->
-  ?assertEqual(3, ?TESTED_MODULE:sumOfMultiples([3, 5], 4)).
+  ?assertEqual(3, sum_of_multiples:sumOfMultiples([3, 5], 4)).
 
 sum_with_3_5_to_10_test() ->
-  ?assertEqual(23, ?TESTED_MODULE:sumOfMultiples([3, 5], 10)).
+  ?assertEqual(23, sum_of_multiples:sumOfMultiples([3, 5], 10)).
 
 sum_with_3_5_to_100_test() ->
-  ?assertEqual(2318, ?TESTED_MODULE:sumOfMultiples([3, 5], 100)).
+  ?assertEqual(2318, sum_of_multiples:sumOfMultiples([3, 5], 100)).
 
 sum_with_3_5_to_1000_test() ->
-  ?assertEqual(233168, ?TESTED_MODULE:sumOfMultiples([3, 5], 1000)).
+  ?assertEqual(233168, sum_of_multiples:sumOfMultiples([3, 5], 1000)).
 
 sum_with_7_13_17_to_20_test() ->
-  ?assertEqual(51, ?TESTED_MODULE:sumOfMultiples([7,13,17], 20)).
+  ?assertEqual(51, sum_of_multiples:sumOfMultiples([7,13,17], 20)).
 
 sum_with_4_6_to_15_test() ->
-?assertEqual(30, ?TESTED_MODULE:sumOfMultiples([4,6], 15)).
+?assertEqual(30, sum_of_multiples:sumOfMultiples([4,6], 15)).
 
 sum_with_5_6_8_to_150_test() ->
-?assertEqual(4419, ?TESTED_MODULE:sumOfMultiples([5, 6, 8], 150)).
+?assertEqual(4419, sum_of_multiples:sumOfMultiples([5, 6, 8], 150)).
 
 sum_with_43_47_to_10000_test() ->
-  ?assertEqual(2203160, ?TESTED_MODULE:sumOfMultiples([43,47], 10000)).
+  ?assertEqual(2203160, sum_of_multiples:sumOfMultiples([43,47], 10000)).
 
 sum_with_1_to_100_test() ->
-  ?assertEqual(4950, ?TESTED_MODULE:sumOfMultiples([1], 100)).
+  ?assertEqual(4950, sum_of_multiples:sumOfMultiples([1], 100)).
 
 sum_with_empty_to_10000_test() ->
-  ?assertEqual(0, ?TESTED_MODULE:sumOfMultiples([], 10000)).
+  ?assertEqual(0, sum_of_multiples:sumOfMultiples([], 10000)).
+
+version_test() ->
+  ?assertMatch(1, sum_of_multiples:test_version()).

data/tracks/erlang/exercises/triangle/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/triangle/test/triangle_tests.erl

@@ -1,56 +1,57 @@
 -module(triangle_tests).
 
--define(TESTED_MODULE, (sut(triangle))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 equilateral_triangles_have_equal_sides_test() ->
-    ?assertMatch(equilateral, ?TESTED_MODULE:kind(2,2,2)).
+    ?assertMatch(equilateral, triangle:kind(2,2,2)).
 
 larger_equilateral_triangles_also_have_equal_sides_test() ->
-    ?assertMatch(equilateral, ?TESTED_MODULE:kind(10, 10, 10)).
+    ?assertMatch(equilateral, triangle:kind(10, 10, 10)).
 
 isosceles_triangles_have_at_least_two_sides_equal_test() ->
-    ?assertMatch(isosceles, ?TESTED_MODULE:kind(3, 4, 4)).
+    ?assertMatch(isosceles, triangle:kind(3, 4, 4)).
 
 isosceles_triangles_have_first_and_last_sides_equal_test() ->
-    ?assertMatch(isosceles, ?TESTED_MODULE:kind(4, 3, 4)).
+    ?assertMatch(isosceles, triangle:kind(4, 3, 4)).
 
 isosceles_triangles_have_two_first_sides_equal_test() ->
-    ?assertMatch(isosceles, ?TESTED_MODULE:kind(4, 4, 3)).
+    ?assertMatch(isosceles, triangle:kind(4, 4, 3)).
 
 isosceles_triangles_have_in_fact_exactly_two_sides_equal_test() ->
-    ?assertMatch(isosceles, ?TESTED_MODULE:kind(10, 10, 2)).
+    ?assertMatch(isosceles, triangle:kind(10, 10, 2)).
 
 scalene_triangles_have_no_equal_sides_test() ->
-    ?assertMatch(scalene, ?TESTED_MODULE:kind(3, 4, 5)).
+    ?assertMatch(scalene, triangle:kind(3, 4, 5)).
 
 scalene_triangles_have_no_equal_sides_at_a_larger_scale_too_test() ->
-    ?assertMatch(scalene, ?TESTED_MODULE:kind(10, 11, 12)).
+    ?assertMatch(scalene, triangle:kind(10, 11, 12)).
 
 scalene_triangles_have_no_equal_sides_in_descending_order_either_test() ->
-    ?assertMatch(scalene, ?TESTED_MODULE:kind(5, 4, 2)).
+    ?assertMatch(scalene, triangle:kind(5, 4, 2)).
 
 very_small_triangles_are_legal_test() ->
-    ?assertMatch(scalene, ?TESTED_MODULE:kind(0.4, 0.6, 0.3)).
+    ?assertMatch(scalene, triangle:kind(0.4, 0.6, 0.3)).
 
 triangles_with_no_size_are_illegal_test() ->
     ?assertMatch({error, "all side lengths must be positive"},
-                 ?TESTED_MODULE:kind(0, 0, 0)).
+                 triangle:kind(0, 0, 0)).
 
 triangles_with_negative_sides_are_illegal_test() ->
     ?assertMatch({error, "all side lengths must be positive"},
-                 ?TESTED_MODULE:kind(3, 4, -5)).
+                 triangle:kind(3, 4, -5)).
 
 triangles_violating_triangle_inequality_are_illegal_test() ->
     ?assertMatch({error, "side lengths violate triangle inequality"},
-                 ?TESTED_MODULE:kind(1, 1, 3)).
+                 triangle:kind(1, 1, 3)).
 
 triangles_violating_triangle_inequality_are_illegal_2_test() ->
     ?assertMatch({error, "side lengths violate triangle inequality"},
-                 ?TESTED_MODULE:kind(2, 4, 2)).
+                 triangle:kind(2, 4, 2)).
 
 triangles_violating_triangle_inequality_are_illegal_3_test() ->
     ?assertMatch({error, "side lengths violate triangle inequality"},
-                 ?TESTED_MODULE:kind(7, 3, 2)).
+                 triangle:kind(7, 3, 2)).
+
+version_test() ->
+  ?assertMatch(1, triangle:test_version()).

data/tracks/erlang/exercises/two-fer/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/two-fer/test/two_fer_tests.erl

@@ -1,15 +1,16 @@
 -module(two_fer_tests).
 
--define(TESTED_MODULE, (sut(two_fer))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 say_you_test() ->
-  ?assertEqual("One for you, one for me.", ?TESTED_MODULE:two_fer()).
+  ?assertEqual("One for you, one for me.", two_fer:two_fer()).
 
 say_alice_test() ->
-  ?assertEqual("One for Alice, one for me.", ?TESTED_MODULE:two_fer("Alice")).
+  ?assertEqual("One for Alice, one for me.", two_fer:two_fer("Alice")).
 
 say_bob_test() ->
-  ?assertEqual("One for Bob, one for me.", ?TESTED_MODULE:two_fer("Bob")).
+  ?assertEqual("One for Bob, one for me.", two_fer:two_fer("Bob")).
+
+version_test() ->
+  ?assertMatch(1, two_fer:test_version()).

data/tracks/erlang/exercises/word-count/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.1"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/word-count/test/word_count_tests.erl

@@ -1,9 +1,7 @@
 -module(word_count_tests).
 
--define(TESTED_MODULE, (sut(word_count))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 count_one_word_test() ->
   assert_count(
@@ -64,4 +62,7 @@ symbols_are_separators_test() ->
      {"broken", 1}]).
 
 assert_count(S, Expect) ->
-  ?assertEqual(orddict:from_list(Expect), orddict:from_list(dict:to_list(?TESTED_MODULE:count(S)))).
+  ?assertEqual(orddict:from_list(Expect), orddict:from_list(dict:to_list(word_count:count(S)))).
+
+version_test() ->
+  ?assertMatch(1, word_count:test_version()).

data/tracks/erlang/exercises/zipper/rebar.config

@@ -1,7 +1,7 @@
 %% Erlang compiler options
 {erl_opts, [debug_info]}.
 
-{deps, []}.
+{deps, [{erl_exercism, "0.1.2"}]}.
 
 {dialyzer, [
   {warnings, [underspecs, no_return]},

data/tracks/erlang/exercises/zipper/test/zipper_tests.erl

@@ -1,15 +1,13 @@
 -module(zipper_tests).
 
--define(TESTED_MODULE, (sut(zipper))).
--define(TEST_VERSION, 1).
--include("exercism.hrl").
-
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
 
 %% Fixtures and helpers
 
-bt(V, L, R) -> ?TESTED_MODULE:new_tree(V, L, R).
+bt(V, L, R) -> zipper:new_tree(V, L, R).
 empty() -> nil.
-leaf(V) -> ?TESTED_MODULE:new_tree(V, empty(), empty()).
+leaf(V) -> zipper:new_tree(V, empty(), empty()).
 
 
 t1() -> bt(1, bt(2, empty(), leaf(3)), leaf(4)).
@@ -21,80 +19,83 @@ t6() -> bt(1, bt(2, empty(), leaf(5)), leaf(4)).
 
 data_is_retained_test() ->
     Exp = t1(),
-    ?assertMatch(Exp, ?TESTED_MODULE:to_tree(?TESTED_MODULE:from_tree(t1()))).
+    ?assertMatch(Exp, zipper:to_tree(zipper:from_tree(t1()))).
 
 left_right_and_value_test() ->
-    ?assertMatch(3, ?TESTED_MODULE:value(?TESTED_MODULE:right(?TESTED_MODULE:left(?TESTED_MODULE:from_tree(t1()))))).
+    ?assertMatch(3, zipper:value(zipper:right(zipper:left(zipper:from_tree(t1()))))).
 
 dead_end_test() ->
     Exp = empty(),
-    ?assertMatch(Exp, ?TESTED_MODULE:left(?TESTED_MODULE:left(?TESTED_MODULE:from_tree(t1())))).
+    ?assertMatch(Exp, zipper:left(zipper:left(zipper:from_tree(t1())))).
 
 tree_from_deep_focus_test() ->
     Exp = t1(),
-    Zipper = ?TESTED_MODULE:right(?TESTED_MODULE:left(?TESTED_MODULE:from_tree(t1()))),
-    ?assertMatch(Exp, ?TESTED_MODULE:to_tree(Zipper)).
+    Zipper = zipper:right(zipper:left(zipper:from_tree(t1()))),
+    ?assertMatch(Exp, zipper:to_tree(Zipper)).
 
 traversing_up_from_top_test() ->
     Exp = empty(),
-    ?assertMatch(Exp, ?TESTED_MODULE:up(?TESTED_MODULE:from_tree(t1()))).
+    ?assertMatch(Exp, zipper:up(zipper:from_tree(t1()))).
 
 left_right_and_up_test() ->
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:left(Act0),
-    Act2 = ?TESTED_MODULE:up(Act1),
-    Act3 = ?TESTED_MODULE:right(Act2),
-    Act4 = ?TESTED_MODULE:up(Act3),
-    Act5 = ?TESTED_MODULE:left(Act4),
-    Act6 = ?TESTED_MODULE:right(Act5),
-    ?assertMatch(3, ?TESTED_MODULE:value(Act6)).
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:left(Act0),
+    Act2 = zipper:up(Act1),
+    Act3 = zipper:right(Act2),
+    Act4 = zipper:up(Act3),
+    Act5 = zipper:left(Act4),
+    Act6 = zipper:right(Act5),
+    ?assertMatch(3, zipper:value(Act6)).
 
 set_value_test() ->
     Exp  = t2(),
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:left(Act0),
-    Act2 = ?TESTED_MODULE:set_value(Act1, 5),
-    Act3 = ?TESTED_MODULE:to_tree(Act2),
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:left(Act0),
+    Act2 = zipper:set_value(Act1, 5),
+    Act3 = zipper:to_tree(Act2),
     ?assertMatch(Exp, Act3).
 
 set_value_after_traversiing_up_test() ->
     Exp  = t2(),
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:left(Act0),
-    Act2 = ?TESTED_MODULE:right(Act1),
-    Act3 = ?TESTED_MODULE:up(Act2),
-    Act4 = ?TESTED_MODULE:set_value(Act3, 5),
-    Act5 = ?TESTED_MODULE:to_tree(Act4),
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:left(Act0),
+    Act2 = zipper:right(Act1),
+    Act3 = zipper:up(Act2),
+    Act4 = zipper:set_value(Act3, 5),
+    Act5 = zipper:to_tree(Act4),
     ?assertMatch(Exp, Act5).
 
 set_left_with_leaf_test() ->
     Exp  = t3(),
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:left(Act0),
-    Act2 = ?TESTED_MODULE:set_left(Act1, leaf(5)),
-    Act3 = ?TESTED_MODULE:to_tree(Act2),
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:left(Act0),
+    Act2 = zipper:set_left(Act1, leaf(5)),
+    Act3 = zipper:to_tree(Act2),
     ?assertMatch(Exp, Act3).
 
 set_right_with_empty_test() ->
     Exp  = t4(),
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:left(Act0),
-    Act2 = ?TESTED_MODULE:set_right(Act1, empty()),
-    Act3 = ?TESTED_MODULE:to_tree(Act2),
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:left(Act0),
+    Act2 = zipper:set_right(Act1, empty()),
+    Act3 = zipper:to_tree(Act2),
     ?assertMatch(Exp, Act3).
 
 set_right_with_subtree_test() ->
     Exp  = t5(),
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:set_right(Act0, bt(6, leaf(7), leaf(8))),
-    Act2 = ?TESTED_MODULE:to_tree(Act1),
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:set_right(Act0, bt(6, leaf(7), leaf(8))),
+    Act2 = zipper:to_tree(Act1),
     ?assertMatch(Exp, Act2).
 
 set_value_from_deep_focus_test() ->
     Exp  = t6(),
-    Act0 = ?TESTED_MODULE:from_tree(t1()),
-    Act1 = ?TESTED_MODULE:left(Act0),
-    Act2 = ?TESTED_MODULE:right(Act1),
-    Act3 = ?TESTED_MODULE:set_value(Act2, 5),
-    Act4 = ?TESTED_MODULE:to_tree(Act3),
+    Act0 = zipper:from_tree(t1()),
+    Act1 = zipper:left(Act0),
+    Act2 = zipper:right(Act1),
+    Act3 = zipper:set_value(Act2, 5),
+    Act4 = zipper:to_tree(Act3),
     ?assertMatch(Exp, Act4).
+
+version_test() ->
+  ?assertMatch(1, zipper:test_version()).

data/tracks/erlang/testgen/src/tgen.erl

@@ -131,13 +131,15 @@ generate_test_module(ModuleName, Tests, Version) ->
         tgs:module(SluggedModName ++ "_tests"),
         nl,
         erl_syntax:comment([" This file is automatically generated from the exercises canonical data."]),
-        tgs:define("TESTED_MODULE",
-            tgs:parens(
-                tgs:call_fun("sut", [tgs:atom(SluggedModName)]))),
-        tgs:define("TEST_VERSION", tgs:value(Version)),
-        tgs:include("exercism.hrl"),
+        tgs:include_lib("erl_exercism/include/exercism.hrl"),
+        tgs:include_lib("eunit/include/eunit.hrl"),
         nl,
-        nl] ++ inter(nl, lists:flatten(Tests)),
+        nl] ++ inter(nl, lists:flatten(Tests)) ++ [
+        nl,
+        tgs:simple_fun("version_test", [
+            tgs:call_macro("assertMatch", [
+                tgs:value(Version),
+                tgs:call_fun(SluggedModName ++ ":test_version", [])])])],
 
     {SluggedModName ++ "_tests", lists:flatten(
         lists:map(

data/tracks/erlang/testgen/src/tgen_bob.erl

@@ -23,7 +23,7 @@ generate_test(F = #{description := Desc, expected := Exp, property := Prop, inpu
     Fn = tgs:simple_fun(TestName, [
         tgs:call_macro("assertMatch", [
             tgs:value(Expected),
-            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+            tgs:call_fun("bob:" ++ Property, [
                 tgs:value(Sentence)])])]),
 
     {ok, Fn, [{Property, ["String"]}]}.

data/tracks/erlang/testgen/src/tgen_collatz-conjecture.erl

@@ -21,7 +21,7 @@ generate_test(#{description := Desc, expected := #{error := Message}, property :
     Fn = tgs:simple_fun(TestName, [
         tgs:call_macro("assertMatch", [
             tgs:value({error, binary_to_list(Message)}),
-            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+            tgs:call_fun("collatz_conjecture:" ++ Property, [
                 tgs:value(Num)])])]),
 
     {ok, Fn, [{Prop, ["N"]}]};
@@ -32,7 +32,7 @@ generate_test(#{description := Desc, expected := Exp, property := Prop, number :
     Fn = tgs:simple_fun(TestName, [
         tgs:call_macro("assertMatch", [
             tgs:value(Exp),
-            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+            tgs:call_fun("collatz_conjecture:" ++ Property, [
                 tgs:value(Num)])])]),
 
     {ok, Fn, [{Prop, ["N"]}]}.