[perl5.git] / dist / ExtUtils-ParseXS / t / 102-trim_whitespace.t

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