Sha256: c539229d3193c75ba7609c7e4efa297c1f54e98e86417f299a8370e45888c3b3
Contents?: true
Size: 1.34 KB
Versions: 20
Compression:
Stored size: 1.34 KB
Contents
use strict;
use warnings;
use Test::More;
my @cases = (
{
hex => '1',
decimal => 1,
},
{
hex => 'c',
decimal => 12,
},
{
hex => '10',
decimal => 16,
},
{
hex => 'af',
decimal => 175,
},
{
hex => '100',
decimal => 256,
},
{
hex => '19ace',
decimal => 105166,
},
{
hex => 'carrot',
decimal => 0,
},
{
hex => '000000',
decimal => 0,
},
{
hex => 'ffffff',
decimal => 16777215,
},
{
hex => 'ffff00',
decimal => 16776960,
},
);
my $module = $ENV{EXERCISM} ? 'Example' : 'Hexadecimal';
plan tests => 4 + @cases;
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, "to_decimal" or BAIL_OUT "Missing package $module; or missing sub to_decimal()";
foreach my $c (@cases) {
my $hex = $module->new($c->{hex});
is $hex->to_decimal, $c->{decimal}, "convert $c->{hex} to $c->{decimal}";
}
Version data entries
20 entries across 20 versions & 1 rubygems