trackler 2.0.0.8 → 2.0.0.9

data/tracks/ocaml/tools/test-generator/templates/anagram/template.ml

@@ -0,0 +1,17 @@
+open Core.Std
+open OUnit2
+open Anagram
+
+let ae exp got _test_ctxt =
+  let printer = List.to_string ~f:String.to_string in
+  assert_equal exp got ~cmp:(List.equal ~equal:String.equal) ~printer
+
+let tests = [
+(* GENERATED-CODE
+  "$name" >::
+    ae $expected (anagrams "$subject" $candidates);
+   END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("anagrams tests" >::: tests)

data/tracks/ocaml/tools/test-generator/templates/bob/template.ml

@@ -0,0 +1,15 @@
+open Core.Std
+open OUnit2
+open Bob
+
+let ae exp got _test_ctxt = assert_equal ~printer:String.to_string exp got
+
+let tests = [
+(* GENERATED-CODE
+   "$name" >::
+      ae "$expected" (response_for "$input");
+   END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("bob tests" >::: tests)

data/tracks/ocaml/tools/test-generator/templates/hamming/template.ml

@@ -0,0 +1,30 @@
+open Core.Std
+open OUnit2
+
+let printer n =
+  Option.sexp_of_t Int.sexp_of_t n
+  |> Sexp.to_string
+
+let ae exp got _test_ctxt = assert_equal ~printer exp got
+
+let dna_of_string s =
+  let open Hamming in
+  let f = function
+    | 'A' -> A
+    | 'C' -> C
+    | 'G' -> G
+    | 'T' -> T
+    | _   -> failwith "Big news! New nucleotide discovered" in
+  String.to_list s |> List.map ~f
+
+let hamdist a b = Hamming.hamming_distance (dna_of_string a) (dna_of_string b)
+
+let tests = [
+(* GENERATED-CODE
+   "$name" >::
+      ae $expected (hamdist "$strand1" "$strand2");
+   END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("hamming tests" >::: tests)

data/tracks/ocaml/tools/test-generator/templates/leap/template.ml

@@ -0,0 +1,15 @@
+open Core.Std
+open OUnit2
+open Leap
+
+let ae exp got _test_ctxt = assert_equal exp got
+
+let tests = [
+(* GENERATED-CODE
+  "$name" >::
+    ae $expected (leap_year $input);
+END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("leap tests" >::: tests)

data/tracks/ocaml/tools/test-generator/templates/raindrops/template.ml

@@ -0,0 +1,15 @@
+open Core.Std
+open OUnit2
+open Raindrops
+
+let ae exp got _test_ctxt = assert_equal ~printer:Fn.id exp got
+
+let tests = [
+(* GENERATED-CODE
+   "$name" >::
+      ae "$expected" (raindrop $number);
+   END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("raindrops tests" >::: tests)

data/tracks/ocaml/tools/test-generator/templates/word-count/template.ml

@@ -0,0 +1,19 @@
+open Core.Std
+open OUnit2
+open Word_count
+
+module SMap = String.Map
+
+let ae exp got _test_ctxt =
+  let printer m = SMap.sexp_of_t Int.sexp_of_t m |> Sexp.to_string_hum ~indent:1 in
+  assert_equal (SMap.of_alist_exn exp) got ~cmp:(SMap.equal (=)) ~printer
+
+let tests = [
+(* GENERATED-CODE
+   "$name" >::
+      ae $expected (word_count "$input");
+   END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("word_count tests" >::: tests)

data/tracks/ocaml/tools/test-generator/test/all_tests.ml

@@ -0,0 +1,11 @@
+open Core.Std
+open OUnit2
+open Codegen_test
+open Model_test
+open Parser_test
+open Special_cases_test
+open Test_generator_test
+open Utils_test
+
+let () =
+  run_test_tt_main ("tests" >:::List.concat [codegen_tests; model_tests; parser_tests; special_cases_tests; test_generator_tests; utils_tests])

data/tracks/ocaml/tools/test-generator/test/codegen_test.ml

@@ -0,0 +1,20 @@
+open Core.Std
+open OUnit2
+open Codegen
+open Model
+
+let leap_template = "\"$name\" >:: ae $expected (leap_year $input);"
+
+let fixup ~key ~value = parameter_to_string value
+let assert_gen exp cases = assert_equal (Ok exp) ~printer:(fun (Ok xs) -> "[" ^ (String.concat ~sep:";" xs) ^ "]") (generate_code fixup leap_template cases)
+let ae exp cases _test_ctxt = assert_gen exp cases
+
+let codegen_tests = [
+  "if there are no cases then generate an empty string" >::
+    ae [] [];
+
+  "generates one function based on leap year for one case" >::(fun ctxt ->
+      let c = {name = "leap_year"; parameters = [("input", Int 1996)]; expected = Bool true} in
+      assert_gen ["\"leap_year\" >:: ae true (leap_year 1996);"] [c]
+    );
+]

data/tracks/ocaml/tools/test-generator/test/model_test.ml

@@ -0,0 +1,27 @@
+open Core.Std
+open OUnit2
+open Codegen
+open Model
+
+let ae exp got _ctxt = assert_equal ~printer:Fn.id exp got
+
+let model_tests = [
+  "int parameter to string" >::
+    ae "8" @@ parameter_to_string (Int 8);
+  "bool parameter to string" >::
+    ae "true" @@ parameter_to_string (Bool true);
+  "string parameter to string" >::
+    ae "xyz" @@ parameter_to_string (String "xyz");
+  "string parameter containing escaped characters to string" >::
+    ae "x\\t\\ny" @@ parameter_to_string (String "x\t\ny");
+  "float parameter to string" >::
+    ae "3.14" @@ parameter_to_string (Float 3.14);
+  "string list parameter to string" >::
+    ae "[\"a\"; \"bc\"; \"def\"]"  @@ parameter_to_string (StringList ["a"; "bc"; "def"]);
+  "string list parameter with escaped characters to string" >::
+    ae "[\"a\\r\"; \"b\\nc\"; \"d\\tef\"]"  @@ parameter_to_string (StringList ["a\r"; "b\nc"; "d\tef"]);
+  "int string map parameter to string" >::
+    ae "[(\"one\", 1); (\"two\", 1)]"  @@ parameter_to_string (IntStringMap [("one", 1); ("two", 1)]);
+  "int string map parameter to string with escaped characters in the keys" >::
+    ae "[(\"\\t\\r\", 1); (\"two\\n\", 1)]"  @@ parameter_to_string (IntStringMap [("\t\r", 1); ("two\n", 1)]);
+]

data/tracks/ocaml/tools/test-generator/test/parser_test.ml

@@ -0,0 +1,73 @@
+open Core.Std
+open OUnit2
+open Parser
+open Model
+
+let show_cases = function
+  | Ok cs -> List.map ~f:show_case cs |> String.concat
+  | Error e -> show_error e
+
+let ae exp got _test_ctxt = assert_equal exp got ~printer:show_cases
+
+let parser_tests = [
+  "parses empty json as empty list" >::
+    ae (Ok []) (parse_json_text "{\"cases\" : []}");
+
+  "gives an error with a json map that does not have the key cases in" >::
+    ae (Error TopLevelMustHaveKeyCalledCases)
+       (parse_json_text "{\"case\" : [{\"description\" : \"d1\", \"expected\" : 100}]}");
+
+  "gives an error with cases that is not a json list" >::
+    ae (Error ExpectingListOfCases)
+       (parse_json_text "{\"cases\" : 11}");
+
+  "gives an error with a case that is not a json map" >::
+    ae (Error ExpectingMapForCase)
+       (parse_json_text "{\"cases\" : [\"key\"]}");
+
+  "parses a single element with a description and expected string output" >::
+    ae (Ok [{name = "d1"; parameters = []; expected = String "value"}])
+       (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : \"value\"}]}");
+
+  "parses a single element with a description and expected float output" >::
+    ae (Ok [{name = "d1"; parameters = []; expected = Float 100.}])
+       (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : 100.0}]}");
+
+  "parses a single element with a description and expected bool output" >::
+    ae (Ok [{name = "d1"; parameters = []; expected = Bool true}])
+      (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : true}]}");
+
+  "parses a single element with an int key value pair" >::
+    ae (Ok [{name = "d1"; parameters = [("input", Int 1996)]; expected = Bool true}])
+      (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"input\" : 1996, \"expected\" : true}]}");
+
+  "parses a single element with a string key value pair" >::
+    ae (Ok [{name = "d1"; parameters = [("input", String "some-string")]; expected = Int 85}])
+      (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"input\" : \"some-string\", \"expected\" : 85}]}");
+
+  "parses a single element with a string list key value pair" >::
+    ae (Ok [{name = "d1"; parameters = [("input", StringList ["s1"; "s2"])]; expected = Int 85}])
+      (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"input\" : [\"s1\", \"s2\"], \"expected\" : 85}]}");
+
+  "an element without a description is an Error" >::
+    ae (Error BadDescription)
+      (parse_json_text "{\"cases\" : [{\"input\" : 11, \"expected\" : 85}]}");
+
+  "an element with a description which is an int is an Error" >::
+    ae (Error BadDescription)
+      (parse_json_text "{\"cases\" : [{\"description\" : 1, \"input\" : 11, \"expected\" : 85}]}");
+
+  "an element without expected is an Error" >::
+    ae (Error BadDescription)
+      (parse_json_text "{\"cases\" : [{\"input\" : 11}]}");
+
+  "parses a map in the expected parameter" >::(fun _ctx ->
+      assert_equal (Ok [{name = "d1"; parameters = []; expected = IntStringMap [("one", 1); ("two", 2)]}])
+        (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : {\"one\": 1, \"two\": 2}}]}");
+      );
+
+  "parses leap.json" >::(fun ctxt ->
+    let (Ok p) = parse_json_text @@ In_channel.read_all "src/leap.json" in
+    assert_equal 7 (List.length p)
+  );
+]

data/tracks/ocaml/tools/test-generator/test/special_cases_test.ml

@@ -0,0 +1,22 @@
+open Core.Std
+open OUnit2
+open Model
+open Codegen
+open Special_cases
+
+let ae exp got _ctxt = assert_equal ~printer:Fn.id exp got
+
+let special_cases_tests = [
+  "for a non special cased slug convert the parameter to a string" >:: (fun _ctx ->
+      let stringify (Bool true) = "stringified" in
+      assert_equal ~printer:Fn.id "stringified" (fixup ~stringify ~slug:"some-slug" ~key:"key" ~value:(Bool true))
+    );
+
+  "an optional int parameter is converted to none if it matches the special value" >:: (fun _ctx ->
+      assert_equal "None" (optional_int ~none:88 (Int 88))
+    );
+
+  "an optional int parameter is converted to (Some value) if it does not match the special value" >:: (fun _ctx ->
+    assert_equal "(Some 0)" (optional_int ~none:88 (Int 0))
+  )
+]

data/tracks/ocaml/tools/test-generator/test/test_generator_test.ml

@@ -0,0 +1,11 @@
+open Core.Std
+open OUnit2
+open Codegen
+open Test_generator
+
+let test_generator_tests = [
+  "finds a template" >::(fun ctxt ->
+      let template_text = "open Core.Std\nopen OUnit2\nopen Leap\n\nlet ae exp got _test_ctxt = assert_equal exp got\n\nlet tests = [\n(* GENERATED-CODE\n  \"$name\" >::\n    ae $expected (leap_year $input)\nEND GENERATED-CODE *)\n]\n\nlet () =\n  run_test_tt_main (\"leap tests\" >::: tests)\n" in
+      assert_equal (Some (7, 10, "  \"$name\" >::\n    ae $expected (leap_year $input)")) (find_template ~template_text)
+    );
+]

data/tracks/ocaml/tools/test-generator/test/utils_test.ml

@@ -0,0 +1,21 @@
+open Core.Std
+open OUnit2
+open Codegen
+open Utils
+
+let utils_tests = [
+  "array findi is None if nothing in array matches predicate" >::(fun ctxt ->
+      let found = find_arrayi [|"1";"123";"12345";"12"|] ~f:(fun x -> String.length x = 8) ~start:0 in
+      assert_equal None found
+    );
+
+  "array findi is None if nothing in array matches predicate after start" >::(fun ctxt ->
+      let found = find_arrayi [|"1";"123";"12345";"12"|] ~f:(fun x -> String.length x = 1) ~start:1 in
+      assert_equal None found
+    );
+
+  "array findi is Some including index and value something matches predicate after start" >::(fun ctxt ->
+      let found = find_arrayi [|"1";"123";"12345";"12"|] ~f:(fun x -> String.length x = 5) ~start:1 in
+      assert_equal (Some (2, "12345")) found
+    );
+]

data/tracks/perl5/config.json

@@ -3,7 +3,7 @@
   "language": "Perl 5",
   "repository": "https://github.com/exercism/xperl5",
   "active": true,
-  "test_pattern": ".*t$",
+  "test_pattern": ".*\\.t$",
   "deprecated": [
     "binary",
     "point-mutations"

data/tracks/perl6/accumulate/accumulate.t

@@ -1,10 +1,16 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 8;
 
-BEGIN { EVAL('use Example') }; pass 'Load module';
+BEGIN {
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Accumulate';
+  EVAL("use $module")
+};
+
+pass 'Load module';
+
 ok Accumulate.can('accumulate'), 'Accumulate class has accumulate() method';
 
 is-deeply Accumulate.accumulate([ ], sub {}),

data/tracks/perl6/anagram/Example.pm

@@ -3,7 +3,7 @@ class Anagram {
         my @results;
         my $canonical = self!canonize($word);
         for @words -> $w {
-            next if $w eq $word;
+            next if $w.lc eq $word.lc;
             my $try = self!canonize($w);
             if $try eq $canonical {
                 @results.push: $w;

data/tracks/perl6/anagram/anagram.t

@@ -1,16 +1,15 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
+
+plan 11;
 
 BEGIN {
-    plan 11;
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Anagram';
+  EVAL("use $module")
+};
 
-    my @files = <Example Anagram>;
-    my $file = @files.grep({ ( $_ ~ '.pm' ).IO.f })[0] 
-        or exit flunk "neither " ~ ( @files.map({ $_ ~ '.pm' }).join( ' or ' ) ) ~ ' found';
-    EVAL( 'use ' ~ $file );
-    pass 'Load module';
-}
+pass 'Load module';
 
 ok Anagram.can('match'), 'Class Anagram has match method';
 

data/tracks/perl6/binary/Example.pm

@@ -5,7 +5,7 @@ class Binary {
         my $decimal = 0;
         my $index = $binary.chars;
 
-        for $binary.split('') -> $bit {
+        for $binary.split('',:skip-empty) -> $bit {
            $decimal += $bit * 2 ** --$index;
         }
         return $decimal;

data/tracks/perl6/binary/binary.t

@@ -1,16 +1,15 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
+
+plan 10;
 
 BEGIN {
-    plan 10;
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Anagram';
+  EVAL("use $module")
+};
 
-    my @files = <Example Binary>;
-    my $file = @files.grep({ ( $_ ~ '.pm' ).IO.f })[0] 
-        or exit flunk "neither " ~ ( @files.map({ $_ ~ '.pm' }).join( ' or ' ) ) ~ ' found';
-    EVAL( 'use ' ~ $file );
-    pass 'Load module';
-}
+pass 'Load module';
 
 ok Binary.can('to_decimal'), 'Class Binary has to_decimal method';
 

data/tracks/perl6/bob/bob.t

@@ -1,13 +1,11 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 21;
 
-
 BEGIN { 
     my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Bob';
-
     EVAL("use $module");
 }; 
 

data/tracks/perl6/config.json

@@ -4,6 +4,7 @@
   "repository": "https://github.com/exercism/xperl6",
   "checklist_issue": 30,
   "active": false,
+  "test_pattern": ".*\\.t$",
   "deprecated": [
 
   ],

data/tracks/perl6/grains/grains.t

@@ -1,10 +1,15 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 11;
 
-BEGIN { EVAL('use Example') }; pass 'Load module';
+BEGIN {
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Grains';
+  EVAL("use $module")
+};
+
+pass 'Load module';
 
 ok Grains.can('square'), 'Grains class has square method';
 ok Grains.can('total'), 'Grains class has total method';

data/tracks/perl6/leap/leap.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 8;
 
@@ -9,6 +9,8 @@ BEGIN {
     EVAL("use $module");
 };
 
+pass 'Load module';
+
 ok Leap.can('is_leap'), 'Leap class has is_leap() method';
 
 ok my $leap = Leap.new, 'Create new Leap object';

data/tracks/perl6/raindrops/raindrops.t

@@ -1,10 +1,16 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 18;
 
-BEGIN { EVAL('use Example') }; pass ('Load module');
+BEGIN {
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Raindrops';
+  EVAL("use $module")
+};
+
+pass 'Load module';
+
 
 ok Raindrops.can('convert'), 'Class Raindrops has convert method';
 

data/tracks/perl6/rna-transcription/rna_transcription.t

@@ -1,16 +1,15 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
-BEGIN {
-    plan 7;
+plan 7;
 
-    my @files = <Example DNA>;
-    my $file = @files.grep({ ( $_ ~ '.pm' ).IO.f })[0] 
-        or exit flunk "neither " ~ ( @files.map({ $_ ~ '.pm' }).join( ' or ' ) ) ~ ' found';
-    EVAL( 'use ' ~ $file );
-    pass 'Load module';
-}
+BEGIN { 
+    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'RNA_Transcription';
+    EVAL("use $module");
+}; 
+
+pass 'Load module';
 
 ok RNA_Transcription.can('to_rna'), 'Class RNA_Transcription has to_rna() method';
 

data/tracks/perl6/robot-name/robot.t

@@ -1,16 +1,15 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
-BEGIN {
-    plan 7;
+plan 7;
 
-    my @files = <Example Robot>;
-    my $file = @files.grep({ ( $_ ~ '.pm' ).IO.f })[0] 
-        or exit flunk "neither " ~ ( @files.map({ $_ ~ '.pm' }).join( ' or ' ) ) ~ ' found';
-    EVAL( 'use ' ~ $file );
-    pass 'Load module';
-}
+BEGIN { 
+    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Robot';
+    EVAL("use $module");
+}; 
+
+pass 'Load module';
 
 ok Robot.can('name'), 'Robot class has name attribute';
 ok Robot.can('reset_name'), 'Robot class has reset_name method';

data/tracks/perl6/scrabble-score/Example.pm

@@ -13,7 +13,7 @@ class Scrabble {
     method score ($word) {
         my $score = 0;
 
-        for $word.lc.split('') -> $letter {
+        for $word.lc.split('',:skip-empty) -> $letter {
             $score
             += self.values{ self.values.keys.first(/$letter/) or 'ZERO' };
         }

data/tracks/perl6/scrabble-score/scrabble_score.t

@@ -1,10 +1,16 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 10;
 
-BEGIN { EVAL('use Example') }; pass 'Load module';
+BEGIN {
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Scrabble';
+  EVAL("use $module")
+};
+
+pass 'Load module';
+
 ok Scrabble.can('score'), 'Scrabble class has score() method';
 
 my $scrabble = Scrabble.new();

data/tracks/perl6/word-count/word_count.t

@@ -1,10 +1,16 @@
 use v6;
 use Test;
-use lib './';
+use lib IO::Path.new($?FILE).parent.path;
 
 plan 8;
 
-BEGIN { EVAL('use Example') }; pass 'Load module';
+BEGIN {
+  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Word_Counter';
+  EVAL("use $module")
+};
+
+pass 'Load module';
+
 
 ok Word_Counter.can('count_words'), 'Class Word_Counter has count_words method';
 

data/tracks/php/config.json

@@ -193,6 +193,11 @@
     "slug": "allergies",
     "difficulty": 3,
     "topics": []
+  },
+  {
+    "slug": "markdown",
+    "difficulty": 3,
+    "topics": ["refactoring"]
   }
   ]
 }