diff --git a/t/Helper/CatalystUtils.t b/t/Helper/CatalystUtils.t new file mode 100644 index 00000000..26f8dcde --- /dev/null +++ b/t/Helper/CatalystUtils.t @@ -0,0 +1,28 @@ +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;