tracks/perl6/exercises/allergies/allergies.t in trackler-2.1.0.11 vs tracks/perl6/exercises/allergies/allergies.t in trackler-2.1.0.12
- old
+ new
@@ -5,201 +5,198 @@
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). "
~ "Test is $($version.gist).\n";
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>;
for @cases -> %case {
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>;
for @cases {
is list-allergies(.<score>), |.<expected description>;
}
} 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": "is allergic to eggs",
+ "property": "allergicTo",
+ "score": 1,
+ "expected": [
{
- "description": "no allergies at all",
- "property": "list",
- "score": 0,
- "expected": []
- },
+ "substance": "eggs",
+ "result": true
+ }
+ ]
+ },
+ {
+ "description": "allergic to eggs in addition to other stuff",
+ "property": "allergicTo",
+ "score": 5,
+ "expected": [
{
- "description": "allergic to just eggs",
- "property": "list",
- "score": 1,
- "expected": ["eggs"]
+ "substance": "eggs",
+ "result": true
},
{
- "description": "allergic to just peanuts",
- "property": "list",
- "score": 2,
- "expected": ["peanuts"]
+ "substance": "shellfish",
+ "result": true
},
{
- "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"
- ]
+ "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
}