use strict; use warnings; use Setup; use Test2::V0; use Hydra::Helper::CatalystUtils; subtest "trim" => sub { my %values = ( "" => "", "šŸŒ®" => 'šŸŒ®', " šŸŒ®" => 'šŸŒ®', "šŸŒ® " => 'šŸŒ®', " šŸŒ® " => 'šŸŒ®', "\nšŸŒ® " => 'šŸŒ®', "\n\tšŸŒ®\n\n\t" => 'šŸŒ®', ); for my $input (keys %values) { my $value = $values{$input}; is(trim($input), $value, "Trim the value: " . $input); } my $uninitialized; is(trim($uninitialized), '', "Trimming an uninitialized value"); }; done_testing;