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