#!/usr/bin/env perl6
use v6;
use Test;
use lib my $dir = $?FILE.IO.dirname;
use JSON::Fast;

my Str:D $exercise := 'Pangram';
my Version:D $version = v1;
my Str $module //= $exercise;
plan 12;

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>;
}

require ::($module) <&is-pangram>;

my $c-data = from-json $=pod.pop.contents;
for $c-data<cases>.values -> %case-set {
  is is-pangram(.<input>), |.<expected description> for %case-set<cases>.values;
}

=head2 Canonical Data
=begin code

{
  "exercise": "pangram",
  "comments": [
    "A pangram is a sentence using every letter of the alphabet at least once."
  ],
  "version": "1.3.0",
  "cases": [
    {
      "description": "Check if the given string is an pangram",
      "comments": [
        "Output should be a boolean denoting if the string is a pangram or not."
      ],
      "cases": [
        {
          "description": "sentence empty",
          "property": "isPangram",
          "input": "",
          "expected": false
        },
        {
          "description": "recognizes a perfect lower case pangram",
          "property": "isPangram",
          "input": "abcdefghijklmnopqrstuvwxyz",
          "expected": true
        },
        {
          "description": "pangram with only lower case",
          "property": "isPangram",
          "input": "the quick brown fox jumps over the lazy dog",
          "expected": true
        },
        {
          "description": "missing character 'x'",
          "property": "isPangram",
          "input": "a quick movement of the enemy will jeopardize five gunboats",
          "expected": false
        },
        {
          "description": "another missing character, e.g. 'h'",
          "property": "isPangram",
          "input": "five boxing wizards jump quickly at it",
          "expected": false
        },
        {
          "description": "pangram with underscores",
          "property": "isPangram",
          "input": "the_quick_brown_fox_jumps_over_the_lazy_dog",
          "expected": true
        },
        {
          "description": "pangram with numbers",
          "property": "isPangram",
          "input": "the 1 quick brown fox jumps over the 2 lazy dogs",
          "expected": true
        },
        {
          "description": "missing letters replaced by numbers",
          "property": "isPangram",
          "input": "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog",
          "expected": false
        },
        {
          "description": "pangram with mixed case and punctuation",
          "property": "isPangram",
          "input": "\"Five quacking Zephyrs jolt my wax bed.\"",
          "expected": true
        },
        {
          "description": "upper and lower case versions of the same character should not be counted separately",
          "property": "isPangram",
          "input": "the quick brown fox jumps over with lazy FX",
          "expected": false
        }
      ]
    }
  ]
}

=end code

unless %*ENV<EXERCISM> {
  skip-rest 'exercism tests';
  exit;
}

subtest 'canonical-data' => {
  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
    $dir.IO.resolve.basename
  }/canonical-data.json".IO.resolve) ~~ :f ??
    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
    flunk 'problem-specifications file not found';
}

INIT { $module = 'Example' if %*ENV<EXERCISM> }