tracks/perl6/exercises/allergies/allergies.t in trackler-2.2.1.61 vs tracks/perl6/exercises/allergies/allergies.t in trackler-2.2.1.62

@@ -3,11 +3,11 @@
 use Test;
 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;
 
 use-ok $module or bail-out;
 require ::($module);
@@ -25,10 +25,18 @@
 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';
 
   subtest 'list-allergies' => {
     plan 9;