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

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