### ----------------------------------------------------
### -- P5lcfirst
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/03-ucfirst.rakutest
### ----------------------------------------------------
use v6.*;
use Test;
use P5lcfirst;

plan 8;

is ucfirst('foo'), 'Foo', 'did we get a good Foo';
is ucfirst('FOO'), 'FOO', 'did we get a good FOO';
is ucfirst('f'),   'F',   'did we get a good F';
is ucfirst(''),    '',    'did we get a good empty string';

with "bar" { is .&ucfirst, 'Bar', 'did we get a good Bar' }
with "BAR" { is .&ucfirst, 'BAR', 'did we get a good BAR' }
with "b"   { is .&ucfirst, 'B',   'did we get a good B' }
with ""    { is .&ucfirst, '',    'did we get a good empty string' }

# vim: expandtab shiftwidth=4


