use Test::More;
use strict;
no warnings;

diag "Testing that 'uc' works.";
plan tests => 3;

my $result = uc 'foo';
is $result, 'FOO';

my $result = uc 'bar';
is $result, 'BAR';

my $result = uc 'baz';
is $result, 'BAZ';