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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 5;
use ExtUtils::ParseXS::Utilities qw(
trim_whitespace
);
my $str;
$str = 'overworked';
trim_whitespace($str);
is( $str, 'overworked', "Got expected value" );
$str = ' overworked';
trim_whitespace($str);
is( $str, 'overworked', "Got expected value" );
$str = 'overworked ';
trim_whitespace($str);
is( $str, 'overworked', "Got expected value" );
$str = ' overworked ';
trim_whitespace($str);
is( $str, 'overworked', "Got expected value" );
$str = "\toverworked";
trim_whitespace($str);
is( $str, 'overworked', "Got expected value" );
|
