[perl5.git] / dist / ExtUtils-ParseXS / t / 103-tidy_type.t

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests =>  3;
use lib qw( lib );
use ExtUtils::ParseXS::Utilities qw(
  tidy_type
);

my $input;

$input = ' *  ** ';
is( tidy_type($input), '***',
    "Got expected value for '$input'" );

$input = ' *     ** ';
is( tidy_type($input), '***',
    "Got expected value for '$input'" );

$input = ' *     ** foobar  *  ';
is( tidy_type($input), '*** foobar *',
    "Got expected value for '$input'" );
Commit	Line	Data
73e91d5a JK	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 3;
	5	use lib qw( lib );
	6	use ExtUtils::ParseXS::Utilities qw(
	7	tidy_type
	8	);
	9
	10	my $input;
	11
	12	$input = ' * ** ';
	13	is( tidy_type($input), '***',
	14	"Got expected value for '$input'" );
	15
	16	$input = ' * ** ';
	17	is( tidy_type($input), '***',
	18	"Got expected value for '$input'" );
	19
	20	$input = ' * ** foobar * ';
	21	is( tidy_type($input), '*** foobar *',
	22	"Got expected value for '$input'" );
	23