use strict;
use warnings;
use Test::More;
use lib 't/lib';
use TestString 'is_both';
plan tests => 6 * 2;
# Capitalization is preserved.
is_both ['foo.bar'], 'fooDotBar';
is_both ['Foo.bar'], 'FooDotBar';
is_both ['foo.bar', '_'], 'foo_dot_bar';
is_both ['Foo.bar', '_'], 'Foo_dot_bar';
# If the first char is transformed, then it becomes lowercased.
is_both ['.bar'], 'dotBar';
is_both ['.bar', '_'], 'dot_bar';