Sha256: e64e86e11e68681ce4b706056912a18d7254fa3043895d77d7ba2875b30146a8

Contents?: true

Size: 1.75 KB

Versions: 20

Compression:

Stored size: 1.75 KB

Contents

use strict;
use warnings;

use Test::More 'no_plan';

my $module = $ENV{EXERCISM} ? 'Example' : 'Triplet';
ok -e "$module.pm", "Missing $module.pm" or BAIL_OUT "You need to create file: $module.pm";

eval "use $module";
ok !$@, "Cannot load $module" or BAIL_OUT "Cannot load $module. Does it compile? Does it end with 1;?";

can_ok $module, "new",            or BAIL_OUT "Missing package $module; or missing sub new()";
can_ok $module, "is_pythagorean", or BAIL_OUT "Missing package $module; or missing sub is_pythagorean()";
can_ok $module, "sum",            or BAIL_OUT "Missing package $module; or missing sub sum()";
can_ok $module, "product",        or BAIL_OUT "Missing package $module; or missing sub product()";
can_ok $module, "products",       or BAIL_OUT "Missing package $module; or missing sub products()";

my $triplet;

$triplet = $module->new(3, 4, 5);
is $triplet->sum, 12, "test sum";
ok $triplet->is_pythagorean, "test if pythagorean";
is $triplet->product, 60, "test product";

$triplet = $module->new(5, 6, 7);
ok !$triplet->is_pythagorean, "test not a pythagorean";

$triplet = $module->new({max_factor => 10});
is_deeply( [sort @{$triplet->products}], [sort (60, 480)],
    "products of pythagorean_triplets where each number is <= 10" ) or diag explain $triplet->products;

$triplet = $module->new({min_factor => 11, max_factor => 20});
is_deeply( $triplet->products, [3840],
    "products of triplets where factor in 11-20" ) or diag explain $triplet->products;

$triplet = $module->new({sum => 180, max_factor => 100});
#$triplet = $module->new({sum => 180, min_factor => 20, max_factor => 80});
is_deeply( [sort @{$triplet->products}], [118080, 168480, 202500],
    "products of triplets where sum=180 and max_factor is 100" ) or diag explain $triplet->products;

Version data entries

20 entries across 20 versions & 1 rubygems

Version Path
trackler-2.0.0.9 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.8 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.7 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.6 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.5 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.4 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.3 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.2 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.1 tracks/perl5/pythagorean-triplet/triplet.t
trackler-2.0.0.0 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.4.1 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.4.0 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.3.0 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.2.1 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.2.0 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.1.2 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.1.1 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.1.0 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.0.1 tracks/perl5/pythagorean-triplet/triplet.t
trackler-1.0.0 tracks/perl5/pythagorean-triplet/triplet.t