trackler 2.2.1.55 → 2.2.1.56

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

@@ -1,24 +1,65 @@
 -module(hamming_tests).
 
+% This file is automatically generated from the exercises canonical data.
+
 -define(TESTED_MODULE, (sut(hamming))).
--define(TEST_VERSION, 1).
+-define(TEST_VERSION, 2).
 -include("exercism.hrl").
 
 
-empty_test()->
-  ?assertEqual(0, ?TESTED_MODULE:hamming_distance("", "")).
+empty_strands_test() ->
+    ?assertMatch(0, ?TESTED_MODULE:distance([], [])).
+
+identical_strands_test() ->
+    ?assertMatch(0, ?TESTED_MODULE:distance("A", "A")).
+
+long_identical_strands_test() ->
+    ?assertMatch(0,
+		 ?TESTED_MODULE:distance("GGACTGA", "GGACTGA")).
+
+complete_distance_in_single_nucleotide_strands_test() ->
+    ?assertMatch(1, ?TESTED_MODULE:distance("A", "G")).
+
+complete_distance_in_small_strands_test() ->
+    ?assertMatch(2, ?TESTED_MODULE:distance("AG", "CT")).
+
+small_distance_in_small_strands_test() ->
+    ?assertMatch(1, ?TESTED_MODULE:distance("AT", "CT")).
+
+small_distance_test() ->
+    ?assertMatch(1,
+		 ?TESTED_MODULE:distance("GGACG", "GGTCG")).
+
+small_distance_in_long_strands_test() ->
+    ?assertMatch(2,
+		 ?TESTED_MODULE:distance("ACCAGGG", "ACTATGG")).
+
+non_unique_character_in_first_strand_test() ->
+    ?assertMatch(1, ?TESTED_MODULE:distance("AAG", "AAA")).
+
+non_unique_character_in_second_strand_test() ->
+    ?assertMatch(1, ?TESTED_MODULE:distance("AAA", "AAG")).
 
-equal_test() ->
-  ?assertEqual(0, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "GAGCCTACTAACGGGAT")).
+same_nucleotides_in_different_positions_test() ->
+    ?assertMatch(2, ?TESTED_MODULE:distance("TAG", "GAT")).
 
-all_different_test() ->
-  ?assertEqual(17, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "FFFFFFFFFFFFFFFFF")).
+large_distance_test() ->
+    ?assertMatch(4,
+		 ?TESTED_MODULE:distance("GATACA", "GCATAA")).
 
-ends_different_test()->
-  ?assertEqual(2, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "TAGCCTACTAACGGGAG")).
+large_distance_in_off_by_one_strand_test() ->
+    ?assertMatch(9,
+		 ?TESTED_MODULE:distance("GGACGGATTCTG",
+					 "AGGACGGATTCT")).
 
-middle_different_test() ->
-  ?assertEqual(1, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "GAGCCTACCAACGGGAT")).
+disallow_first_strand_longer_test() ->
+    ?assertMatch({error,
+		  "left and right strands must be of equal "
+		  "length"},
+		 ?TESTED_MODULE:distance("AATG", "AAA")).
 
-some_differences_test() ->
-  ?assertEqual(6, ?TESTED_MODULE:hamming_distance("GAGCCTACTAACGGGAT", "GAACCTCCCAAGGGATT")).
+disallow_second_strand_longer_test() ->
+    ?assertMatch({error,
+		  "left and right strands must be of equal "
+		  "length"},
+		 ?TESTED_MODULE:distance("ATA", "AGTG")).

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

@@ -1,5 +1,7 @@
 -module(hello_world_tests).
 
+% This file is automatically generated from the exercises canonical data.
+
 -define(TESTED_MODULE, (sut(hello_world))).
 -define(TEST_VERSION, 2).
 -include("exercism.hrl").

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

@@ -1,5 +1,7 @@
 -module(leap_tests).
 
+% This file is automatically generated from the exercises canonical data.
+
 -define(TESTED_MODULE, (sut(leap))).
 -define(TEST_VERSION, 3).
 -include("exercism.hrl").

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

@@ -2,10 +2,14 @@
 -export([to_rna/1, test_version/0]).
 
 to_rna(Strand) ->
-  lists:map(fun transcribe_to_rna/1, Strand).
+    try lists:map(fun transcribe_to_rna/1, Strand) of
+        Result -> Result
+    catch
+        _:_ -> error
+    end.
 
 test_version() ->
-    1.
+    2.
 
 
 

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

@@ -2,7 +2,7 @@
 
 -export([to_rna/1, test_version/0]).
 
-to_rna(Strand) ->
-  undefined.
 
-test_version() -> 1.
+to_rna(Strand) -> undefined.
+
+test_version() -> 2.

data/tracks/erlang/exercises/rna-transcription/test/rna_transcription_tests.erl

@@ -1,24 +1,34 @@
 -module(rna_transcription_tests).
 
+% This file is automatically generated from the exercises canonical data.
+
 -define(TESTED_MODULE, (sut(rna_transcription))).
--define(TEST_VERSION, 1).
+-define(TEST_VERSION, 2).
 -include("exercism.hrl").
 
 
-transcribes_cytidine_to_guanosine_test() ->
-  ?assertEqual("C", ?TESTED_MODULE:to_rna("G")).
+rna_complement_of_cytosine_is_guanine_test() ->
+    ?assertMatch("G", ?TESTED_MODULE:to_rna("C")).
+
+rna_complement_of_guanine_is_cytosine_test() ->
+    ?assertMatch("C", ?TESTED_MODULE:to_rna("G")).
+
+rna_complement_of_thymine_is_adenine_test() ->
+    ?assertMatch("A", ?TESTED_MODULE:to_rna("T")).
+
+rna_complement_of_adenine_is_uracil_test() ->
+    ?assertMatch("U", ?TESTED_MODULE:to_rna("A")).
 
-transcribes_guanosine_to_cytidine_test() ->
-  ?assertEqual("G", ?TESTED_MODULE:to_rna("C")).
+rna_complement_test() ->
+    ?assertMatch("UGCACCAGAAUU",
+		 ?TESTED_MODULE:to_rna("ACGTGGTCTTAA")).
 
-transcribes_adenosine_to_thymidine_test() ->
-  ?assertEqual("A", ?TESTED_MODULE:to_rna("T")).
+correctly_handles_invalid_input_rna_instead_of_dna_test() ->
+    ?assertMatch(error, ?TESTED_MODULE:to_rna("U")).
 
-transcribes_thymidine_to_uracil_test() ->
-  ?assertEqual("U", ?TESTED_MODULE:to_rna("A")).
+correctly_handles_completely_invalid_dna_input_test() ->
+    ?assertMatch(error, ?TESTED_MODULE:to_rna("XXX")).
 
-transcribes_all_occurences_test() ->
-  ?assertEqual(
-     "UGCACCAGAAUU",
-     ?TESTED_MODULE:to_rna("ACGTGGTCTTAA")
-    ).
+correctly_handles_partially_invalid_dna_input_test() ->
+    ?assertMatch(error,
+		 ?TESTED_MODULE:to_rna("ACGTXXXCTTAA")).

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

@@ -130,6 +130,7 @@ generate_test_module(ModuleName, Tests, Version) ->
     Abstract = [
         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)]))),

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

@@ -0,0 +1,29 @@
+-module('tgen_bob').
+
+-behaviour(tgen).
+
+-export([
+    available/0,
+    version/0,
+    generate_test/1
+]).
+
+-spec available() -> true.
+available() ->
+    true.
+
+version() -> 2.
+
+generate_test(F = #{description := Desc, expected := Exp, property := Prop, input := Input}) ->
+    TestName = tgen:to_test_name(Desc),
+    Property = binary_to_list(Prop),
+    Expected = binary_to_list(Exp),
+    Sentence = binary_to_list(Input),
+
+    Fn = tgs:simple_fun(TestName, [
+        tgs:call_macro("assertMatch", [
+            tgs:value(Expected),
+            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+                tgs:value(Sentence)])])]),
+
+    {ok, Fn, [{Property, ["String"]}]}.

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

@@ -0,0 +1,41 @@
+-module('tgen_hamming').
+
+-behaviour(tgen).
+
+-export([
+    available/0,
+    version/0,
+    generate_test/1
+]).
+
+-spec available() -> true.
+available() ->
+    true.
+
+version() -> 2.
+
+generate_test(#{description := Desc, expected := #{error := Message}, property := Prop, 'strand1' := S1, 'strand2' := S2}) ->
+    TestName = tgen:to_test_name(Desc),
+    Property = binary_to_list(Prop),
+    Reason = binary_to_list(Message),
+
+    Fn = tgs:simple_fun(TestName, [
+        tgs:call_macro("assertMatch", [
+            tgs:value({error, Reason}),
+            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+                tgs:value(binary_to_list(S1)),
+                tgs:value(binary_to_list(S2))])])]),
+
+    {ok, Fn, [{Property, ["Strand1", "Strand2"]}]};
+generate_test(#{description := Desc, expected := Exp, property := Prop, 'strand1' := S1, 'strand2' := S2}) ->
+    TestName = tgen:to_test_name(Desc),
+    Property = binary_to_list(Prop),
+
+    Fn = tgs:simple_fun(TestName, [
+        tgs:call_macro("assertMatch", [
+            tgs:value(Exp),
+            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+                tgs:value(binary_to_list(S1)),
+                tgs:value(binary_to_list(S2))])])]),
+
+    {ok, Fn, [{Property, ["Strand1", "Strand2"]}]}.

data/tracks/erlang/testgen/src/tgen_rna-transcription.erl

@@ -0,0 +1,38 @@
+-module('tgen_rna-transcription').
+
+-behaviour(tgen).
+
+-export([
+    available/0,
+    version/0,
+    generate_test/1
+]).
+
+-spec available() -> true.
+available() ->
+    true.
+
+version() -> 2.
+
+generate_test(#{description := Desc, expected := null, property := <<"toRna">>, dna := DNA}) ->
+    TestName = tgen:to_test_name(Desc),
+    Property = "to_rna",
+
+    Fn = tgs:simple_fun(TestName, [
+        tgs:call_macro("assertMatch", [
+            tgs:value(error),
+            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+                tgs:value(binary_to_list(DNA))])])]),
+
+    {ok, Fn, [{Property, ["Strand"]}]};
+generate_test(#{description := Desc, expected := Exp, property := <<"toRna">>, dna := DNA}) ->
+    TestName = tgen:to_test_name(Desc),
+    Property = "to_rna",
+
+    Fn = tgs:simple_fun(TestName, [
+        tgs:call_macro("assertMatch", [
+            tgs:value(binary_to_list(Exp)),
+            tgs:call_macro("TESTED_MODULE:" ++ Property, [
+                tgs:value(binary_to_list(DNA))])])]),
+
+    {ok, Fn, [{Property, ["Strand"]}]}.

data/tracks/fsharp/exercises/etl/Etl.fs

@@ -1,3 +1,3 @@
-module ETL
+module Etl
 
-let transform (scoresWithLetters: Map<int, string list>): Map<string, int> = failwith "You need to implement this function."
+let transform (scoresWithLetters: Map<int, char list>): Map<char, int> = failwith "You need to implement this function."

data/tracks/fsharp/exercises/etl/EtlTest.fs

@@ -1,39 +1,82 @@
-module ETLTest
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
+module EtlTest
 
-open Xunit
 open FsUnit.Xunit
-open ETL
+open Xunit
+
+open Etl
 
 [<Fact>]
-let ``Transforms one value`` () =
-    let old = [(1, ["A"])] |> Map.ofSeq
-    let expected = [("a", 1)] |> Map.ofSeq
-    transform old |> should equal expected
+let ``A single letter`` () =
+    let input = [(1, ['A'])] |> Map.ofList
+    let expected = [('a', 1)] |> Map.ofList
+    transform input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Transforms multiple values`` () =
-    let old = [(1, ["A"; "E"; "I"; "O"; "U"])] |> Map.ofSeq
-    let expected = [("a", 1); ("e", 1); ("i", 1); ("o", 1); ("u", 1)] |> Map.ofSeq
-    transform old |> should equal expected
+let ``Single score with multiple letters`` () =
+    let input = [(1, ['A'; 'E'; 'I'; 'O'; 'U'])] |> Map.ofList
+    let expected = 
+        [ ('a', 1)
+          ('e', 1)
+          ('i', 1)
+          ('o', 1)
+          ('u', 1) ]
+        |> Map.ofList
+    transform input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Transforms multiple keys`` () =
-    let old = [(1, ["A"; "E"]); (2, ["D"; "G"])] |> Map.ofSeq
-    let expected = [("a", 1); ("e", 1); ("d", 2); ("g", 2); ] |> Map.ofSeq
-    transform old |> should equal expected
+let ``Multiple scores with multiple letters`` () =
+    let input = 
+        [ (1, ['A'; 'E'])
+          (2, ['D'; 'G']) ]
+        |> Map.ofList
+    let expected = 
+        [ ('a', 1)
+          ('d', 2)
+          ('e', 1)
+          ('g', 2) ]
+        |> Map.ofList
+    transform input |> should equal expected
 
 [<Fact(Skip = "Remove to run test")>]
-let ``Transforms a full dataset`` () =
-    let old = [(1, ["A"; "E"; "I"; "O"; "U"; "L"; "N"; "R"; "S"; "T"]); 
-                (2, ["D"; "G"]); 
-                (3, ["B"; "C"; "M"; "P"]); 
-                (4, ["F"; "H"; "V"; "W"; "Y"]); 
-                (5, ["K"]); 
-                (8, ["J"; "X"]); 
-                (10, ["Q"; "Z"])] |> Map.ofSeq
-
-    let expected = [("a", 1);  ("b", 3);  ("c", 3);  ("d", 2);  ("e", 1);  ("f", 4);  ("g", 2);  ("h", 4);  ("i", 1); 
-                    ("j", 8);  ("k", 5);  ("l", 1);  ("m", 3);  ("n", 1);  ("o", 1);  ("p", 3);  ("q", 10);  ("r", 1); 
-                    ("s", 1);  ("t", 1);  ("u", 1);  ("v", 4);  ("w", 4);  ("x", 8);  ("y", 4);  ("z", 10 )] |> Map.ofSeq
-
-    transform old |> should equal expected
+let ``Multiple scores with differing numbers of letters`` () =
+    let input = 
+        [ (1, ['A'; 'E'; 'I'; 'O'; 'U'; 'L'; 'N'; 'R'; 'S'; 'T'])
+          (2, ['D'; 'G'])
+          (3, ['B'; 'C'; 'M'; 'P'])
+          (4, ['F'; 'H'; 'V'; 'W'; 'Y'])
+          (5, ['K'])
+          (8, ['J'; 'X'])
+          (10, ['Q'; 'Z']) ]
+        |> Map.ofList
+    let expected = 
+        [ ('a', 1)
+          ('b', 3)
+          ('c', 3)
+          ('d', 2)
+          ('e', 1)
+          ('f', 4)
+          ('g', 2)
+          ('h', 4)
+          ('i', 1)
+          ('j', 8)
+          ('k', 5)
+          ('l', 1)
+          ('m', 3)
+          ('n', 1)
+          ('o', 1)
+          ('p', 3)
+          ('q', 10)
+          ('r', 1)
+          ('s', 1)
+          ('t', 1)
+          ('u', 1)
+          ('v', 4)
+          ('w', 4)
+          ('x', 8)
+          ('y', 4)
+          ('z', 10) ]
+        |> Map.ofList
+    transform input |> should equal expected
+

data/tracks/fsharp/exercises/etl/Example.fs

@@ -1,9 +1,14 @@
-module ETL
+module Etl
 
-let normalizeLetter (letter:string) = letter.ToLowerInvariant()
+open System
 
-let transformLetterWithScore score lettersWithScore (letter:string) = Map.add (normalizeLetter letter) score lettersWithScore
+let normalizeLetter letter = Char.ToLowerInvariant(letter)
 
-let transformScoreWithLetters lettersWithScore score letters = List.fold (transformLetterWithScore score) lettersWithScore letters
+let transformLetterWithScore score lettersWithScore letter = 
+    Map.add (normalizeLetter letter) score lettersWithScore
 
-let transform scoresWithLetters: Map<string, int> = Map.fold transformScoreWithLetters Map.empty scoresWithLetters
+let transformScoreWithLetters lettersWithScore score letters = 
+    List.fold (transformLetterWithScore score) lettersWithScore letters
+
+let transform scoresWithLetters: Map<char, int> = 
+    Map.fold transformScoreWithLetters Map.empty scoresWithLetters

data/tracks/fsharp/exercises/nth-prime/NthPrimeTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.0 of the canonical data.
+// This file was auto-generated based on version 2.0.0 of the canonical data.
 
 module NthPrimeTest
 

data/tracks/fsharp/exercises/nucleotide-count/Example.fs

@@ -1,4 +1,4 @@
-module NucleoTideCount
+module NucleotideCount
 
 let private validNucleotides = ['A'; 'T'; 'C'; 'G']
 
@@ -10,5 +10,9 @@ let count (nucleotide:char) (strand:string) =
     | false -> failwith "Invalid nucleotide"
 
 let nucleotideCounts strand = 
-    List.map (fun nucleotide -> (nucleotide, count nucleotide strand)) validNucleotides 
-    |> Map.ofSeq
+    if String.forall isValid strand then
+        List.map (fun nucleotide -> (nucleotide, count nucleotide strand)) validNucleotides 
+        |> Map.ofSeq
+        |> Some
+    else    
+        None