trackler 2.2.0.3 → 2.2.0.4

data/tracks/perl5/exercises/phone-number/cases.json

@@ -1,44 +0,0 @@
-[
-    {
-        "sub"       : "number",
-        "param"     : "(123) 456-7890",
-        "expected"  : "1234567890",
-        "name"      : "cleans number"
-    },
-    {
-        "sub"       : "number",
-        "param"     : "123.456.7890",
-        "expected"  : "1234567890",
-        "name"      : "cleans the dots"
-    },
-    {
-        "sub"       : "number",
-        "param"     : "11234567890",
-        "expected"  : "1234567890",
-        "name"      : "11-digit number and first digit is 1"
-    },
-    {
-        "sub"       : "number",
-        "param"     : "21234567890",
-        "expected"  : "0000000000",
-        "name"      : "11-digit number and first digit is NOT 1"
-    },
-    {
-        "sub"       : "area_code",
-        "param"     : "1234567890",
-        "expected"  : "123",
-        "name"      : "first 3 digits returned as area_code"
-    },
-    {
-        "sub"       : "pretty",
-        "param"     : "1234567890",
-        "expected"  : "(123) 456-7890",
-        "name"      : "pretty print a 10-digit number"
-    },
-    {
-        "sub"       : "pretty",
-        "param"     : "11234567890",
-        "expected"  : "(123) 456-7890",
-        "name"      : "pretty print a valid 11-digit number"
-    }
-]

data/tracks/perl5/exercises/phone-number/phone.t

@@ -1,43 +0,0 @@
-#!/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 $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' $!";
-}
-
-plan tests => 6 + @$cases;
-
-my $module = $ENV{EXERCISM} ? 'Example' : 'Phone';
-
-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";
-ok !$@, "Cannot load $module.pm"
-    or BAIL_OUT("Does $module.pm compile?  Does it end with 1; ? ($@)");
-
-can_ok($module, 'new')       or BAIL_OUT("Missing package $module; or missing sub new()");
-can_ok($module, 'number')    or BAIL_OUT("Missing package $module; or missing sub number()");
-can_ok($module, 'area_code') or BAIL_OUT("Missing package $module; or missing sub area_code()");
-can_ok($module, 'pretty')    or BAIL_OUT("Missing package $module; or missing sub pretty()");
-
-
-foreach my $c (@$cases) {
-    my $sub = $c->{sub};
-    is $module->new($c->{param})->$sub,
-       $c->{expected},
-       $c->{name};
-}