The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::Base::Less;

filters {
    input => ['trim', sub { uc(shift) }],
    expected => ['trim'],
};

run_is input => 'expected';

done_testing;

__DATA__

=== Normal Case
--- input
x
y
z
--- expected
X
Y
Z

=== Contains numeric chars
--- input
Hello,
5963
--- expected
HELLO,
5963