trackler 2.0.0.9 → 2.0.0.10

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

@@ -0,0 +1,14 @@
+open Core.Std
+open OUnit2
+open Hello_world
+
+let ae exp got _test_ctxt = assert_equal ~printer:String.to_string exp got
+
+let tests = [
+  (* GENERATED-CODE
+     "$description" >:: ae "$expected" (greet $name);
+     END GENERATED-CODE *)
+]
+
+let () =
+  run_test_tt_main ("Hello World tests" >::: tests)

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

@@ -6,7 +6,7 @@ let ae exp got _test_ctxt = assert_equal exp got
 
 let tests = [
 (* GENERATED-CODE
-  "$name" >::
+  "$description" >::
     ae $expected (leap_year $input);
 END GENERATED-CODE *)
 ]

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

@@ -6,7 +6,7 @@ let ae exp got _test_ctxt = assert_equal ~printer:Fn.id exp got
 
 let tests = [
 (* GENERATED-CODE
-   "$name" >::
+   "$description" >::
       ae "$expected" (raindrop $number);
    END GENERATED-CODE *)
 ]

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

@@ -10,8 +10,9 @@ let ae exp got _test_ctxt =
 
 let tests = [
 (* GENERATED-CODE
-   "$name" >::
-      ae $expected (word_count "$input");
+   "$description" >::
+      ae $expected
+         (word_count "$input");
    END GENERATED-CODE *)
 ]
 

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

@@ -3,10 +3,13 @@ open OUnit2
 open Codegen
 open Model
 
-let leap_template = "\"$name\" >:: ae $expected (leap_year $input);"
+let leap_template = "\"$description\" >:: 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 edit = Fn.id
+let assert_gen exp cases = assert_equal exp
+    ~printer:(fun xs -> "[" ^ (String.concat ~sep:";" xs) ^ "]")
+    (Result.ok_or_failwith @@ generate_code fixup edit leap_template cases)
 let ae exp cases _test_ctxt = assert_gen exp cases
 
 let codegen_tests = [
@@ -14,7 +17,7 @@ let codegen_tests = [
     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
+      let c = {description = "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/parser_test.ml

@@ -26,27 +26,27 @@ let parser_tests = [
        (parse_json_text "{\"cases\" : [\"key\"]}");
 
   "parses a single element with a description and expected string output" >::
-    ae (Ok [{name = "d1"; parameters = []; expected = String "value"}])
+    ae (Ok [{description = "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.}])
+    ae (Ok [{description = "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}])
+    ae (Ok [{description = "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}])
+    ae (Ok [{description = "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}])
+    ae (Ok [{description = "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}])
+    ae (Ok [{description = "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" >::
@@ -62,12 +62,13 @@ let parser_tests = [
       (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)]}])
+      assert_equal (Ok [{description = "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)
+      match parse_json_text @@ In_channel.read_all "test/leap.json" with
+      | Ok p -> assert_equal 7 (List.length p)
+      | _ -> failwith "failed to parse leap.json"
   );
 ]

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

@@ -6,17 +6,37 @@ open Special_cases
 
 let ae exp got _ctxt = assert_equal ~printer:Fn.id exp got
 
+let tuples_printer kvs =
+  String.concat ~sep:";" @@ List.map ~f:(fun (k,v) -> "(" ^ k ^ "," ^ v ^ ")") kvs
+
+let stringify = function
+  | Bool true -> "stringified"
+  | _ -> failwith "Bad type for stringify"
+
 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))
+      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))
+      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))
-  )
+      assert_equal "(Some 0)" @@ optional_int ~none:88 (Int 0)
+    );
+
+  "default_value does not provide a default for a list that has the given key already" >:: (fun _ctx ->
+      let ps = [("key", "value")] in
+      assert_equal ps @@ default_value ~key:"key" ~value:"value2" ps
+    );
+
+  "default_value does provides a default for a list that does not have the given key" >:: (fun _ctx ->
+      assert_equal [("key", "value")] @@ default_value ~key:"key" ~value:"value" []
+    );
+
+  "optional_string replace value with Some(value)" >:: (fun _ctx ->
+      assert_equal ~printer:tuples_printer [("key", "(Some \"value\")"); ("key2", "value2")]
+        @@ optional_string ~f:(fun x -> x = "key") [("key", "value"); ("key2", "value2")]
+    );
 ]

data/tracks/perl5/.travis.yml

@@ -1,5 +1,15 @@
-language: bash
-
-script:
+sudo: false
+language: perl
+perl:
+  - '5.22'
+  - '5.20'
+  - '5.18'
+  - '5.16'
+  - '5.14'
+  - '5.12'
+  - '5.10'
+before_script:
   - bin/fetch-configlet
+script:
   - bin/configlet .
+  - EXERCISM=1 prove -vr exercises/

data/tracks/perl5/README.md

@@ -4,7 +4,12 @@ Exercism exercises in Perl 5
 
 ## Dependencies
 
-The tests depend on the JSON.pm module.
+The tests depend on the following modules:
+
+    JSON
+    DateTime
+    Test::Exception
+    List::MoreUtils
 
 ## Testing the Tests
 
@@ -20,7 +25,7 @@ So the sample solutions are all called Example.pm.
 
 Run the full tests with
 
-    perl testall.pl
+    EXERCISM=1 prove -r
 
 ### Testing a Single Exercise
 

data/tracks/perl5/cpanfile

@@ -0,0 +1,4 @@
+requires 'JSON', 0;
+requires 'DateTime', 0;
+requires 'Test::Exception', 0;
+requires 'List::MoreUtils', 0;

data/tracks/perl5/{accumulate → exercises/accumulate}/accumulate.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Accumulate';
 
@@ -54,7 +59,7 @@ my @cases = (
 
 plan tests => 3 + @cases;
 
-ok -e "$module.pm", "missing $module.pm"
+ok -e "${dir}${module}.pm", "missing $module.pm"
     or BAIL_OUT("You need to create a class called $module.pm with a constructor called new.");
 
 eval "use $module";

data/tracks/perl5/{allergies → exercises/allergies}/allergies.t

@@ -1,12 +1,17 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
 use JSON qw(from_json);
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Allergies';
 
-my $cases_file = 'cases.json';
+my $cases_file = "${dir}cases.json";
 my $cases;
 
 if (open my $fh, '<', $cases_file) {
@@ -18,7 +23,7 @@ if (open my $fh, '<', $cases_file) {
 
 plan tests => 4 + @$cases;
 
-ok -e "$module.pm", "Missing $module.pm" or BAIL_OUT "Missing $module.pm";
+ok -e "${dir}${module}.pm" or BAIL_OUT "missing $module.pm";
 
 eval "use $module";
 ok !$@, "Cannot load $module.pm"

data/tracks/perl5/{anagram → exercises/anagram}/anagram.t

@@ -1,12 +1,17 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
 use JSON qw(from_json);
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Anagram';
 
-my $cases_file = 'cases.json';
+my $cases_file = "${dir}cases.json";
 my $cases;
 if (open my $fh, '<', $cases_file) {
     local $/ = undef;
@@ -18,7 +23,7 @@ if (open my $fh, '<', $cases_file) {
 plan tests => 3 + @$cases;
 #diag explain $cases;
 
-ok -e "$module.pm", "missing $module.pm"
+ok -e "${dir}${module}.pm", "missing $module.pm"
     or BAIL_OUT("You need to create a class called $module.pm with an function called match() that gets the original word as the first parameter and a reference to a list of word to check. It should return a referene to a list of words.");
 
 eval "use $module";

data/tracks/perl5/{atbash-cipher → exercises/atbash-cipher}/cipher.t

@@ -1,13 +1,18 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Cipher';
 
 use JSON qw(from_json);
 
-my $cases_file = 'cases.json';
+my $cases_file = "${dir}cases.json";
 my $cases;
 
 if (open my $fh, '<', $cases_file) {
@@ -19,7 +24,7 @@ if (open my $fh, '<', $cases_file) {
 
 plan tests => 4 + @$cases;
 
-ok -e "$module.pm", "Missing $module.pm",
+ok -e "${dir}${module}.pm", "Missing $module.pm",
     or BAIL_OUT "You need to create a class called $module.pm";
 
 eval "use $module";

data/tracks/perl5/{beer-song → exercises/beer-song}/beer.t

@@ -1,13 +1,18 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Beer';
 
 use JSON qw(from_json);
 
-my $cases_file = 'cases.json';
+my $cases_file = "${dir}cases.json";
 my $cases;
 if (open my $fh, '<', $cases_file) {
     local $/ = undef;
@@ -19,7 +24,7 @@ if (open my $fh, '<', $cases_file) {
 #diag explain $cases;
 plan tests => 4 + @$cases;
 
-ok -e "$module.pm", "missing $module.pm"
+ok -e "${dir}${module}.pm", "missing $module.pm"
     or BAIL_OUT("You need to create a class called $module.pm");
 
 eval "use $module";

data/tracks/perl5/{binary → exercises/binary}/binary.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my @cases = (
     {
@@ -42,7 +47,7 @@ my $module = $ENV{EXERCISM} ? 'Example' : 'Binary';
 
 plan tests => 4 + @cases;
 
-ok -e "$module.pm", "Missing $module.pm",
+ok -e "${dir}${module}.pm", "Missing $module.pm",
         or BAIL_OUT "You need to create a file called $module.pm";
 
 eval "use $module";

data/tracks/perl5/{binary-search → exercises/binary-search}/binary-search.t

@@ -1,11 +1,14 @@
-#!/usr/bin/perl 
-
+#!/usr/bin/env perl
 use strict; 
 use warnings; 
 
 use Data::Dumper; 
 use Test::Exception; 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'BinarySearch';
 
@@ -90,7 +93,7 @@ foreach my $test_type ( keys %test_cases ) {
 
 plan tests => 3 + $num_test_cases;
 
-ok -e "$module.pm", "missing $module.pm"
+ok -e "${dir}${module}.pm", "missing $module.pm"
    or BAIL_OUT("You need to create a class called $module.pm with 1 functions: binary_search");
 
 eval "use $module";

data/tracks/perl5/{binary-search-tree → exercises/binary-search-tree}/binary_search_tree.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use warnings;
 use strict;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'BinarySearchTree';
 

data/tracks/perl5/{bob → exercises/bob}/bob.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 use open ':std', ':encoding(utf8)';
 use utf8;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Bob';
 
@@ -41,7 +46,7 @@ my @cases = map {
     ["   \nI just remembered...",                      'Whatever.',          'Silence, then more'],
 );
 
-ok -e "$module.pm", "missing $module.pm"
+ok -e "${dir}${module}.pm", "missing $module.pm"
     or BAIL_OUT("You need to create a module called $module.pm with a function called hey() that gets one parameter: The text Bob hears.");
 
 use_ok($module)

data/tracks/perl5/{clock → exercises/clock}/clock.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my @cases = (
     {
@@ -62,7 +67,7 @@ my $module = $ENV{EXERCISM} ? 'Example' : 'Clock';
 
 plan tests => 6 + @cases;
 
-ok -e "$module.pm", "Missing $module.pm"
+ok -e "${dir}${module}.pm", "Missing $module.pm"
             or BAIL_OUT "You need to create file: $module.pm";
 
 eval "use $module";

data/tracks/perl5/{crypto-square → exercises/crypto-square}/crypto.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my @cases = (
     {
@@ -75,7 +80,7 @@ my $module = $ENV{EXERCISM} ? 'Example' : 'Crypto';
 my @subs = qw(new normalize_ciphertext normalize_plaintext plaintext_segments ciphertext size);
 plan tests => 2 + @subs + @cases;
 
-ok -e "$module.pm", "Missing $module.pm"
+ok -e "${dir}${module}.pm", "Missing $module.pm"
             or BAIL_OUT "You need to create file: $module.pm";
 
 eval "use $module";

data/tracks/perl5/{custom-set → exercises/custom-set}/custom-set.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More tests => 27;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'CustomSet';
 

data/tracks/perl5/{difference-of-squares → exercises/difference-of-squares}/difference_of_squares.t

@@ -1,13 +1,18 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Squares';
 
 plan tests => 15;
 
-ok -e "$module.pm", "Missing $module.pm"
+ok -e "${dir}${module}.pm", "Missing $module.pm"
         or BAIL_OUT "You need to create file: $module.pm";
 
 eval "use $module";

data/tracks/perl5/{etl → exercises/etl}/etl.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my @cases = (
     {
@@ -40,7 +45,7 @@ my @cases = (
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'ETL';
 
-ok -e "$module.pm", "Find $module.pm",
+ok -e "${dir}${module}.pm", "Find $module.pm",
     or BAIL_OUT "You need to create a class called $module.pm";
 
 use_ok $module

data/tracks/perl5/{food-chain → exercises/food-chain}/food_chain.t

@@ -1,11 +1,16 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More tests => 16;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'FoodChainSong';
 
-ok -e "$module.pm", "Missing $module.pm"
+ok -e "${dir}${module}.pm", "Missing $module.pm"
         or BAIL_OUT "You need to create file: $module.pm";
 
 eval "use $module";

data/tracks/perl5/{gigasecond → exercises/gigasecond}/gigasecond.t

@@ -1,8 +1,13 @@
+#!/usr/bin/env perl
 use warnings;
 use strict;
 
 use DateTime;
 use Test::More tests => 4;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Gigasecond';
 

data/tracks/perl5/{grade-school → exercises/grade-school}/grade_school.t

@@ -1,7 +1,12 @@
+#!/usr/bin/env perl
 use warnings;
 use strict;
 
 use Test::More tests => 9;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'GradeSchool';