Sha256: 60b1b9074cf1ebe1ec48fcc666ff3e94c58cfe2e247164c9658f786fa6ce7008
Contents?: true
Size: 653 Bytes
Versions: 183
Compression:
Stored size: 653 Bytes
Contents
#!/usr/bin/env perl
use warnings;
use strict;
use Test::More tests => 7;
use FindBin;
my $dir;
BEGIN { $dir = $FindBin::Bin . '/' };
use lib $dir;
my $module = $ENV{EXERCISM} ? 'Example' : 'Leap';
use_ok($module)
or BAIL_OUT ("You need to create a module called $module.pm.");
can_ok($module, 'is_leap')
or BAIL_OUT("Missing package $module with sub is_leap()");
my $sub = $module->can('is_leap');
do {
ok $sub->(1996), '1996 is a leap year';
ok !$sub->(1997), '1997 is not a leap year';
ok !$sub->(1998), '1998 is not a leap year';
ok !$sub->(1900), '1900 is not a leap year';
ok $sub->(2400), '2400 is a leap year';
}
Version data entries
183 entries across 183 versions & 1 rubygems