#!/usr/bin/env perl6 use v6; use Test; use lib my $dir = $?FILE.IO.dirname; use JSON::Fast; my $exercise = 'Allergies'; my $version = v1; my $module = %*ENV ?? 'Example' !! $exercise; 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; } require ::($module) <&allergic-to &list-allergies>; my $c-data; for @($c-data) -> %cases { subtest 'allergic-to' => { plan 7; my @cases = |%cases; for @cases -> %case { is allergic-to(%case, .), ., %case for @(%case); } } if %cases ~~ 'allergicTo'; subtest 'list-allergies' => { plan 9; my @cases = |%cases; for @cases { is list-allergies(.), |.; } } if %cases ~~ 'list'; } if %*ENV { if (my $c-data-file = "$dir/../../problem-specifications/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f { is-deeply $c-data, EVAL('use JSON::Fast; from-json($c-data-file.slurp);'), 'canonical-data'; } else { flunk 'canonical-data' } } else { skip } done-testing; INIT { $c-data := from-json q:to/END/; { "exercise": "allergies", "version": "1.0.0", "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": [ { "substance": "peanuts", "result": false }, { "substance": "cats", "result": false }, { "substance": "strawberries", "result": false } ] }, { "description": "is allergic to eggs", "property": "allergicTo", "score": 1, "expected": [ { "substance": "eggs", "result": true } ] }, { "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 } ] } ] }, { "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 }