1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More tests =>  5;
5use ExtUtils::ParseXS::Utilities qw(
6  trim_whitespace
7);
8
9my $str;
10
11$str = 'overworked';
12trim_whitespace($str);
13is( $str, 'overworked', "Got expected value" );
14
15$str = '  overworked';
16trim_whitespace($str);
17is( $str, 'overworked', "Got expected value" );
18
19$str = 'overworked  ';
20trim_whitespace($str);
21is( $str, 'overworked', "Got expected value" );
22
23$str = '  overworked  ';
24trim_whitespace($str);
25is( $str, 'overworked', "Got expected value" );
26
27$str = "\toverworked";
28trim_whitespace($str);
29is( $str, 'overworked', "Got expected value" );
30