trackler 2.2.1.61 → 2.2.1.62

data/tracks/go/exercises/bob/bob.go

@@ -5,8 +5,6 @@
 // https://golang.org/doc/effective_go.html#commentary
 package bob
 
-const testVersion = 3
-
 // Hey should have a comment documenting it.
 func Hey(remark string) string {
 	// Write some code here to pass the test suite.

data/tracks/go/exercises/forth/cases_test.go

@@ -1,8 +1,8 @@
 package forth
 
 // Source: exercism/problem-specifications
-// Commit: 1b4165d Add test for Forth that an operator can be overridden.
-// Problem Specifications Version: 1.2.0
+// Commit: 3cb5e76 forth: Remove test for empty input (#976)
+// Problem Specifications Version: 1.3.0
 
 type testGroup struct {
 	group string
@@ -19,11 +19,6 @@ var testGroups = []testGroup{
 	{
 		group: "parsing and numbers",
 		tests: []testCase{
-			{
-				"empty input results in empty stack",
-				[]string{},
-				[]int{},
-			},
 			{
 				"numbers just get pushed onto the stack",
 				[]string{"1 2 3 4 5"},

data/tracks/go/exercises/nucleotide-count/nucleotide_count.go

@@ -1,7 +1,5 @@
 package dna
 
-const testVersion = 2
-
 // Histogram is a mapping from nucleotide to its count in given DNA.
 // Choose a suitable data type.
 type Histogram

data/tracks/go/exercises/pangram/.meta/gen.go

@@ -0,0 +1,54 @@
+package main
+
+import (
+	"log"
+	"text/template"
+
+	"../../../gen"
+)
+
+func main() {
+	t, err := template.New("").Parse(tmpl)
+	if err != nil {
+		log.Fatal(err)
+	}
+	var j js
+	if err := gen.Gen("pangram", &j, t); err != nil {
+		log.Fatal(err)
+	}
+}
+
+// The JSON structure we expect to be able to unmarshal into
+type js struct {
+	Exercise string
+	Version  string
+	Cases    []struct {
+		Cases []oneCase
+	}
+}
+
+// Test cases
+type oneCase struct {
+	Description string
+	Property    string
+	Input       string
+	Expected    bool
+}
+
+// Template to generate test cases.
+var tmpl = `package pangram
+
+{{.Header}}
+
+var testCases = []struct {
+	description	string
+	input		string
+	expected	bool
+}{ {{range .J.Cases}}{{range .Cases}}
+{
+	description:	{{printf "%q"  .Description}},
+	input:		{{printf "%q"  .Input}},
+	expected:	{{printf "%t"  .Expected}},
+},{{end}}{{end}}
+}
+`

data/tracks/go/exercises/pangram/cases_test.go

@@ -0,0 +1,62 @@
+package pangram
+
+// Source: exercism/problem-specifications
+// Commit: d79e13e pangram: fix duplicative case for a missing 'x' (#958)
+// Problem Specifications Version: 1.3.0
+
+var testCases = []struct {
+	description string
+	input       string
+	expected    bool
+}{
+	{
+		description: "sentence empty",
+		input:       "",
+		expected:    false,
+	},
+	{
+		description: "recognizes a perfect lower case pangram",
+		input:       "abcdefghijklmnopqrstuvwxyz",
+		expected:    true,
+	},
+	{
+		description: "pangram with only lower case",
+		input:       "the quick brown fox jumps over the lazy dog",
+		expected:    true,
+	},
+	{
+		description: "missing character 'x'",
+		input:       "a quick movement of the enemy will jeopardize five gunboats",
+		expected:    false,
+	},
+	{
+		description: "another missing character, e.g. 'h'",
+		input:       "five boxing wizards jump quickly at it",
+		expected:    false,
+	},
+	{
+		description: "pangram with underscores",
+		input:       "the_quick_brown_fox_jumps_over_the_lazy_dog",
+		expected:    true,
+	},
+	{
+		description: "pangram with numbers",
+		input:       "the 1 quick brown fox jumps over the 2 lazy dogs",
+		expected:    true,
+	},
+	{
+		description: "missing letters replaced by numbers",
+		input:       "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog",
+		expected:    false,
+	},
+	{
+		description: "pangram with mixed case and punctuation",
+		input:       "\"Five quacking Zephyrs jolt my wax bed.\"",
+		expected:    true,
+	},
+	{
+		description: "upper and lower case versions of the same character should not be counted separately",
+		input:       "the quick brown fox jumps over with lazy FX",
+		expected:    false,
+	},
+}

data/tracks/go/exercises/pangram/example.go

@@ -1,14 +1,12 @@
 package pangram
 
-import (
-	"strings"
-)
+import "strings"
 
+// IsPangram checks if given string is a pangram
 func IsPangram(s string) bool {
-	lowerString := strings.ToLower(s)
 	var check [26]bool
 	var count int
-	for _, c := range lowerString {
+	for _, c := range strings.ToLower(s) {
 		if c >= 'a' {
 			if c > 'z' {
 				continue

data/tracks/go/exercises/pangram/pangram_test.go

@@ -4,33 +4,12 @@ import (
 	"testing"
 )
 
-type testCase struct {
-	input         string
-	expected      bool
-	failureReason string
-}
-
-var testCases = []testCase{
-	{"", false, "sentence empty"},
-	{"The quick brown fox jumps over the lazy dog", true, ""},
-	{"a quick movement of the enemy will jeopardize five gunboats", false, "missing character 'x'"},
-	{"the quick brown fish jumps over the lazy dog", false, "another missing character 'x'"},
-	{"the 1 quick brown fox jumps over the 2 lazy dogs", true, ""},
-	{"7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog", false, "missing letters replaced by numbers"},
-	{"\"Five quacking Zephyrs jolt my wax bed.\"", true, ""},
-	{"abcdefghijklmnopqrstuvwxy", false, "missing character 'z'"},
-	{"bcdefghijklmnopqrstuvwxyz", false, "missing character 'a'"},
-}
-
 func TestPangram(t *testing.T) {
 	for _, test := range testCases {
-		actual := IsPangram(test.input)
-		if actual != test.expected {
-			t.Errorf("Pangram test [%s], expected [%t], actual [%t]", test.input, test.expected, actual)
-			if !test.expected {
-				t.Logf("[%s] should not be a pangram because : %s\n", test.input, test.failureReason)
-			}
+		if actual := IsPangram(test.input); actual != test.expected {
+			t.Fatalf("FAIL: %s\nInput %q expected [%t], actual [%t]", test.description, test.input, test.expected, actual)
 		}
+		t.Logf("PASS: %s", test.description)
 	}
 }
 

data/tracks/go/exercises/rna-transcription/rna_transcription.go

@@ -1,6 +1,4 @@
 package strand
 
-const testVersion = 3
-
 func ToRNA(dna string) string {
 }

data/tracks/go/exercises/robot-name/bonus_example.go

@@ -7,8 +7,6 @@ import (
 	"math/rand"
 )
 
-const testVersion = 1
-
 type Robot struct {
 	name string
 }

data/tracks/java/exercises/acronym/.meta/src/reference/java/Acronym.java

@@ -16,11 +16,11 @@ final class Acronym {
     private String generateAcronym(String phrase){
         final Pattern BREAK_WORDS = Pattern.compile("[A-Z]+[a-z]*|[a-z]+");
         final Matcher matcher = BREAK_WORDS.matcher(phrase);
-        final StringBuilder b = new StringBuilder();
+        final StringBuilder stringBuilder = new StringBuilder();
         while (matcher.find()){
-            b.append(matcher.group().charAt(0));
+            stringBuilder.append(matcher.group().charAt(0));
         }
-        return b.toString().toUpperCase();
+        return stringBuilder.toString().toUpperCase();
     }
 
 }

data/tracks/lfe/config.json

@@ -1,4 +1,6 @@
 {
+  "language": "LFE",
+  "blurb": "Lisp Flavoured Erlang is one of those eat your cake and have it too programming languages. As they say: It's the best of Erlang and of Lisp; at the same time!",
   "active": true,
   "exercises": [
     {
@@ -247,6 +249,5 @@
       "uuid": "d706e999-482a-42de-8492-0a65e6258c19"
     }
   ],
-  "foregone": [],
-  "language": "Lisp Flavoured Erlang (LFE)"
-}
+  "foregone": []
+}

data/tracks/perl6/docs/SNIPPET.txt

@@ -1,5 +1,10 @@
-unit module HelloWorld;
+say my $candidates = all
+  (‘Alphabet’, ‘subdermatoglyphic’,
+  ‘Emily Jung Schwartzkopf’).pick: 2;
 
-sub hello is export {
-  'Hello, World!'
+say “All isograms? {$_ ?? ‘✔’ !! ‘❌’}”
+  given is-isogram($candidates).so;
+
+sub is-isogram (Str $_ --> Bool) {
+  .uc.comb(/<:L>/).Bag ⊆ 'A'..'Z';
 }

data/tracks/perl6/exercises/allergies/Allergies.pm6

@@ -1 +1 @@
-unit module Allergies:ver<2>;
+unit module Allergies:ver<3>;

data/tracks/perl6/exercises/allergies/Example.pm6

@@ -1,4 +1,4 @@
-unit module Allergies:ver<2>;
+unit module Allergies:ver<3>;
 
 our @allergens = <
     eggs

data/tracks/perl6/exercises/allergies/allergies.t

@@ -5,7 +5,7 @@ use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
 my Str:D $exercise := 'Allergies';
-my Version:D $version = v2;
+my Version:D $version = v3;
 my Str $module //= $exercise;
 plan 4;
 
@@ -27,7 +27,15 @@ for $c-data<cases>.values -> %case-set {
   subtest 'allergic-to' => {
     plan 7;
     for %case-set<cases>.values -> %case {
-      is allergic-to(%case<score>, .<substance>), .<result>, %case<description> ~ ': ' ~ .<substance> for %case<expected>.values;
+      for %case<expected>.values {
+        given allergic-to %case<score>, .<substance> -> $result {
+          subtest %case<description> ~ ': ' ~ .<substance> => {
+            plan 2;
+            isa-ok $result, Bool;
+            is-deeply $result, .<result>, 'Result matches expected';
+          }
+        }
+      }
     }
   } when %case-set<description> ~~ 'allergicTo';
 

data/tracks/perl6/exercises/allergies/example.yaml

@@ -1,5 +1,5 @@
 exercise: Allergies
-version: 2
+version: 3
 plan: 4
 imports: '&allergic-to &list-allergies'
 tests: |-
@@ -8,7 +8,15 @@ tests: |-
     subtest 'allergic-to' => {
       plan 7;
       for %case-set<cases>.values -> %case {
-        is allergic-to(%case<score>, .<substance>), .<result>, %case<description> ~ ': ' ~ .<substance> for %case<expected>.values;
+        for %case<expected>.values {
+          given allergic-to %case<score>, .<substance> -> $result {
+            subtest %case<description> ~ ': ' ~ .<substance> => {
+              plan 2;
+              isa-ok $result, Bool;
+              is-deeply $result, .<result>, 'Result matches expected';
+            }
+          }
+        }
       }
     } when %case-set<description> ~~ 'allergicTo';
 

data/tracks/perl6/exercises/leap/Example.pm6

@@ -1,4 +1,4 @@
-unit module Leap:ver<2>;
+unit module Leap:ver<3>;
 
 sub is-leap-year ($year) is export {
   is-divisible($year, 400)

data/tracks/perl6/exercises/leap/Leap.pm6

@@ -1,4 +1,4 @@
-unit module Leap:ver<2>;
+unit module Leap:ver<3>;
 
 sub is-leap-year ($year) is export {
 }

data/tracks/perl6/exercises/leap/example.yaml

@@ -1,9 +1,17 @@
 exercise: Leap
-version: 2
+version: 3
 plan: 6
 imports: '&is-leap-year'
 tests: |-
-  is is-leap-year(.<input>), |.<expected description> for @($c-data<cases>);
+  for $c-data<cases>.values {
+    given is-leap-year .<input> -> $result {
+      subtest .<description>, {
+        plan 2;
+        isa-ok $result, Bool;
+        is-deeply $result, .<expected>, 'Result matches expected';
+      }
+    }
+  }
 
 unit: module
 example: |-

data/tracks/perl6/exercises/leap/leap.t

@@ -5,7 +5,7 @@ use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
 my Str:D $exercise := 'Leap';
-my Version:D $version = v2;
+my Version:D $version = v3;
 my Str $module //= $exercise;
 plan 6;
 
@@ -22,7 +22,15 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&is-leap-year>;
 
 my $c-data = from-json $=pod.pop.contents;
-is is-leap-year(.<input>), |.<expected description> for @($c-data<cases>);
+for $c-data<cases>.values {
+  given is-leap-year .<input> -> $result {
+    subtest .<description>, {
+      plan 2;
+      isa-ok $result, Bool;
+      is-deeply $result, .<expected>, 'Result matches expected';
+    }
+  }
+}
 
 =head2 Canonical Data
 =begin code

data/tracks/perl6/exercises/luhn/Example.pm6

@@ -1,4 +1,4 @@
-unit module Luhn:ver<1>;
+unit module Luhn:ver<2>;
 
 sub is-luhn-valid ($input is copy) is export {
   $input ~~ s:g/\s+//;

data/tracks/perl6/exercises/luhn/Luhn.pm6

@@ -1,4 +1,4 @@
-unit module Luhn:ver<1>;
+unit module Luhn:ver<2>;
 
 sub is-luhn-valid ($input) is export {
 }

data/tracks/perl6/exercises/luhn/example.yaml

@@ -1,9 +1,17 @@
 exercise: Luhn
-version: 1
+version: 2
 plan: 15
 imports: '&is-luhn-valid'
 tests: |-
-  is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>);
+  for $c-data<cases>.values {
+    given is-luhn-valid .<input> -> $result {
+      subtest .<description>, {
+        plan 2;
+        isa-ok $result, Bool;
+        is-deeply $result, .<expected>, 'Result matches expected';
+      }
+    }
+  }
 
 unit: module
 example: |-

data/tracks/perl6/exercises/luhn/luhn.t

@@ -5,7 +5,7 @@ use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
 my Str:D $exercise := 'Luhn';
-my Version:D $version = v1;
+my Version:D $version = v2;
 my Str $module //= $exercise;
 plan 15;
 
@@ -22,7 +22,15 @@ if ::($exercise).^ver !~~ $version {
 require ::($module) <&is-luhn-valid>;
 
 my $c-data = from-json $=pod.pop.contents;
-is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>);
+for $c-data<cases>.values {
+  given is-luhn-valid .<input> -> $result {
+    subtest .<description>, {
+      plan 2;
+      isa-ok $result, Bool;
+      is-deeply $result, .<expected>, 'Result matches expected';
+    }
+  }
+}
 
 =head2 Canonical Data
 =begin code