#!/usr/bin/env perl6

use Test;
use JSON::Tiny;

use lib ( my $dir = IO::Path.new($?FILE).parent ).path;

my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Allergies';
require ::($module) <&allergic-to &list-allergies>;

plan 2;

my %cases = from-json $dir.child('cases.json').slurp;

subtest 'allergic-to' => {
    my @cases = |%cases{'allergic_to'}{'cases'};

    plan +@cases;

    for |@cases -> %case {
        subtest %case.<description> => {
            plan +|%case.<expected>;
            for |%case.<expected> -> %expected {
                is allergic-to(%case.<score>,%expected.<substance>), %expected.<result>
                    or diag %expected;
            }
        }
    }
};

subtest 'list' => {
    my @cases = |%cases{'list'}{'cases'};

    plan +@cases;

    for |@cases {
        is list-allergies(.<score>), .<expected>, .<description>
            or diag $_;
    }
};