trackler 2.0.8.28 → 2.0.8.29

data/tracks/perl6/exercises/rna-transcription/RNA.pm6

@@ -0,0 +1,4 @@
+unit module RNA:ver<1>;
+
+sub to-rna ($dna) is export {
+}

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

@@ -1,17 +1,113 @@
 #!/usr/bin/env perl6
 use v6;
 use Test;
-use lib IO::Path.new($?FILE).parent.path;
+use lib my $dir = $?FILE.IO.dirname;
+use JSON::Tiny;
 
-plan 7;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'RNA_Transcription';
-use-ok $module;
-require ::($module) <RNA_Transcription>;
+my $exercise = 'RNA';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 11;
 
-ok RNA_Transcription.can('to_rna'), 'Class RNA_Transcription has to_rna() method';
+use-ok $module or bail-out;
+require ::($module);
 
-is RNA_Transcription.to_rna('C'), 'G',  'RNA complement of cytosine is guanine';
-is RNA_Transcription.to_rna('G'), 'C',  'RNA complement of guanine is cytosine';
-is RNA_Transcription.to_rna('T'), 'A',  'RNA complement of thymine is adenine';
-is RNA_Transcription.to_rna('A'), 'U',  'RNA complement of adenine is uracil';
-is RNA_Transcription.to_rna('ACGTGGTCTTAA'), 'UGCACCAGAAUU', 'transcribes all occurences';
+if ::($exercise).^ver !~~ $version {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    ~ "\n$exercise is $(::($exercise).^ver.gist). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
+}
+
+my @subs;
+BEGIN { @subs = <&to-rna> };
+subtest 'Subroutine(s)', {
+  plan 1;
+  eval-lives-ok "use $module; ::('$_').defined or die '$_ is not defined.'", $_ for @subs;
+} or bail-out 'All subroutines must be defined and exported.';
+require ::($module) @subs.eager;
+
+for @(my $c-data.<cases>) {
+  if .<expected> {
+    is .<dna>.&to-rna, |.<expected description>;
+  } else {
+    throws-like {.<dna>.&to-rna}, Exception;
+  }
+}
+
+if %*ENV<EXERCISM> && (my $c-data-file = "$dir/../../x-common/exercises/{$dir.IO.basename}/canonical-data.json".IO.resolve) ~~ :f {
+  is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data'
+} else { skip }
+
+done-testing;
+
+INIT {
+  $c-data := from-json ｢
+    {
+      "exercise": "rna-transcription",
+      "version": "1.0.0",
+      "comments": [
+        "Language implementations vary on the issue of invalid input data.",
+        "A language may elect to simplify this task by only presenting valid",
+        "test cases.  For languages handling invalid input data as",
+        "error conditions, invalid test cases are included here and are",
+        "indicated with an expected value of null.  Note however that null is",
+        "simply an indication here in the JSON.  Actually returning null from",
+        "a rna-transcription function may or may not be idiomatic in a language.",
+        "Language idioms of errors or exceptions should be followed.",
+        "Alternative interpretations such as ignoring excess length at the end",
+        "are not represented here."
+      ],
+      "cases": [
+        {
+          "description": "rna complement of cytosine is guanine",
+          "property": "toRna",
+          "dna": "C",
+          "expected": "G"
+        },
+        {
+          "description": "rna complement of guanine is cytosine",
+          "property": "toRna",
+          "dna": "G",
+          "expected": "C"
+        },
+        {
+          "description": "rna complement of thymine is adenine",
+          "property": "toRna",
+          "dna": "T",
+          "expected": "A"
+        },
+        {
+          "description": "rna complement of adenine is uracil",
+          "property": "toRna",
+          "dna": "A",
+          "expected": "U"
+        },
+        {
+          "description": "rna complement",
+          "property": "toRna",
+          "dna": "ACGTGGTCTTAA",
+          "expected": "UGCACCAGAAUU"
+        },
+        {
+          "description": "dna correctly handles invalid input",
+          "property": "toRna",
+          "dna": "U",
+          "expected": null
+        },
+        {
+          "description": "dna correctly handles completely invalid input",
+          "property": "toRna",
+          "dna": "XXX",
+          "expected": null
+        },
+        {
+          "description": "dna correctly handles partially invalid input",
+          "property": "toRna",
+          "dna": "ACGTXXXCTTAA",
+          "expected": null
+        }
+      ]
+    }
+  ｣
+}

data/tracks/perl6/exercises/scrabble-score/Example.pm

@@ -1,22 +1,17 @@
-class Scrabble is export {
-    has %.values = (
-            aeioulnrst => 1,
-            dg         => 2,
-            bcmp       => 3,
-            fhvwy      => 4,
-            k          => 5,
-            jx         => 8,
-            qz         => 10,
-            ZERO       => 0,
-        );
+unit module Scrabble:ver<1>;
 
-    method score ($word) {
-        my $score = 0;
-
-        for $word.lc.split('',:skip-empty) -> $letter {
-            $score
-            += self.values{ self.values.keys.first(/$letter/) or 'ZERO' };
-        }
-        return $score;
+sub score (Str:D $word --> Int:D) is export {
+  my $score = 0;
+  for $word.lc.split('',:skip-empty) -> $letter {
+    given $letter {
+      when * ~~ /<[aeioulnrst]>/ { $score += 1  }
+      when * ~~ /<[dg]>/         { $score += 2  }
+      when * ~~ /<[bcmp]>/       { $score += 3  }
+      when * ~~ /<[fhvwy]>/      { $score += 4  }
+      when * ~~ /k/              { $score += 5  }
+      when * ~~ /<[jx]>/         { $score += 8  }
+      when * ~~ /<[qz]>/         { $score += 10 }
     }
+  }
+  return $score;
 }

data/tracks/perl6/exercises/scrabble-score/Scrabble.pm6

@@ -0,0 +1,4 @@
+unit module Scrabble:ver<1>;
+
+sub score ($word) is export {
+}

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

@@ -1,22 +1,113 @@
 #!/usr/bin/env perl6
 use v6;
 use Test;
-use lib IO::Path.new($?FILE).parent.path;
+use lib my $dir = $?FILE.IO.dirname;
+use JSON::Tiny;
 
-plan 10;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Scrabble';
-use-ok $module;
-require ::($module) <Scrabble>;
+my $exercise = 'Scrabble';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 14;
 
-ok Scrabble.can('score'), 'Scrabble class has score() method';
+use-ok $module or bail-out;
+require ::($module);
 
-my $scrabble = Scrabble.new();
+if ::($exercise).^ver !~~ $version {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    ~ "\n$exercise is $(::($exercise).^ver.gist). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
+}
 
-is $scrabble.score(""),                 0,  "empty word scores 0";
-is $scrabble.score(" \t\n"),            0,  "whitespace scores 0";
-is $scrabble.score("a"),                1,  "a scores 1";
-is $scrabble.score("f"),                4,  "f scores 4";
-is $scrabble.score("street"),           6,  "street scores 6";
-is $scrabble.score("alacrity"),         13, "alacrity scores 13";
-is $scrabble.score("OXYPHENBUTAZONE"),  41, "OXYPHENBUTAZONE scores 41";
-is $scrabble.score("quirky"),           22, "quirky scores 22";
+my @subs;
+BEGIN { @subs = <&score> };
+subtest 'Subroutine(s)', {
+  plan 1;
+  eval-lives-ok "use $module; ::('$_').defined or die '$_ is not defined.'", $_ for @subs;
+} or bail-out 'All subroutines must be defined and exported.';
+require ::($module) @subs.eager;
+
+is .<input>.&score, |.<expected description> for @(my $c-data.<cases>);
+
+if %*ENV<EXERCISM> && (my $c-data-file = "$dir/../../x-common/exercises/{$dir.IO.basename}/canonical-data.json".IO.resolve) ~~ :f {
+  is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data'
+} else { skip }
+
+done-testing;
+
+INIT {
+  $c-data := from-json ｢
+    {
+      "exercise": "scrabble-score",
+      "version": "1.0.0",
+      "cases": [
+        {
+          "description": "lowercase letter",
+          "property": "score",
+          "input": "a",
+          "expected": 1
+        },
+        {
+          "description": "uppercase letter",
+          "property": "score",
+          "input": "A",
+          "expected": 1
+        },
+        {
+          "description": "valuable letter",
+          "property": "score",
+          "input": "f",
+          "expected": 4
+        },
+        {
+          "description": "short word",
+          "property": "score",
+          "input": "at",
+          "expected": 2
+        },
+        {
+          "description": "short, valuable word",
+          "property": "score",
+          "input": "zoo",
+          "expected": 12
+        },
+        {
+          "description": "medium word",
+          "property": "score",
+          "input": "street",
+          "expected": 6
+        },
+        {
+          "description": "medium, valuable word",
+          "property": "score",
+          "input": "quirky",
+          "expected": 22
+        },
+        {
+          "description": "long, mixed-case word",
+          "property": "score",
+          "input": "OxyphenButazone",
+          "expected": 41
+        },
+        {
+          "description": "english-like word",
+          "property": "score",
+          "input": "pinata",
+          "expected": 8
+        },
+        {
+          "description": "empty input",
+          "property": "score",
+          "input": "",
+          "expected": 0
+        },
+        {
+          "description": "entire alphabet available",
+          "property": "score",
+          "input": "abcdefghijklmnopqrstuvwxyz",
+          "expected": 87
+        }
+      ]
+    }
+  ｣
+}

data/tracks/perl6/exercises/space-age/Example.pm

@@ -1,16 +1,32 @@
-our $earth_revolution = 31557600;
+unit module SpaceAge:ver<1>;
 
-our %planets = (
-    mercury => 0.2408467,
-    venus   => 0.61519726,
-    mars    => 1.8808158,
-    jupiter => 11.862615,
-    saturn  => 29.447498,
-    uranus  => 84.016846,
-    neptune => 164.79132,
-    earth   => 1,
-);
+role Planet {
+  method age-on ($seconds) {
+    ($seconds / self.orbital-period).round(0.01);
+  }
+}
+
+class Earth does Planet is export {
+  my $.orbital-period = 31557600;
+}
+
+my package EXPORT::DEFAULT {
+  my %planets = (
+    :Mercury(0.2408467),
+    :Venus(0.61519726),
+    :Mars(1.8808158),
+    :Jupiter(11.862615),
+    :Saturn(29.447498),
+    :Uranus(84.016846),
+    :Neptune(164.79132),
+  );
+  for %planets.kv -> $planet, $relative {
+    OUR::{$planet} := EVAL 'class :: does Planet {
+      my $.orbital-period = calculate-orbital-period $relative
+    }';
+  }
+}
 
-sub age-on( $planet, $seconds ) is export {
-    ( $seconds / %planets{$planet.lc} / $earth_revolution ).round(0.01);
+sub calculate-orbital-period ($relative-to-earth) {
+  Earth.orbital-period * $relative-to-earth;
 }

data/tracks/perl6/exercises/space-age/SpaceAge.pm6

@@ -0,0 +1,22 @@
+unit module SpaceAge:ver<1>;
+
+role Planet {
+  method age-on ($seconds) {
+  }
+}
+
+class Earth does Planet is export {
+  my $.orbital-period = 31557600; 
+}
+
+=for comment
+---
+Orbital periods relative to Earth:
+  Mercury: 0.2408467
+  Venus: 0.61519726
+  Mars: 1.8808158
+  Jupiter: 11.862615
+  Saturn: 29.447498
+  Uranus: 84.016846
+  Neptune: 164.79132
+...

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

@@ -1,65 +1,103 @@
 #!/usr/bin/env perl6
-
+use v6;
 use Test;
+use lib my $dir = $?FILE.IO.dirname;
 use JSON::Tiny;
 
-use lib $?FILE.IO.dirname;
-
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'SpaceAge';
-require ::($module) <&age-on>;
+my $exercise = 'SpaceAge';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 11;
 
-plan 8;
+use-ok $module or bail-out;
+require ::($module);
 
-for my @cases -> %case {
-        is age-on( |%case<planet seconds>), %case{'expected'},
-             %case<planet seconds>.gist;
+if ::($exercise).^ver !~~ $version {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    ~ "\n$exercise is $(::($exercise).^ver.gist). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
 }
 
+my @classes;
+BEGIN { @classes = <Mercury Venus Earth Mars Jupiter Saturn Uranus Neptune> };
+subtest 'Class(es)', {
+  plan 8;
+  eval-lives-ok "use $module; ::('$_').new or die 'Could not call .new on $_\.'", $_ for @classes;
+} or bail-out 'All classes must be defined and exported.';
+require ::($module) @classes.eager;
+
+is (age-on ::(.<planet>): .<seconds>), |.<expected description> for @(my $c-data.<cases>);
+
+if %*ENV<EXERCISM> && (my $c-data-file = "$dir/../../x-common/exercises/{$dir.IO.basename}/canonical-data.json".IO.resolve) ~~ :f {
+  is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data'
+} else { skip }
+
 done-testing;
 
 INIT {
-  @cases := from-json ｢
-    [
-      {
-        "planet": "Earth",
-        "seconds": 1000000000,
-        "expected": 31.69
-      },
-      {
-        "planet": "Mercury",
-        "seconds": 2134835688,
-        "expected": 280.88
-      },
-      {
-        "planet": "Venus",
-        "seconds": 189839836,
-        "expected": 9.78
-      },
-      {
-        "planet": "Mars",
-        "seconds": 2329871239,
-        "expected": 39.25
-      },
-      {
-        "planet": "Jupiter",
-        "seconds": 901876382,
-        "expected": 2.41
-      },
-      {
-        "planet": "Saturn",
-        "seconds": 3000000000,
-        "expected": 3.23
-      },
-      {
-        "planet": "Uranus",
-        "seconds": 3210123456,
-        "expected": 1.21
-      },
-      {
-        "planet": "Neptune",
-        "seconds": 8210123456,
-        "expected": 1.58
-      }
-    ]
+  $c-data := from-json ｢
+    {
+      "exercise": "space-age",
+      "version": "1.0.0",
+      "cases": [
+        {
+          "description": "age on Earth",
+          "property": "age",
+          "planet": "Earth",
+          "seconds": 1000000000,
+          "expected": 31.69
+        },
+        {
+          "description": "age on Mercury",
+          "property": "age",
+          "planet": "Mercury",
+          "seconds": 2134835688,
+          "expected": 280.88
+        },
+        {
+          "description": "age on Venus",
+          "property": "age",
+          "planet": "Venus",
+          "seconds": 189839836,
+          "expected": 9.78
+        },
+        {
+          "description": "age on Mars",
+          "property": "age",
+          "planet": "Mars",
+          "seconds": 2329871239,
+          "expected": 39.25
+        },
+        {
+          "description": "age on Jupiter",
+          "property": "age",
+          "planet": "Jupiter",
+          "seconds": 901876382,
+          "expected": 2.41
+        },
+        {
+          "description": "age on Saturn",
+          "property": "age",
+          "planet": "Saturn",
+          "seconds": 3000000000,
+          "expected": 3.23
+        },
+        {
+          "description": "age on Uranus",
+          "property": "age",
+          "planet": "Uranus",
+          "seconds": 3210123456,
+          "expected": 1.21
+        },
+        {
+          "description": "age on Neptune",
+          "property": "age",
+          "planet": "Neptune",
+          "seconds": 8210123456,
+          "expected": 1.58
+        }
+      ]
+    }
   ｣
 }