trackler 2.1.0.11 → 2.1.0.12

data/tracks/perl5/.github/stale.yml

@@ -0,0 +1,21 @@
+# Configuration for probot-stale - https://github.com/probot/stale
+
+# Number of days of inactivity before an Issue or Pull Request becomes stale
+daysUntilStale: 180
+# Number of days of inactivity before a stale Issue or Pull Request is closed
+daysUntilClose: 7
+# Issues or Pull Requests with these labels will never be considered stale
+exemptLabels:
+  - pinned
+  - security
+# Label to use when marking as stale
+staleLabel: stale
+# Comment to post when marking as stale. Set to `false` to disable
+markComment: >
+  This issue has been automatically marked as stale because it has not had
+  recent activity. It will be closed if no further activity occurs. Thank you
+  for your contributions.
+# Comment to post when closing a stale Issue or Pull Request. Set to `false` to disable
+closeComment: false
+# Limit to only `issues` or `pulls`
+# only: issues

data/tracks/perl6/.github/stale.yml

@@ -0,0 +1,21 @@
+# Configuration for probot-stale - https://github.com/probot/stale
+
+# Number of days of inactivity before an Issue or Pull Request becomes stale
+daysUntilStale: 180
+# Number of days of inactivity before a stale Issue or Pull Request is closed
+daysUntilClose: 7
+# Issues or Pull Requests with these labels will never be considered stale
+exemptLabels:
+  - pinned
+  - security
+# Label to use when marking as stale
+staleLabel: stale
+# Comment to post when marking as stale. Set to `false` to disable
+markComment: >
+  This issue has been automatically marked as stale because it has not had
+  recent activity. It will be closed if no further activity occurs. Thank you
+  for your contributions.
+# Comment to post when closing a stale Issue or Pull Request. Set to `false` to disable
+closeComment: false
+# Limit to only `issues` or `pulls`
+# only: issues

data/tracks/perl6/exercises/accumulate/accumulate.t

@@ -6,10 +6,11 @@ use lib $?FILE.IO.dirname;
 my $exercise = 'Accumulate';
 my $version = v1;
 my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 8;
+plan 7;
 
 use-ok $module or bail-out;
 require ::($module);
+
 if ::($exercise).^ver !~~ $version {
   warn "\nExercise version mismatch. Further tests may fail!"
     ~ "\n$exercise is $(::($exercise).^ver.gist). "
@@ -17,34 +18,25 @@ if ::($exercise).^ver !~~ $version {
   bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
 }
 
-my @subs;
-BEGIN { @subs = <&accumulate> };
-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;
+require ::($module) <&accumulate>;
 
 is-deeply accumulate([ ], sub {}),
           [ ],
           'test empty';
-
 is-deeply accumulate([1, 2, 3, 4, 5], sub { @_[0] * @_[0] }),
           [1, 4, 9, 16, 25],
           'raise to 2';
-
 is-deeply accumulate([10, 17, 23], sub { [ (@_[0] / 7).truncate, (@_[0] % 7).truncate ] }),
           [[1, 3], [2, 3], [3, 2] ],
           'divmod';
-
 is-deeply accumulate(['hello', 'exercism'], sub { @_[0].uc }),
           ['HELLO', 'EXERCISM'],
           'capitalize';
-
 is-deeply accumulate(['a', 'b', 'c' ], sub ($inp) { [ accumulate( [1, 2, 3], sub ($inp2) { $inp ~ $inp2 } )]}),
           [['a1', 'a2', 'a3'], ['b1', 'b2', 'b3'], ['c1', 'c2', 'c3']],
           'recursive';
-
 is-deeply accumulate(['the', 'quick', 'brown', 'fox'], sub { @_[0].flip }),
           ['eht', 'kciuq', 'nworb', 'xof'],
           'reverse strings';
+
+done-testing;

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

@@ -0,0 +1,23 @@
+exercise: Accumulate
+version: 1
+plan: 7
+imports: '&accumulate'
+tests: |
+  is-deeply accumulate([ ], sub {}),
+            [ ],
+            'test empty';
+  is-deeply accumulate([1, 2, 3, 4, 5], sub { @_[0] * @_[0] }),
+            [1, 4, 9, 16, 25],
+            'raise to 2';
+  is-deeply accumulate([10, 17, 23], sub { [ (@_[0] / 7).truncate, (@_[0] % 7).truncate ] }),
+            [[1, 3], [2, 3], [3, 2] ],
+            'divmod';
+  is-deeply accumulate(['hello', 'exercism'], sub { @_[0].uc }),
+            ['HELLO', 'EXERCISM'],
+            'capitalize';
+  is-deeply accumulate(['a', 'b', 'c' ], sub ($inp) { [ accumulate( [1, 2, 3], sub ($inp2) { $inp ~ $inp2 } )]}),
+            [['a1', 'a2', 'a3'], ['b1', 'b2', 'b3'], ['c1', 'c2', 'c3']],
+            'recursive';
+  is-deeply accumulate(['the', 'quick', 'brown', 'fox'], sub { @_[0].flip }),
+            ['eht', 'kciuq', 'nworb', 'xof'],
+            'reverse strings';

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

@@ -7,10 +7,11 @@ use JSON::Tiny;
 my $exercise = 'Allergies';
 my $version = v1;
 my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
-plan 5;
+plan 4;
 
 use-ok $module or bail-out;
 require ::($module);
+
 if ::($exercise).^ver !~~ $version {
   warn "\nExercise version mismatch. Further tests may fail!"
     ~ "\n$exercise is $(::($exercise).^ver.gist). "
@@ -18,15 +19,10 @@ if ::($exercise).^ver !~~ $version {
   bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
 }
 
-my @subs;
-BEGIN { @subs = <&allergic-to &list-allergies> };
-subtest 'Subroutine(s)', {
-  plan 2;
-  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;
+require ::($module) <&allergic-to &list-allergies>;
 
-for @(my $c-data.<cases>) -> %cases {
+my $c-data;
+for @($c-data<cases>) -> %cases {
   subtest 'allergic-to' => {
     plan 7;
     my @cases = |%cases<cases>;
@@ -34,7 +30,6 @@ for @(my $c-data.<cases>) -> %cases {
       is allergic-to(%case<score>, .<substance>), .<result>, %case<description> for @(%case<expected>);
     }
   } if %cases<description> ~~ 'allergicTo';
-
   subtest 'list-allergies' => {
     plan 9;
     my @cases = |%cases<cases>;
@@ -44,162 +39,164 @@ for @(my $c-data.<cases>) -> %cases {
   } if %cases<description> ~~ 'list';
 }
 
-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 }
+if %*ENV<EXERCISM> && (my $c-data-file =
+  "$dir/../../x-common/exercises/{$dir.IO.resolve.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 ｢
+$c-data := from-json q:to/END/;
+
+{
+  "exercise": "allergies",
+  "version": "1.0.0",
+  "cases": [
     {
-      "exercise": "allergies",
-      "version": "1.0.0",
+      "description": "allergicTo",
+      "comments": [
+        "Given a number and a substance, indicate whether Tom is allergic ",
+        "to that substance.",
+        "Test cases for this method involve more than one assertion.",
+        "Each case in 'expected' specifies what the method should return for",
+        "the given substance."
+      ],
       "cases": [
         {
-          "description": "allergicTo",
-          "comments": [
-            "Given a number and a substance, indicate whether Tom is allergic ",
-            "to that substance.",
-            "Test cases for this method involve more than one assertion.",
-            "Each case in 'expected' specifies what the method should return for",
-            "the given substance."
-          ],
-          "cases": [
+          "description": "no allergies means not allergic",
+          "property": "allergicTo",
+          "score": 0,
+          "expected": [
             {
-              "description": "no allergies means not allergic",
-              "property": "allergicTo",
-              "score": 0,
-              "expected": [
-                {
-                  "substance": "peanuts",
-                  "result": false
-                },
-                {
-                  "substance": "cats",
-                  "result": false
-                },
-                {
-                  "substance": "strawberries",
-                  "result": false
-                }
-              ]
+              "substance": "peanuts",
+              "result": false
             },
             {
-              "description": "is allergic to eggs",
-              "property": "allergicTo",
-              "score": 1,
-              "expected": [
-                {
-                  "substance": "eggs",
-                  "result": true
-                }
-              ]
+              "substance": "cats",
+              "result": false
             },
             {
-              "description": "allergic to eggs in addition to other stuff",
-              "property": "allergicTo",
-              "score": 5,
-              "expected": [
-                {
-                  "substance": "eggs",
-                  "result": true
-                },
-                {
-                  "substance": "shellfish",
-                  "result": true
-                },
-                {
-                  "substance": "strawberries",
-                  "result": false
-                }
-              ]
+              "substance": "strawberries",
+              "result": false
             }
           ]
         },
         {
-          "description": "list",
-          "comments": [
-            "Given a number, list all things Tom is allergic to"
-          ],
-          "cases": [
-            {
-              "description": "no allergies at all",
-              "property": "list",
-              "score": 0,
-              "expected": []
-            },
-            {
-              "description": "allergic to just eggs",
-              "property": "list",
-              "score": 1,
-              "expected": ["eggs"]
-            },
-            {
-              "description": "allergic to just peanuts",
-              "property": "list",
-              "score": 2,
-              "expected": ["peanuts"]
-            },
-            {
-              "description": "allergic to just strawberries",
-              "property": "list",
-              "score": 8,
-              "expected": ["strawberries"]
-            },
+          "description": "is allergic to eggs",
+          "property": "allergicTo",
+          "score": 1,
+          "expected": [
             {
-              "description": "allergic to eggs and peanuts",
-              "property": "list",
-              "score": 3,
-              "expected": ["eggs", "peanuts"]
-            },
-            {
-              "description": "allergic to more than eggs but not peanuts",
-              "property": "list",
-              "score": 5,
-              "expected": ["eggs", "shellfish"]
-            },
+              "substance": "eggs",
+              "result": true
+            }
+          ]
+        },
+        {
+          "description": "allergic to eggs in addition to other stuff",
+          "property": "allergicTo",
+          "score": 5,
+          "expected": [
             {
-              "description": "allergic to lots of stuff",
-              "property": "list",
-              "score": 248,
-              "expected": [ "strawberries",
-                            "tomatoes",
-                            "chocolate",
-                            "pollen",
-                            "cats"
-                          ]
+              "substance": "eggs",
+              "result": true
             },
             {
-              "description": "allergic to everything",
-              "property": "list",
-              "score": 255,
-              "expected": [ "eggs",
-                            "peanuts",
-                            "shellfish",
-                            "strawberries",
-                            "tomatoes",
-                            "chocolate",
-                            "pollen",
-                            "cats"
-                          ]
+              "substance": "shellfish",
+              "result": true
             },
             {
-              "description": "ignore non allergen score parts",
-              "property": "list",
-              "score": 509,
-              "expected": [ "eggs",
-                            "shellfish",
-                            "strawberries",
-                            "tomatoes",
-                            "chocolate",
-                            "pollen",
-                            "cats"
-                          ]
+              "substance": "strawberries",
+              "result": false
             }
           ]
         }
       ]
+    },
+    {
+      "description": "list",
+      "comments": [
+        "Given a number, list all things Tom is allergic to"
+      ],
+      "cases": [
+        {
+          "description": "no allergies at all",
+          "property": "list",
+          "score": 0,
+          "expected": []
+        },
+        {
+          "description": "allergic to just eggs",
+          "property": "list",
+          "score": 1,
+          "expected": ["eggs"]
+        },
+        {
+          "description": "allergic to just peanuts",
+          "property": "list",
+          "score": 2,
+          "expected": ["peanuts"]
+        },
+        {
+          "description": "allergic to just strawberries",
+          "property": "list",
+          "score": 8,
+          "expected": ["strawberries"]
+        },
+        {
+          "description": "allergic to eggs and peanuts",
+          "property": "list",
+          "score": 3,
+          "expected": ["eggs", "peanuts"]
+        },
+        {
+          "description": "allergic to more than eggs but not peanuts",
+          "property": "list",
+          "score": 5,
+          "expected": ["eggs", "shellfish"]
+        },
+        {
+          "description": "allergic to lots of stuff",
+          "property": "list",
+          "score": 248,
+          "expected": [ "strawberries",
+                        "tomatoes",
+                        "chocolate",
+                        "pollen",
+                        "cats"
+                      ]
+        },
+        {
+          "description": "allergic to everything",
+          "property": "list",
+          "score": 255,
+          "expected": [ "eggs",
+                        "peanuts",
+                        "shellfish",
+                        "strawberries",
+                        "tomatoes",
+                        "chocolate",
+                        "pollen",
+                        "cats"
+                      ]
+        },
+        {
+          "description": "ignore non allergen score parts",
+          "property": "list",
+          "score": 509,
+          "expected": [ "eggs",
+                        "shellfish",
+                        "strawberries",
+                        "tomatoes",
+                        "chocolate",
+                        "pollen",
+                        "cats"
+                      ]
+        }
+      ]
     }
-  ｣
+  ]
+}
+
+END
 }