trackler 2.0.0.9 → 2.0.0.10

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

@@ -1,12 +1,17 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Raindrops';
-
 use Test::More;
 use JSON qw(from_json);
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
+
+my $module = $ENV{EXERCISM} ? 'Example' : 'Raindrops';
 
-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 a constructor called convert.");
 
 eval "use $module";

data/tracks/perl5/{rna-transcription → exercises/rna-transcription}/rna.t

@@ -1,9 +1,14 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'DNA';
-
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
+
+my $module = $ENV{EXERCISM} ? 'Example' : 'DNA';
 
 my @cases = (
    ['C', 'G',  'cytidine unchanged'],
@@ -15,7 +20,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 module called $module.pm with a function called to_rna() that gets one parameter: a DNA sequence");
 
 eval "use $module";

data/tracks/perl5/{robot-name → exercises/robot-name}/robot_name.t

@@ -1,12 +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' : 'RobotName';
 
 plan tests => 9;
 
-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 constructor and methods called name() and reset_name().");
 
 eval "use $module";

data/tracks/perl5/{robot-simulator → exercises/robot-simulator}/robot_simulator.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' : 'Robot';
 
 plan tests => 45;
 
-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/{roman-numerals → exercises/roman-numerals}/roman.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 = (
     {
@@ -82,7 +87,7 @@ plan tests => 4 + @cases;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Decimal';
 
-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/{saddle-points → exercises/saddle-points}/saddle_points.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' : 'Matrix';
 
 plan tests => 16;
 
-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/{say → exercises/say}/say.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 = (
     {
@@ -76,7 +81,7 @@ my $module = $ENV{EXERCISM} ? 'Example' : 'Say';
 
 plan tests => 3 + @cases;
 
-ok -e "$module.pm", "Missing $module.pm" or BAIL_OUT "You need to create file $module.pm";
+ok -e "${dir}${module}.pm", "Missing $module.pm" or BAIL_OUT "You need to create file $module.pm";
 
 eval "use $module";
 ok !$@, "Cannot load $module" or BAIL_OUT "Does $module.pm compile? Does it end with 1;?";

data/tracks/perl5/{scrabble-score → exercises/scrabble-score}/scrabble.t

@@ -1,8 +1,12 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
-use 5.10.0;
 
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 # set EXERCISM_EXTENDED=1 to run extended test cases
 use constant TEST_EXTENDED => $ENV{EXERCISM_EXTENDED} // 0;
@@ -27,7 +31,7 @@ my @extended_cases = map { _make_test_case(@$_) } (
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Word';
 
-ok -e "$module.pm", "Find $module.pm"
+ok -e "${dir}${module}.pm", "Find $module.pm"
     or die "You need to create file: $module.pm";
 use_ok $module
     or die "Cannot load $module. Does it compile? Does it end with 1;?";

data/tracks/perl5/{secret-handshake → exercises/secret-handshake}/handshake.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' : 'SecretHandshake';
 
 plan tests => 12;
 
-ok -e "$module.pm", "Missing $module.pm" or BAIL_OUT "You need to create file: $module.pm";
+ok -e "${dir}${module}.pm", "Missing $module.pm" or BAIL_OUT "You need to create file: $module.pm";
 eval "use $module";
 ok !$@, "Cannot load $module" or BAIL_OUT "Cannot load $module. Does it compile? Does it end with 1;?";
 

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

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

data/tracks/perl5/{sieve → exercises/sieve}/sieve.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' : 'Sieve';
 
 plan tests => 6;
 
-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/{simple-cipher → exercises/simple-cipher}/cipher.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 = (
     # test encode
@@ -85,7 +90,7 @@ plan tests => 5 + @cases;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Cipher';
 
-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/{simple-linked-list → exercises/simple-linked-list}/simple_linked_list.t

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

data/tracks/perl5/{space-age → exercises/space-age}/space.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' : 'SpaceAge';
 
 plan tests => 20;
 
-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/{strain → exercises/strain}/strain.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' : 'Strain';
 
 plan tests => 12;
 
-ok -e "$module.pm", "Missing $module.pm" or BAIL_OUT "You need to create file $module.pm";
+ok -e "${dir}${module}.pm", "Missing $module.pm" or BAIL_OUT "You need to create file $module.pm";
 
 eval "use $module";
 ok !$@, "Cannot load $module" or BAIL_OUT "Cannot load $module. Does it compile? Does it end with 1;?";

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

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

data/tracks/perl5/{sum-of-multiples → exercises/sum-of-multiples}/sum_of_multiples.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' : 'SumOfMultiples';
 
@@ -70,7 +75,7 @@ my @cases = (
 
 plan tests => 4 + scalar @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/{triangle → exercises/triangle}/triangle.t

@@ -1,12 +1,17 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Triangle';
-
 use Test::More;
 use JSON qw(from_json);
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
+
+my $module = $ENV{EXERCISM} ? 'Example' : 'Triangle';
 
-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 => 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 an function called kind() that gets 3 numbers - the length of the sides. It should return a single word like equilateral, isosceles, or scalene. Or, it should throw and exception.");
 
 eval "use $module";

data/tracks/perl5/{trinary → exercises/trinary}/trinary.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' : 'Trinary';
 
@@ -50,7 +55,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 file: $module.pm";
 
 eval "use $module";

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

@@ -1,11 +1,16 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More tests => 20;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'TwelveDays';
 
-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/{word-count → exercises/word-count}/word_count.t

@@ -1,11 +1,16 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 use open ':std', ':encoding(utf8)';
 use utf8;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Phrase';
-
 use Test::More;
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
+
+my $module = $ENV{EXERCISM} ? 'Example' : 'Phrase';
 
 my @cases = (
     # input                                       expected output                  title
@@ -24,7 +29,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 module called $module.pm with a function called word_count() that gets one parameter: the text in which to count the words.");
 
 eval "use $module";

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

@@ -1,12 +1,17 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 
-my $module = $ENV{EXERCISM} ? 'Example' : 'Wordy';
-
 use Test::More;
 use JSON qw(from_json);
+use FindBin;
+my $dir;
+BEGIN { $dir = $FindBin::Bin . '/' };
+use lib $dir;
+
+my $module = $ENV{EXERCISM} ? 'Example' : 'Wordy';
 
-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 answer() 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/perl6/.travis.yml

@@ -1,5 +1,12 @@
 ---
-language: bash
+sudo: false
+language: perl6
+perl6:
+  - latest
+  - '2016.10'
+  - '2016.07'
+before_script:
+  - bin/fetch-configlet
 script:
-- bin/fetch-configlet
-- bin/configlet .
+  - bin/configlet .
+  - EXERCISM=1 prove -vr --exec=perl6 exercises/

data/tracks/perl6/SETUP.md

@@ -0,0 +1,7 @@
+## Resources
+
+Remember to check out the Perl 6 [documentation](https://docs.perl6.org/) and [resources](https://perl6.org/resources/) pages for information, tips, and examples if you get stuck.
+
+## Running the tests
+
+There is a test script included with the exercise; a file with the extension `.t`. Run the test script for the exercise by running `perl6` with the test file as an argument. e.g. `perl6 example.t`.

data/tracks/perl6/docs/LEARNING.md

@@ -1,3 +1,3 @@
 # Learning Perl 6
 
-See the [Getting started](https://perl6.org/getting-started/) page on Perl6.org.
+The [Resources](https://perl6.org/resources/) page on Perl6.org contains a 'For Newcomers' section with a selection of useful material to get you up and running.

data/tracks/perl6/docs/RESOURCES.md

@@ -1,4 +1,3 @@
 # Resources
 
-* [The Perl6 site](https://perl6.org/)
-* [Perl6 Introduction](http://perl6intro.com/) book
+* [The Perl6 site](https://perl6.org/) has a [resources](https://perl6.org/resources/) page containing variety of information on the language, such as guides for newcomers, documentation, and screencasts.

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

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;

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

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;

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

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;

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

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;

data/tracks/perl6/{grains → exercises/grains}/grains.t

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;

data/tracks/perl6/{leap → exercises/leap}/leap.t

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;

data/tracks/perl6/{raindrops → exercises/raindrops}/raindrops.t

@@ -1,3 +1,4 @@
+#!/usr/bin/env perl6
 use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;