t/helper/camelify.t

   1 use Test::More tests => 8;
   2
   3 use strict;
   4
   5 use lib 't';
   6
   7 use SL::Util qw(camelify);
   8
   9 is(camelify('hello'),                'Hello',             'hello');
  10 is(camelify('hello_world'),          'HelloWorld',        'hello_world');
  11 is(camelify('hello_world_'),         'HelloWorld_',       'hello_world_');
  12 is(camelify('charlie_the_unicorn'),  'CharlieTheUnicorn', 'charlie_the_unicorn');
  13 is(camelify('_charlie_the_unicorn'), 'CharlieTheUnicorn', '_charlie_the_unicorn');
  14 is(camelify('hello__world'),         'HelloWorld',        'hello__world');
  15 is(camelify('hELLO'),                'HELLO',             'hELLO');
  16 is(camelify('hellO_worlD'),          'HellOWorlD',        'hellO_worlD');