trackler 2.0.6.30 → 2.0.6.31

data/tracks/erlang/exercises/clock/src/example.erl

@@ -1,9 +1,10 @@
 -module(example).
 
 -export([create/2,
-  is_equal/2,
-  minutes_add/2,
-  to_string/1]).
+         is_equal/2,
+         minutes_add/2,
+         to_string/1,
+         test_version/0]).
 
 -record(?MODULE, {normalized}).
 
@@ -29,6 +30,11 @@ to_string(#?MODULE{normalized = Mins}) ->
   Minutes = Mins rem ?MINUTES_PER_HOUR,
   lists:flatten(io_lib:format("~2.10.0b:~2.10.0b", [Hour, Minutes])).
 
+test_version() ->
+    1.
+
+
+
 mod(X, Y) when X > 0 -> X rem Y;
 mod(X, Y) when X < 0 -> Y + X rem Y;
 mod(0, _Y) -> 0.

data/tracks/erlang/exercises/clock/test/clock_tests.erl

@@ -1,9 +1,9 @@
 -module('clock_tests').
 
+-define(TESTED_MODULE, (sut(clock))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(clock))).
 
 -define(assertClockString(String, Hour, Minute), ?assertEqual(String, ?TESTED_MODULE:to_string(?TESTED_MODULE:create( Hour, Minute)))).
 

data/tracks/erlang/exercises/difference-of-squares/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

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

@@ -1,6 +1,6 @@
 -module(example).
 
--export( [sum_of_squares/1, square_of_sums/1, difference_of_squares/1] ).
+-export( [sum_of_squares/1, square_of_sums/1, difference_of_squares/1, test_version/0] ).
 
 sum_of_squares( N ) -> lists:sum( [square(X) || X <- lists:seq(1, N)] ).
 
@@ -8,5 +8,8 @@ square_of_sums( N ) -> square( lists:sum(lists:seq(1, N)) ).
 
 difference_of_squares( N ) -> square_of_sums( N ) - sum_of_squares( N ).
 
+test_version() ->
+    1.
+
 
 square( N ) -> erlang:trunc( math:pow(N, 2) ).

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

@@ -1,9 +1,9 @@
 -module(difference_of_squares_tests).
 
+-define(TESTED_MODULE, (sut(difference_of_squares))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--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))).

data/tracks/erlang/exercises/etl/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/etl/src/example.erl

@@ -1,6 +1,6 @@
 -module(example).
 
--export([transform/1]).
+-export([transform/1, test_version/0]).
 
 transform(OldValue) ->
   orddict:to_list(
@@ -11,6 +11,11 @@ transform(OldValue) ->
      )
    ).
 
+test_version() ->
+    1.
+
+
+
 invert(Pairs) ->
   lists:foldl(
     fun({Key, Values}, A) ->

data/tracks/erlang/exercises/etl/test/etl_tests.erl

@@ -1,9 +1,9 @@
 -module(etl_tests).
 
+-define(TESTED_MODULE, (sut(etl))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(etl))).
 
 transform_one_value_test() ->
   erl_transform([{1, ["a"]}], [{"a", 1}]).

data/tracks/erlang/exercises/gigasecond/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/gigasecond/src/example.erl

@@ -1,5 +1,5 @@
 -module(example).
--export([from/1]).
+-export([from/1, test_version/0]).
 
 -define(GIGASECOND, 1000000000).
 
@@ -8,3 +8,6 @@ from({Year, Month, Day}) ->
 from(DateTime) ->
   Seconds = calendar:datetime_to_gregorian_seconds(DateTime),
   calendar:gregorian_seconds_to_datetime(Seconds + ?GIGASECOND).
+
+test_version() ->
+    1.

data/tracks/erlang/exercises/gigasecond/test/gigasecond_tests.erl

@@ -1,9 +1,9 @@
 -module(gigasecond_tests).
 
+-define(TESTED_MODULE, (sut(gigasecond))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(gigasecond))).
 
 one_test() ->
   Gs = ?TESTED_MODULE:from({2011, 4, 25}),

data/tracks/erlang/exercises/grade-school/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/grade-school/src/example.erl

@@ -1,6 +1,6 @@
 -module(example).
 
--export([add/3, get/2, sort/1, new/0]).
+-export([add/3, get/2, sort/1, new/0, test_version/0]).
 
 %% Define the grade school type
 -type school() :: [{integer(),[string(),...]}].
@@ -28,3 +28,6 @@ sort(S) ->
 -spec new() -> school().
 new() ->
   [].
+
+test_version() ->
+    1.

data/tracks/erlang/exercises/grade-school/test/grade_school_tests.erl

@@ -1,9 +1,9 @@
 -module(grade_school_tests).
 
+-define(TESTED_MODULE, (sut(grade_school))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(grade_school))).
 
 add_student_test() ->
   S1 = ?TESTED_MODULE:add("Aimee", 2, ?TESTED_MODULE:new()),

data/tracks/erlang/exercises/grains/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/grains/src/example.erl

@@ -1,5 +1,5 @@
 -module(example).
--export([square/1, total/0]).
+-export([square/1, total/0, test_version/0]).
 
 square(N) ->
   square(N, 1).
@@ -14,3 +14,6 @@ total() ->
   lists:foldl(fun(Elem, Acc) -> square(Elem) + Acc end,
               0,
               lists:seq(1, 64)).
+
+test_version() ->
+    1.

data/tracks/erlang/exercises/grains/test/grains_tests.erl

@@ -1,9 +1,9 @@
 -module(grains_tests).
 
+-define(TESTED_MODULE, (sut(grains))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(grains))).
 
 -define(assertGrains(Grains, Square), ?assertMatch(Grains, ?TESTED_MODULE:square(Square))).
 

data/tracks/erlang/exercises/hamming/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/hamming/src/example.erl

@@ -1,6 +1,6 @@
 -module(example).
 
--export([hamming_distance/2]).
+-export([hamming_distance/2, test_version/0]).
 
 hamming_distance(From, To) ->
   Comparisons = lists:zipwith(fun(X,Y) -> case X =:= Y of
@@ -10,3 +10,6 @@ hamming_distance(From, To) ->
                               end,
                               From, To),
   lists:sum(Comparisons).
+
+test_version() ->
+    1.

data/tracks/erlang/exercises/hamming/test/hamming_tests.erl

@@ -1,9 +1,9 @@
 -module(hamming_tests).
 
+-define(TESTED_MODULE, (sut(hamming))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(hamming))).
 
 empty_test()->
   ?assertEqual(0, ?TESTED_MODULE:hamming_distance("", "")).

data/tracks/erlang/exercises/hello-world/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/hello-world/src/example.erl

@@ -1,5 +1,8 @@
 -module(example).
--export([greet/0, greet/1]).
+-export([greet/0, greet/1, test_version/0]).
 
 greet() -> "Hello, World!".
 greet(Name) -> "Hello, " ++ Name ++ "!".
+
+test_version() ->
+    1.

data/tracks/erlang/exercises/hello-world/test/hello_world_tests.erl

@@ -1,9 +1,9 @@
 -module(hello_world_tests).
 
+-define(TESTED_MODULE, (sut(hello_world))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(hello_world))).
 
 no_name_test() ->
   ?assertEqual("Hello, World!", ?TESTED_MODULE:greet()).

data/tracks/erlang/exercises/largest-series-product/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/largest-series-product/src/example.erl

@@ -1,12 +1,14 @@
 -module(example).
 
--export([lsp/2]).
+-export([lsp/2, test_version/0]).
 
 -define(is_digit(C), ((C >= $0) and (C =< $9))).
 
 lsp(_String, N) when N < 0 -> error;
 lsp(String, N) -> lsp(erlang:length(String), String, N).
 
+test_version() ->
+    1.
 
 
 lsp(Length, _String, N) when Length < N -> error;

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

@@ -1,9 +1,9 @@
 -module('largest_series_product_tests').
 
+-define(TESTED_MODULE, (sut(largest_series_product))).
+-define(TEST_VERSION, 1).
 -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)).

data/tracks/erlang/exercises/leap/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/leap/src/example.erl

@@ -1,6 +1,6 @@
 -module(example).
 
--export([leap_year/1]).
+-export([leap_year/1, test_version/0]).
 
 -spec leap_year(non_neg_integer()) -> boolean().
 leap_year(Year) ->
@@ -8,5 +8,10 @@ leap_year(Year) ->
   orelse (divisible_by(Year, 4) andalso
           not divisible_by(Year, 100)).
 
+test_version() ->
+    1.
+
+
+
 divisible_by(Year, Number) ->
   Year rem Number =:= 0.

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

@@ -1,9 +1,9 @@
 -module(leap_tests).
 
+-define(TESTED_MODULE, (sut(leap))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(leap))).
 
 leap_year_test() ->
   ?assert(?TESTED_MODULE:leap_year(1996)).

data/tracks/erlang/exercises/luhn/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/luhn/src/example.erl

@@ -1,5 +1,5 @@
 -module(example).
--export([valid/1, create/1, checksum/1]).
+-export([valid/1, create/1, checksum/1, test_version/0]).
 
 
 
@@ -40,3 +40,8 @@ valid(Number) ->
 
 create(Number) ->
   lists:flatten([Number, ($: - (checksum(Number ++ [$0]) rem 10))]).
+
+
+
+test_version() ->
+    1.

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

@@ -1,9 +1,9 @@
 -module(luhn_tests).
 
+-define(TESTED_MODULE, (sut(luhn))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(luhn))).
 
 invalid_test() ->
   ?assertNot(?TESTED_MODULE:valid("1111")),

data/tracks/erlang/exercises/meetup/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/meetup/src/example.erl

@@ -1,5 +1,5 @@
 -module(example).
--export([schedule/4]).
+-export([schedule/4, test_version/0]).
 
 -type year() :: non_neg_integer().
 -type month() :: 1..12.
@@ -18,6 +18,11 @@ schedule(Year, Month, DayOfWeek, Period) ->
                   calendar:day_of_the_week({Year, Month, Day}) =:= DoW],
   {Year, Month, Day}.
 
+test_version() ->
+    1.
+
+
+
 day_range(first, _Year, _Month) ->
   lists:seq(1, 7);
 day_range(second, _Year, _Month) ->

data/tracks/erlang/exercises/meetup/test/meetup_tests.erl

@@ -1,9 +1,9 @@
 -module(meetup_tests).
 
+-define(TESTED_MODULE, (sut(meetup))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib("eunit/include/eunit.hrl").
 
--define(TESTED_MODULE, (sut(meetup))).
 
 monteenth_of_may_2013_test() ->
   ?assertEqual({2013, 5, 13},

data/tracks/erlang/exercises/nucleotide-count/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/nucleotide-count/src/example.erl

@@ -1,6 +1,6 @@
 -module(example).
 
--export([count/2, nucleotide_counts/1, validate/1]).
+-export([count/2, nucleotide_counts/1, validate/1, test_version/0]).
 
 count(Dna, N) ->
   validate(N),
@@ -26,3 +26,6 @@ nucleotide_counts(Dna) ->
    {"T", count(Dna, "T")},
    {"C", count(Dna, "C")},
    {"G", count(Dna, "G")}].
+
+test_version() ->
+    1.

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

@@ -1,9 +1,9 @@
 -module(dna_tests).
 
+-define(TESTED_MODULE, (sut(dna))).
+-define(TEST_VERSION, 1).
 -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")).

data/tracks/erlang/exercises/parallel-letter-frequency/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/parallel-letter-frequency/src/example.erl

@@ -1,12 +1,14 @@
 -module( example ).
 
--export( [dict/1] ).
+-export( [dict/1, test_version/0] ).
 
 dict( Texts ) ->
   Pids = [letter_frequency(X) || X <- Texts],
   Dicts = [receive_dict(X) || X <- Pids],
   merge_dicts( Dicts ).
 
+test_version() ->
+    1.
 
 
 letter_frequency( String ) ->

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

@@ -1,9 +1,9 @@
 -module( parallel_letter_frequency_tests ).
 
+-define(TESTED_MODULE, (sut(parallel_letter_frequency))).
+-define(TEST_VERSION, 1).
 -include("exercism.hrl").
--include_lib( "eunit/include/eunit.hrl" ).
 
--define(TESTED_MODULE, (sut(parallel_letter_frequency))).
 
 single_test() ->
   Frequencies = dict:to_list( ?TESTED_MODULE:dict(["asd"]) ),

data/tracks/erlang/exercises/phone-number/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/phone-number/src/example.erl

@@ -1,6 +1,6 @@
 -module(example).
 
--export([number/1, areacode/1, pretty_print/1]).
+-export([number/1, areacode/1, pretty_print/1, test_version/0]).
 
 -define(ZEROS, "0000000000").
 
@@ -33,3 +33,6 @@ areacode(String) ->
 pretty_print(String) ->
   {AreaCode, Exchange, Subscriber} = parts(String),
   lists:flatten(io_lib:format("\(~s\) ~s-~s", [AreaCode, Exchange, Subscriber])).
+
+test_version() ->
+    1.

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

@@ -1,9 +1,9 @@
 -module(phone_tests).
 
+-define(TESTED_MODULE, (sut(phone))).
+-define(TEST_VERSION, 1).
 -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")).

data/tracks/erlang/exercises/rna-transcription/include/exercism.hrl

@@ -1,6 +1,11 @@
+-include_lib("eunit/include/eunit.hrl").
+
 sut(Module) ->
   {ok, Files} = file:list_dir("./src"),
   case lists:member(atom_to_list(Module) ++ ".erl", Files) of
     true  -> Module;
     false -> example
   end.
+
+version_test() ->
+    ?assertMatch(?TEST_VERSION, ?TESTED_MODULE:test_version()).

data/tracks/erlang/exercises/rna-transcription/src/example.erl

@@ -1,9 +1,14 @@
 -module(example).
--export([to_rna/1]).
+-export([to_rna/1, test_version/0]).
 
 to_rna(Strand) ->
   lists:map(fun transcribe_to_rna/1, Strand).
 
+test_version() ->
+    1.
+
+
+
 transcribe_to_rna($G) ->
   $C;
 transcribe_to_rna($C) ->