#!/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" );