exercism-perl5

etl.t (2397B) - raw

---

 #!/usr/bin/env perl
 use Test2::V0;
 use JSON::PP;
 use constant JSON => JSON::PP->new;
 
 use FindBin qw<$Bin>;
 use lib $Bin, "$Bin/local/lib/perl5";
 
 use ETL qw<transform>;
 
 my @test_cases = do { local $/; @{ JSON->decode(<DATA>) }; };
 plan 5;
 
 imported_ok qw<transform> or bail_out;
 
 for my $case (@test_cases) {
   &is(
     transform( $case->{input}{legacy} ),
     @{$case}{qw<expected description>}
   );
 }
 
 __DATA__
 [
   {
     "description": "single letter",
     "expected": {
       "a": 1
     },
     "input": {
       "legacy": {
         "1": [
           "A"
         ]
       }
     },
     "property": "transform"
   },
   {
     "description": "single score with multiple letters",
     "expected": {
       "a": 1,
       "e": 1,
       "i": 1,
       "o": 1,
       "u": 1
     },
     "input": {
       "legacy": {
         "1": [
           "A",
           "E",
           "I",
           "O",
           "U"
         ]
       }
     },
     "property": "transform"
   },
   {
     "description": "multiple scores with multiple letters",
     "expected": {
       "a": 1,
       "d": 2,
       "e": 1,
       "g": 2
     },
     "input": {
       "legacy": {
         "1": [
           "A",
           "E"
         ],
         "2": [
           "D",
           "G"
         ]
       }
     },
     "property": "transform"
   },
   {
     "description": "multiple scores with differing numbers of letters",
     "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
     },
     "input": {
       "legacy": {
         "1": [
           "A",
           "E",
           "I",
           "O",
           "U",
           "L",
           "N",
           "R",
           "S",
           "T"
         ],
         "10": [
           "Q",
           "Z"
         ],
         "2": [
           "D",
           "G"
         ],
         "3": [
           "B",
           "C",
           "M",
           "P"
         ],
         "4": [
           "F",
           "H",
           "V",
           "W",
           "Y"
         ],
         "5": [
           "K"
         ],
         "8": [
           "J",
           "X"
         ]
       }
     },
     "property": "transform"
   }
 ]