t/helper/snakify.t

   1 use Test::More tests => 7;
   2
   3 use strict;
   4
   5 use lib 't';
   6
   7 use SL::Util qw(snakify);
   8
   9 is(snakify('Hello'),              'hello',                'Hello');
  10 is(snakify('HelloWorld'),         'hello_world',          'helloWorld');
  11 is(snakify('HelloWorld_'),        'hello_world_',         'helloWorld_');
  12 is(snakify('charlieTheUnicorn'),  'charlie_the_unicorn',  'charlieTheUnicorn');
  13 is(snakify('_CharlieTheUnicorn'), '_charlie_the_unicorn', '_CharlieTheUnicorn');
  14 is(snakify('HEllo'),              'h_ello',               'HEllo');
  15 is(snakify('HELlo'),              'h_e_llo',              'HELlo');