trackler 2.2.1.105 → 2.2.1.106

data/tracks/perl5/exercises/prime-factors/prime.t

@@ -2,22 +2,19 @@
 use strict;
 use warnings;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Prime';
+my $module = 'Prime';
 
 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 $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;
@@ -41,3 +38,62 @@ foreach my $c (@$cases) {
 
 
 done_testing();
+
+__DATA__
+[
+  {
+     "input" : 1,
+     "expected" : [],
+     "name" : "test_1"
+  },
+  {
+     "input" : 2,
+     "expected" : [2],
+     "name" : "test_2"
+  },
+  {
+     "input" : 3,
+     "expected" : [3],
+     "name" : "test_3"
+  },
+  {
+    "input" : 4,
+    "expected" : [2, 2],
+    "name" : "test_4"
+  },
+  {
+    "input" : 6,
+    "expected" : [2, 3],
+    "name" : "test_6"
+  },
+  {
+    "input" : 8,
+    "expected" : [2, 2, 2],
+    "name" : "test_8"
+  },
+  {
+    "input" : 9,
+    "expected" : [3, 3],
+    "name" : "test_9"
+  },
+  {
+    "input" : 27,
+    "expected" : [3, 3, 3],
+    "name" : "test_27"
+  },
+  {
+    "input" : 625,
+    "expected" : [5, 5, 5, 5],
+    "name" : "test_625"
+  },
+  {
+    "input" : 901255,
+    "expected" : [5, 17, 23, 461],
+    "name" : "test_901255"
+  },
+  {
+    "input" : 93819012551,
+    "expected" : [11, 9539, 894119],
+    "name" : "test_93819012551"
+  }
+]

data/tracks/perl5/exercises/proverb/{Example.pm → .meta/solutions/Proverb.pm}

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

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

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

data/tracks/perl5/exercises/proverb/proverb.t

@@ -3,22 +3,19 @@ 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' : 'Proverb';
+my $module = 'Proverb';
 my $sub = 'proverb';
 
-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;
@@ -39,3 +36,57 @@ foreach my $c (@$cases) {
     my $expected = join "" => @{$c->{expected}};
     is $sub->($c->{param}, $c->{qualifier} || ""), $expected, $c->{name};
 }
+
+__DATA__
+[
+    {
+        "param"     : ["nail", "shoe"],
+        "expected"  : ["For want of a nail the shoe was lost.\n",
+                      "And all for the want of a nail."],
+        "name"      : "one consequence"
+    },
+    {
+        "param"     : ["nail", "shoe", "horse"],
+        "expected"  : ["For want of a nail the shoe was lost.\n",
+                       "For want of a shoe the horse was lost.\n",
+                       "And all for the want of a nail."],
+        "name"      : "two consequences"
+    },
+    {
+        "param"     : ["nail", "shoe", "horse", "rider"],
+        "expected"  : ["For want of a nail the shoe was lost.\n",
+                       "For want of a shoe the horse was lost.\n",
+                       "For want of a horse the rider was lost.\n",
+                       "And all for the want of a nail."],
+        "name"      : "three consequences"
+    },
+    {
+        "param"     : ["key", "value"],
+        "expected"  : ["For want of a key the value was lost.\n",
+                      "And all for the want of a key."],
+        "name"      : "one consequence, new items"
+    },
+    {
+        "param"     : ["nail", "shoe", "horse", "rider", "message", "battle", "kingdom"],
+        "expected"  : ["For want of a nail the shoe was lost.\n",
+                       "For want of a shoe the horse was lost.\n",
+                       "For want of a horse the rider was lost.\n",
+                       "For want of a rider the message was lost.\n",
+                       "For want of a message the battle was lost.\n",
+                       "For want of a battle the kingdom was lost.\n",
+                       "And all for the want of a nail."],
+        "name"      : "whole proverb"
+    },
+    {
+        "param"     : ["nail", "shoe", "horse", "rider", "message", "battle", "kingdom"],
+        "qualifier" : "horseshoe",
+        "expected"  : ["For want of a nail the shoe was lost.\n",
+                       "For want of a shoe the horse was lost.\n",
+                       "For want of a horse the rider was lost.\n",
+                       "For want of a rider the message was lost.\n",
+                       "For want of a message the battle was lost.\n",
+                       "For want of a battle the kingdom was lost.\n",
+                       "And all for the want of a horseshoe nail."],
+        "name"      : "whole proverb with qualifier"
+    }
+]

data/tracks/perl5/exercises/pythagorean-triplet/{Example.pm → .meta/solutions/Triplet.pm}

@@ -1,4 +1,4 @@
-package Example;
+package Triplet;
 
 use strict;
 use warnings;
@@ -55,7 +55,7 @@ sub products {
         my @pytha_triplets;
         foreach my $j($i..$max) {
             foreach my $k($j..$max) {
-                my $temp_triplet = Example->new($i, $j, $k);
+                my $temp_triplet = __PACKAGE__->new($i, $j, $k);
                 push @pytha_triplets, $temp_triplet if $temp_triplet->is_pythagorean;
             }
         }

data/tracks/perl5/exercises/pythagorean-triplet/.meta/solutions/triplet.t

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

data/tracks/perl5/exercises/pythagorean-triplet/triplet.t

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

data/tracks/perl5/exercises/queen-attack/{Example.pm → .meta/solutions/Queens.pm}

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

data/tracks/perl5/exercises/queen-attack/.meta/solutions/queen.t

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

data/tracks/perl5/exercises/queen-attack/queen.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' : 'Queens';
+my $module = 'Queens';
 
-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>;
 }
 #diag explain $cases;
 
@@ -77,5 +74,186 @@ foreach my $c (@$cases) {
     }
 }
 
+__DATA__
+[
+  {
+    "boards" : [
+      {
+        "params" : {},
+        "white"  : [0, 3],
+        "black"  : [7, 3]
+      }
+    ],
+    "name" : "default_positions"
+  },
+  {
+    "boards" : [
+      {
+        "params" : { "white" : [3, 7], "black" : [6, 1] },
+        "white"  : [3, 7],
+        "black"  : [6, 1]
+      }
+    ],
+    "name" : "specific_placement"
+  },
+  {
+    "boards" : [
+      {
+        "params" : { "white": [3, 7], "black": [6, 1] },
+        "white"  : [3, 7],
+        "black"  : [6, 1]
+      },
+      {
+        "params" : { "white": [5, 4], "black": [7, 7] },
+        "white"  : [5, 4],
+        "black"  : [7, 7]
+      }
+    ],
+    "name" : "multiple_boards_simultaneously"
+  },
+  {
+    "boards" : [
+      {
+        "params"    : { "white": [2, 4], "black": [2, 4] },
+        "exception" : "ArgumentError"
+      }
+    ],
+    "name" : "cannot_occupy_same_space"
+  },
+  {
+    "boards" : [
+      {
+        "params"    : { "white": [2, -4], "black": [1, 3] },
+        "exception" : "ArgumentError"
+      }
+    ],
+    "name" : "cannot_have_negative_coordinate"
+  },
+  {
+    "boards" : [
+      {
+        "params"    : { "white": [2, 4], "black": [1, 8] },
+        "exception" : "ArgumentError"
+      }
+    ],
+    "name" : "cannot_be_outside_the_board"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [2, 4], "black": [6, 6] },
+        "board"  : [
+             "O O O O O O O O",
+             "O O O O O O O O",
+             "O O O O W O O O",
+             "O O O O O O O O",
+             "O O O O O O O O",
+             "O O O O O O O O",
+             "O O O O O O B O",
+             "O O O O O O O O"
+        ]
+      }
+    ],
+    "name" : "string_representation"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [7, 1], "black": [0, 0]},
+        "board"  : [
+            "B O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O W O O O O O O"
+        ]
+      }
+    ],
+    "name" : "another_string_representation"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [4, 3], "black": [3, 4]},
+        "board"  : [
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O B O O O",
+            "O O O W O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O",
+            "O O O O O O O O"
+        ]
+      }
+    ],
+    "name" : "yet_another_string_representation"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [2, 3], "black": [4, 7]},
+        "attack" : false
+      }
+    ],
+    "name" : "cannot_attack"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [2, 4], "black": [2, 7]},
+        "attack" : true
+      }
+    ],
+    "name" : "can_attack_on_same_row"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [5, 4], "black": [2, 4]},
+        "attack" : true
+      }
+    ],
+    "name" : "can_attack_on_same_column"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [1, 1], "black": [6, 6]},
+        "attack" : true
+      }
+    ],
+    "name" : "can_attack_on_diagonal"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [0, 6], "black": [1, 7]},
+        "attack" : true
+      }
+    ],
+    "name" : "can_attack_on_other_diagonal"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [4, 1], "black": [6, 3]},
+        "attack" : true
+      }
+    ],
+    "name" : "can_attack_on_yet_another_diagonal"
+  },
+  {
+    "boards" : [
+      {
+        "params" : {"white": [4, 2], "black": [5, 1]},
+        "attack" : true
+      }
+    ],
+    "name" : "can_attack_on_orthogonal_diagonal"
+  }
+]
 
-#done_testing();

data/tracks/perl5/exercises/raindrops/{Example.pm → .meta/solutions/Raindrops.pm}

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

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

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

data/tracks/perl5/exercises/raindrops/raindrops.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' : 'Raindrops';
+my $module = 'Raindrops';
 
-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;
@@ -39,3 +36,88 @@ foreach my $c (@$cases) {
 }
 
 done_testing();
+
+__DATA__
+[
+  {
+    "input"    : 1,
+    "expected" : 1,
+    "name"     : "test_1"
+  },
+  {
+    "input"    : 3,
+    "expected" : "Pling",
+    "name"     : "test_3"
+  },
+  {
+    "input"    : 5,
+    "expected" : "Plang",
+    "name"     : "test_5"
+  },
+  {
+    "input"    : 7,
+    "expected" : "Plong",
+    "name"     : "test_7"
+  },
+  {
+    "input"    : 6,
+    "expected" : "Pling",
+    "name"     : "test_6"
+  },
+  {
+    "input"    : 9,
+    "expected" : "Pling",
+    "name"     : "test_9"
+  },
+  {
+    "input"    : 10,
+    "expected" : "Plang",
+    "name"     : "test_10"
+  },
+  {
+    "input"    : 14,
+    "expected" : "Plong",
+    "name"     : "test_14"
+  },
+  {
+    "input"    : 15,
+    "expected" : "PlingPlang",
+    "name"     : "test_15"
+  },
+  {
+    "input"    : 21,
+    "expected" : "PlingPlong",
+    "name"     : "test_21"
+  },
+  {
+    "input"    : 25,
+    "expected" : "Plang",
+    "name"     : "test_25"
+  },
+  {
+    "input"    : 35,
+    "expected" : "PlangPlong",
+    "name"     : "test_35"
+  },
+  {
+    "input"    : 49,
+    "expected" : "Plong",
+    "name"     : "test_49"
+  },
+  {
+    "input"    : 52,
+    "expected" : 52,
+    "name"     : "test_52"
+  },
+  {
+    "input"    : 105,
+    "expected" : "PlingPlangPlong",
+    "name"     : "test_105"
+  },
+  {
+    "input"    : 12121,
+    "expected" : 12121,
+    "name"     : "test_12121"
+  }
+]
+

data/tracks/perl5/exercises/rna-transcription/{Example.pm → .meta/solutions/DNA.pm}

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

data/tracks/perl5/exercises/rna-transcription/.meta/solutions/rna.t

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

data/tracks/perl5/exercises/rna-transcription/rna.t

@@ -8,7 +8,7 @@ my $dir;
 BEGIN { $dir = $FindBin::Bin . '/' };
 use lib $dir;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'DNA';
+my $module = 'DNA';
 
 my @cases = (
    ['C', 'G',  'cytosine unchanged'],

data/tracks/perl5/exercises/robot-name/{Example.pm → .meta/solutions/RobotName.pm}

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

data/tracks/perl5/exercises/robot-name/.meta/solutions/robot_name.t

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

data/tracks/perl5/exercises/robot-name/robot_name.t

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

data/tracks/perl5/exercises/robot-simulator/{Example.pm → .meta/solutions/Robot.pm}

@@ -5,7 +5,7 @@ use warnings;
 use feature qw(switch);
 
 {
-    package Example;
+    package Robot;
 
     use constant        NORTH => 'north';
     use constant { WEST => 'west', EAST  => 'east' };

data/tracks/perl5/exercises/robot-simulator/.meta/solutions/robot_simulator.t

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

data/tracks/perl5/exercises/robot-simulator/robot_simulator.t

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

data/tracks/perl5/exercises/roman-numerals/{Example.pm → .meta/solutions/Decimal.pm}

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

data/tracks/perl5/exercises/roman-numerals/.meta/solutions/roman.t

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

data/tracks/perl5/exercises/roman-numerals/roman.t

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

data/tracks/perl5/exercises/saddle-points/{Example.pm → .meta/solutions/Matrix.pm}

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

data/tracks/perl5/exercises/saddle-points/.meta/solutions/saddle_points.t

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

data/tracks/perl5/exercises/saddle-points/saddle_points.t

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

data/tracks/perl5/exercises/say/{Example.pm → .meta/solutions/Say.pm}

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

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

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