Sha256: 0f780b45d293d885c361ba2b7f6fbd4e0d9e58213ef32770790eadf1d857a64d

Contents?: true

Size: 1.7 KB

Versions: 20

Compression:

Stored size: 1.7 KB

Contents

use strict;
use warnings;

use Test::More;

my @cases = (
    {
        old      => { 1 => ['A'] },
        expected => { a => 1 },
        name     => "transform one value"
    },
    {
        old      => { 1 => [qw(A E I O U)] },
        expected => { a => 1, e => 1, i => 1, o => 1, u => 1 },
        name     => "transform five values"
    },
    {
        old      => { 1 => ['A', 'E'], 2 => ['D', 'G'] },
        expected => { a => 1, e => 1, d => 2, g => 2 },
        name     => "transform a pair of values"
    },
    {
        old      => { 1  => [qw(A E I O U L N R S T)],
                      2  => [qw(D G)],
                      3  => [qw(B C M P)],
                      4  => [qw(F H V W Y)],
                      5  => ['K'],
                      8  => [qw(J X)],
                      10 => [qw(Q Z)]
                    },
        expected => { a => 1, b =>  3, c => 3, d => 2, e => 1,
                      f => 4, g =>  2, h => 4, i => 1, j => 8,
                      k => 5, l =>  1, m => 3, n => 1, o => 1,
                      p => 3, q => 10, r => 1, s => 1, t => 1,
                      u => 1, v =>  4, w => 4, x => 8, y => 4, z => 10
                    },
        name     => "transform all values"
    }
);

my $module = $ENV{EXERCISM} ? 'Example' : 'ETL';

ok -e "$module.pm", "Find $module.pm",
    or BAIL_OUT "You need to create a class called $module.pm";

use_ok $module
    or BAIL_OUT "Does $module.pm compile? Does it end with 1;?";

can_ok $module, "transform"
    or BAIL_OUT "Missing package module $module; or missing sub transform()";

my $sub = $module->can('transform');

foreach my $c (@cases) {
    is_deeply scalar $sub->($c->{old}), $c->{expected}, $c->{name};
}

done_testing();

Version data entries

20 entries across 20 versions & 1 rubygems

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