Help language development. Donate to The Perl Foundation

P5lcfirst zef:lizmat last updated on 2021-09-09

t/03-ucfirst.t
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