1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
use strict;
use warnings;
use Test::More 0.94 tests => 2;
use String::Trim;
my $in = {
"\none" => undef,
'two' => ' two',
'three' => 'three ',
' four' => ' four ',
'five' => ' five ',
};
my $out = {
'one' => undef,
'two' => 'two',
'three' => 'three',
'four' => 'four',
'five' => 'five',
};
subtest 'return' => sub {
plan tests => 1;
my $trimmed = trim($in);
is_deeply($trimmed, $out, 'trim(%hash) returns a trimmed hash OK');
};
subtest 'in-place' => sub {
plan tests => 1;
trim($in);
is_deeply($in, $out, 'trim(%hash) trims a hash in-place OK');
};
|
