trackler 2.2.1.105 → 2.2.1.106

data/tracks/perl5/exercises/say/say.t

@@ -77,7 +77,7 @@ my @cases = (
     }
 );
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Say';
+my $module = 'Say';
 
 plan tests => 3 + @cases;
 

data/tracks/perl5/exercises/scrabble-score/{Example.pm → .meta/solutions/Word.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Word;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/scrabble-score/.meta/solutions/scrabble.t

@@ -0,0 +1 @@
+../../scrabble.t

data/tracks/perl5/exercises/scrabble-score/scrabble.t

@@ -29,7 +29,7 @@ my @extended_cases = map { _make_test_case(@$_) } (
     [ "quirky", 132,    [ double => 1, triple => 1 ],   "double-triple 'quirky'" ],
 );
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Word';
+my $module = 'Word';
 
 ok -e "${dir}${module}.pm", "Find $module.pm"
     or die "You need to create file: $module.pm";

data/tracks/perl5/exercises/secret-handshake/{Example.pm → .meta/solutions/SecretHandshake.pm}

@@ -1,4 +1,4 @@
-package Example;
+package SecretHandshake;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/secret-handshake/.meta/solutions/handshake.t

@@ -0,0 +1 @@
+../../handshake.t

data/tracks/perl5/exercises/secret-handshake/handshake.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'SecretHandshake';
+my $module = 'SecretHandshake';
 
 plan tests => 12;
 

data/tracks/perl5/exercises/series/{Example.pm → .meta/solutions/Series.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Series;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/series/.meta/solutions/series.t

@@ -0,0 +1 @@
+../../series.t

data/tracks/perl5/exercises/series/series.t

@@ -9,7 +9,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Series';
+my $module = 'Series';
 
 use_ok($module) or BAIL_OUT("You need to create a module called $module.pm");
 can_ok($module, "new") or BAIL_OUT("You need to implement the new(input)-function");

data/tracks/perl5/exercises/sieve/{Example.pm → .meta/solutions/Sieve.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Sieve;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/sieve/.meta/solutions/sieve.t

@@ -0,0 +1 @@
+../../sieve.t

data/tracks/perl5/exercises/sieve/sieve.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Sieve';
+my $module = 'Sieve';
 
 plan tests => 6;
 

data/tracks/perl5/exercises/simple-cipher/{Example.pm → .meta/solutions/Cipher.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Cipher;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/simple-cipher/.meta/solutions/cipher.t

@@ -0,0 +1 @@
+../../cipher.t

data/tracks/perl5/exercises/simple-cipher/cipher.t

@@ -88,7 +88,7 @@ my @cases = (
 
 plan tests => 5 + @cases;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Cipher';
+my $module = 'Cipher';
 
 ok -e "${dir}${module}.pm", "Missing $module.pm"
             or BAIL_OUT "You need to create file: $module.pm";

data/tracks/perl5/exercises/simple-linked-list/{Example.pm → .meta/solutions/LinkedList.pm}

@@ -1,4 +1,4 @@
-package Example;
+package LinkedList;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/simple-linked-list/.meta/solutions/simple_linked_list.t

@@ -0,0 +1 @@
+../../simple_linked_list.t

data/tracks/perl5/exercises/simple-linked-list/simple_linked_list.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'LinkedList';
+my $module = 'LinkedList';
 
 use_ok($module) or BAIL_OUT("You need to create a module called $module.pm");
 

data/tracks/perl5/exercises/space-age/{Example.pm → .meta/solutions/SpaceAge.pm}

@@ -1,4 +1,4 @@
-package Example;
+package SpaceAge;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/space-age/.meta/solutions/space.t

@@ -0,0 +1 @@
+../../space.t

data/tracks/perl5/exercises/space-age/space.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'SpaceAge';
+my $module = 'SpaceAge';
 
 plan tests => 20;
 

data/tracks/perl5/exercises/strain/{Example.pm → .meta/solutions/Strain.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Strain;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/strain/.meta/solutions/strain.t

@@ -0,0 +1 @@
+../../strain.t

data/tracks/perl5/exercises/strain/strain.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Strain';
+my $module = 'Strain';
 
 plan tests => 12;
 

data/tracks/perl5/exercises/sublist/{Example.pm → .meta/solutions/Sublist.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Sublist;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/sublist/.meta/solutions/sublist.t

@@ -0,0 +1 @@
+../../sublist.t

data/tracks/perl5/exercises/sublist/sublist.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Sublist';
+my $module = 'Sublist';
 my $name = "check_lists";
 my $sub = join('::', $module, $name);
 

data/tracks/perl5/exercises/sum-of-multiples/{Example.pm → .meta/solutions/SumOfMultiples.pm}

@@ -1,4 +1,4 @@
-package Example;
+package SumOfMultiples;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/sum-of-multiples/.meta/solutions/sum_of_multiples.t

@@ -0,0 +1 @@
+../../sum_of_multiples.t

data/tracks/perl5/exercises/sum-of-multiples/sum_of_multiples.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'SumOfMultiples';
+my $module = 'SumOfMultiples';
 
 my @cases = (
     {

data/tracks/perl5/exercises/triangle/{Example.pm → .meta/solutions/Triangle.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Triangle;
 use strict;
 use warnings;
 

data/tracks/perl5/exercises/triangle/.meta/solutions/triangle.t

@@ -0,0 +1 @@
+../../triangle.t

data/tracks/perl5/exercises/triangle/triangle.t

@@ -3,21 +3,18 @@ use strict;
 use warnings;
 
 use Test::More;
-use JSON qw(from_json);
+use JSON::PP qw(decode_json);
 use FindBin;
 my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Triangle';
+my $module = 'Triangle';
 
-my $cases_file = "${dir}cases.json";
 my $cases;
-if (open my $fh, '<', $cases_file) {
+{
     local $/ = undef;
-    $cases = from_json scalar <$fh>;
-} else {
-    die "Could not open '$cases_file' $!";
+    $cases = decode_json scalar <DATA>;
 }
 
 
@@ -48,4 +45,86 @@ foreach my $c (@$cases) {
     }
 }
 
-
+__DATA__
+[
+  {
+    "input"    : [2, 2, 2],
+    "expected" : "equilateral",
+    "name"     : "equilateral_triangles_have_equal_sides"
+  },
+  {
+    "input"    : [10, 10, 10],
+    "expected" : "equilateral",
+    "name"     : "larger_equilateral_triangles_also_have_equal_sides"
+  },
+  {
+    "input"    : [3, 4, 4],
+    "expected" : "isosceles",
+    "name"     : "isosceles_triangles_have_last_two_sides_equal"
+  },
+  {
+    "input"    : [4, 3, 4],
+    "expected" : "isosceles",
+    "name"     : "isosceles_triangles_have_first_and_last_sides_equal"
+  },
+  {
+    "input"    : [4, 4, 3],
+    "expected" : "isosceles",
+    "name"     : "isosceles_triangles_have_two_first_sides_equal"
+  },
+  {
+    "input"    : [10, 10, 2],
+    "expected" : "isosceles",
+    "name"     : "isosceles_triangles_have_in_fact_exactly_two_sides_equal"
+  },
+  {
+    "input"    : [3, 4, 5],
+    "expected" : "scalene",
+    "name"     : "scalene_triangles_have_no_equal_sides"
+  },
+  {
+    "input"    : [10, 11, 12],
+    "expected" : "scalene",
+    "name"     : "scalene_triangles_have_no_equal_sides_at_a_larger_scale_too"
+  },
+  {
+    "input"    : [5, 4, 2],
+    "expected" : "scalene",
+    "name"     : "scalene_triangles_have_no_equal_sides_at_a_larger_scale_too"
+  },
+  {
+    "input"    : [0.4, 0.6, 0.3],
+    "expected" : "scalene",
+    "name"     : "very_small_triangles_are_legal"
+  },
+  {
+    "input"    : [0, 0, 0],
+    "expected" : "",
+    "exception" : "TriangleError",
+    "name"     : "triangles_with_no_size_are_illegal"
+  },
+  {
+    "input"    : [3, 4, -5],
+    "expected" : "",
+    "exception" : "TriangleError",
+    "name"     : "triangles_with_negative_sides_are_illegal"
+  },
+  {
+    "input"    : [1, 1, 3],
+    "expected" : "",
+    "exception" : "TriangleError",
+    "name"     : "triangles_violating_triangle_inequality_are_illegal"
+  },
+  {
+    "input"    : [2, 4, 2],
+    "expected" : "",
+    "exception" : "TriangleError",
+    "name"     : "triangles_violating_triangle_inequality_are_illegal_2"
+  },
+  {
+    "input"    : [7, 3, 2],
+    "expected" : "",
+    "exception" : "TriangleError",
+    "name"     : "triangles_violating_triangle_inequality_are_illegal_3"
+  }
+]

data/tracks/perl5/exercises/trinary/{Example.pm → .meta/solutions/Trinary.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Trinary;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/trinary/.meta/solutions/trinary.t

@@ -0,0 +1 @@
+../../trinary.t

data/tracks/perl5/exercises/trinary/trinary.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Trinary';
+my $module = 'Trinary';
 
 my @cases = (
     {

data/tracks/perl5/exercises/twelve-days/{Example.pm → .meta/solutions/TwelveDays.pm}

@@ -1,4 +1,4 @@
-package Example;
+package TwelveDays;
 
 use strict;
 use warnings;

data/tracks/perl5/exercises/twelve-days/.meta/solutions/song.t

@@ -0,0 +1 @@
+../../song.t

data/tracks/perl5/exercises/twelve-days/song.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'TwelveDays';
+my $module = 'TwelveDays';
 
 ok -e "${dir}${module}.pm", "Missing $module.pm"
         or BAIL_OUT "You need to create file $module.pm";

data/tracks/perl5/exercises/word-count/{Example.pm → .meta/solutions/Phrase.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Phrase;
 use strict;
 use warnings;
 

data/tracks/perl5/exercises/word-count/.meta/solutions/word_count.t

@@ -0,0 +1 @@
+../../word_count.t

data/tracks/perl5/exercises/word-count/word_count.t

@@ -10,7 +10,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Phrase';
+my $module = 'Phrase';
 
 my @cases = (
     # input                                       expected output                  title

data/tracks/perl5/exercises/wordy/{Example.pm → .meta/solutions/Wordy.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Wordy;
 use strict;
 use warnings;
 

data/tracks/perl5/exercises/wordy/.meta/solutions/wordy.t

@@ -0,0 +1 @@
+../../wordy.t

data/tracks/perl5/exercises/wordy/wordy.t

@@ -3,21 +3,18 @@ use strict;
 use warnings;
 
 use Test::More;
-use JSON qw(from_json);
+use JSON::PP qw(decode_json);
 use FindBin;
 my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Wordy';
+my $module = 'Wordy';
 
-my $cases_file = "${dir}cases.json";
 my $cases;
-if (open my $fh, '<', $cases_file) {
+{
     local $/ = undef;
-    $cases = from_json scalar <$fh>;
-} else {
-    die "Could not open '$cases_file' $!";
+    $cases = decode_json scalar <DATA>;
 }
 
 plan tests => 3 + @$cases;
@@ -47,5 +44,86 @@ foreach my $c (@$cases) {
     }
 }
 
-
-
+__DATA__
+[
+  {
+    "input"    : "What is 1 plus 1?",
+    "expected" : 2,
+    "name"     : "add_1"
+  },
+  {
+    "input"    : "What is 53 plus 2?",
+    "expected" : 55,
+    "name"     : "add_2"
+  },
+  {
+    "input"    : "What is -1 plus -10?",
+    "expected" : -11,
+    "name"     : "add_negative_numbers"
+  },
+  {
+    "input"    : "What is 123 plus 45678?",
+    "expected" : 45801,
+    "name"     : "add_more_digits"
+  },
+  {
+    "input"    : "What is 4 minus -12?",
+    "expected" : 16,
+    "name"     : "subtract"
+  },
+  {
+    "input"    : "What is -3 multiplied by 25?",
+    "expected" : -75,
+    "name"     : "multiply"
+  },
+  {
+    "input"    : "What is 33 divided by -3?",
+    "expected" : -11,
+    "name"     : "divide"
+  },
+  {
+    "input"    : "What is 1 plus 1 plus 1?",
+    "expected" : 3,
+    "name"     : "add_twice"
+  },
+  {
+    "input"    : "What is 1 plus 5 minus -2?",
+    "expected" : 8,
+    "name"     : "add_then_subtract"
+  },
+  {
+    "input"    : "What is 20 minus 4 minus 13?",
+    "expected" : 3,
+    "name"     : "subtract_twice"
+  },
+  {
+    "input"    : "What is 17 minus 6 plus 3?",
+    "expected" : 14,
+    "name"     : "subtract_then_add"
+  },
+  {
+    "input"    : "What is 2 multiplied by -2 multiplied by 3?",
+    "expected" : -12,
+    "name"     : "multiply_twice"
+  },
+  {
+    "input"    : "What is -3 plus 7 multiplied by -2?",
+    "expected" : -8,
+    "name"     : "add_then_multiply"
+  },
+  {
+    "input"    : "What is -12 divided by 2 divided by -3?",
+    "expected" : 2,
+    "name"     : "divide_twice"
+  },
+  {
+    "input"     : "What is 53 cubed?",
+    "exception" : "ArgumentError",
+    "name"      : "too_advanced"
+  },
+  {
+    "input"    : "Who is the president of the United States?",
+    "exception" : "ArgumentError",
+    "name"     : "irrelevant"
+  }
+]

data/tracks/perl5/lib/Exercism/Generator.pm

@@ -0,0 +1,48 @@
+package Exercism::Generator;
+use Template::Mustache 'render';
+use Path::Tiny;
+
+my $base_dir = path(__FILE__)->realpath->parent->parent->parent;
+
+sub new {
+  my ($class, $attributes) = @_;
+  my $self = {
+    data     => $attributes->{data},
+    exercise => $attributes->{exercise},
+  };
+  if ($self->{exercise}) {
+    my $cdata_file = $base_dir->child('problem-specifications/exercises/'.$self->{exercise}.'/canonical-data.json');
+    if ($cdata_file->is_file) {
+      $self->{data}{cdata}{json} = $cdata_file->slurp;
+      $self->{data}{cdata}{json} =~ s/^\s+|\s+$//g;
+    }
+  }
+  return bless $self, $class;
+}
+
+sub cdata {
+  my ($self) = @_;
+  return $self->{data}{cdata}{json} || '';
+}
+
+sub test {
+  my ($self) = @_;
+  return $self->_render({template => 'test'});
+}
+
+sub stub {
+  my ($self) = @_;
+  return $self->_render({template => 'module', file => 'stub'});
+}
+
+sub example {
+  my ($self) = @_;
+  return $self->_render({template => 'module', file => 'example'});
+}
+
+sub _render {
+  my ($self, $params) = @_;
+  my $data = $self->{data};
+  if ($params->{file}) { $data->{module_file} = $data->{$params->{file}} }
+  return Template::Mustache->render($base_dir->child('templates/'.$params->{template}.'.mustache')->slurp, $data);
+}

data/tracks/perl5/t/generated-tests.t

@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use Test::More;
+use Path::Tiny;
+use YAML 'LoadFile';
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use Exercism::Generator;
+
+my $base_dir = path(__FILE__)->realpath->parent->parent;
+
+if (!$base_dir->child('problem-specifications')->is_dir) {
+  BAIL_OUT 'problem-specifications directory required';
+}
+
+foreach (sort {$a cmp $b} $base_dir->child('exercises')->children) {
+  if ($_->child('.meta/exercise-data.yaml')->is_file) {
+    TODO: {
+      local $TODO = '#';
+      is $_->child($_->basename.'.t')->slurp,
+        Exercism::Generator->new({data => LoadFile($_->child('.meta/exercise-data.yaml')), exercise => $_->basename})->test,
+        $_->basename.': test suite matches generated';
+    }
+  }
+}
+
+done_testing;

data/tracks/perl5/templates/test.mustache

@@ -1,18 +1,16 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use FindBin;{{#cdata}}
-my $dir;{{/cdata}}
-use lib{{#cdata}} $dir ={{/cdata}} $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}{{#cdata}}
+use FindBin;
+use lib $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}{{#cdata}}
 use JSON::PP;{{/cdata}}{{#modules}}
 use {{&use}};{{/modules}}
 
 my $exercise{{#exercise}} = '{{&exercise}}'{{/exercise}};{{#exercise_comment}} {{&exercise_comment}}{{/exercise_comment}}
 my $test_version{{#version}} = {{&version}}{{/version}};{{#version_comment}} {{&version_comment}}{{/version_comment}}
-my $module = $ENV{EXERCISM} ? 'Example' : $exercise;{{#module_comment}} {{&module_comment}}{{/module_comment}}
 use Test::More{{#plan}} tests => {{&plan}}{{/plan}};{{#plan_comment}} {{&plan_comment}}{{/plan_comment}}
 
-use_ok $module or BAIL_OUT;{{#use_test_comment}} {{&use_test_comment}}{{/use_test_comment}}
+use_ok $exercise or BAIL_OUT;{{#use_test_comment}} {{&use_test_comment}}{{/use_test_comment}}
 {{#version_test_comment}}
 {{&version_test_comment}}{{/version_test_comment}}
 my $exercise_version = $exercise->VERSION // 0;
@@ -32,18 +30,7 @@ foreach ( qw({{&subs}}) ) {
 {{/subs}}{{#cdata}}
 my $C_DATA = do { local $/; decode_json(<DATA>); };{{/cdata}}
 {{&tests}}
-{{#cdata}}{{#cdata_test_comment}}
-{{&cdata_test_comment}}{{/cdata_test_comment}}
-SKIP: {
-  skip '', 1 unless $ENV{EXERCISM};
-  TODO: {
-    local $TODO = 'update canonical-data';
-    is_deeply eval q{
-      use Path::Tiny;
-      decode_json path("$dir/../../problem-specifications/exercises/".path($dir)->basename.'/canonical-data.json')->realpath->slurp;
-    }, $C_DATA, 'canonical-data';
-  }
-}
+{{#cdata}}
 
 __DATA__
 {{&json}}

data/tracks/perl6/.proverc

@@ -0,0 +1 @@
+--exec perl6