M5WS7Z65RUSP3MZNYGZCL7NFFSVUQHBVOFYKX46H5NB4P36BSP6AC
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;