Contents

#!/usr/bin/env perl6
use v6;
use Test;
use JSON::Tiny;
use lib my $path = IO::Path.new($?FILE).parent.path;

BEGIN {
  plan 12;
  use-ok %*ENV<EXERCISM> ?? 'Example' !! 'Phone', 'Module loaded';
}

my %tests = from-json open("$path/cases.json").slurp-rest;

subtest 'number, area-code and pretty methods', {
  plan 3;
  ok Phone.can('number'), 'can Phone.number';
  ok Phone.can('area-code'), 'can Phone.area-code';
  ok Phone.can('pretty'), 'can Phone.pretty';
} or fail 'Missing method(s).';

for @(%tests<valid>) {
  my $phone = Phone.new(number => .<input>);
  my $msg = 'for ' ~ .<test>;
  is $phone.number, .<number>, "number $msg";
  is $phone.area-code, .<area-code>, "area-code $msg";
  is $phone.pretty, .<pretty>, "pretty $msg";
}

my $exception;
if %*ENV<EXERCISM> {
  $exception = X::Phone::Invalid;
}
else {
  todo 'Optional Exception Tests'; # Remove this line for invalid input tests
  $exception = Exception; # Change this if you wish to specify a specific exception
}

subtest 'Throw exceptions for invalid input', {
  plan 5;
  throws-like {Phone.new(number => .<input>)}, $exception, .<test> for @(%tests<invalid>);
}

Version data entries

20 entries across 20 versions & 1 rubygems

Version	Path
trackler-2.0.5.16	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.15	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.14	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.13	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.12	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.11	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.10	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.9	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.8	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.7	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.6	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.5	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.4	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.3	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.2	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.1	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.5.0	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.4.0	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.3.9	tracks/perl6/exercises/phone-number/phone.t
trackler-2.0.3.8	tracks/perl6/exercises/phone-number/phone.t