use strict;
use warnings;
use utf8;
use Test::Base::Less;
run {
my $block = shift;
is(uc($block->input), $block->expected);
};
done_testing;
__DATA__
===
--- input: x
--- expected: X
=== have a name
--- input: y
--- expected: Y
use strict;
use warnings;
use utf8;
use Test::Base::Less;
run {
my $block = shift;
is(uc($block->input), $block->expected);
};
done_testing;
__DATA__
===
--- input: x
--- expected: X
=== have a name
--- input: y
--- expected: Y