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

#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use ExtUtils::Typemaps;

my @tests = (
  [' *  ** ', '***'],
  [' *     ** ', '***'],
  [' *     ** foobar  *   ', '*** foobar *'],
  ['unsigned int', 'unsigned int'],
  ['std::vector<int>', 'std::vector<int>'],
  ['std::vector< unsigned int >', 'std::vector<unsigned int>'],
  ['std::vector< vector<unsigned int> >', 'std::vector<vector<unsigned int> >'],
  ['std::map< map <unsigned int, int>, int>', 'std::map<map<unsigned int, int>, int>'],
);

plan tests => scalar(@tests);

foreach my $test (@tests) {
  is(ExtUtils::Typemaps::tidy_type($test->[0]), $test->[1], "Tidying '$test->[0]'");
}
Commit	Line	Data
73e91d5a JK	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
ae7fdf58	4	use Test::More;
ae7fdf58	5	use ExtUtils::Typemaps;
73e91d5a	6
ae7fdf58 S	7	my @tests = (
	8	[' * ', '*'],
	9	[' * ', '*'],
	10	[' * ** foobar * ', '*** foobar *'],
	11	['unsigned int', 'unsigned int'],
	12	['std::vector<int>', 'std::vector<int>'],
	13	['std::vector< unsigned int >', 'std::vector<unsigned int>'],
	14	['std::vector< vector<unsigned int> >', 'std::vector<vector<unsigned int> >'],
	15	['std::map< map <unsigned int, int>, int>', 'std::map<map<unsigned int, int>, int>'],
	16	);
73e91d5a	17
ae7fdf58	18	plan tests => scalar(@tests);
73e91d5a	19
ae7fdf58 S	20	foreach my $test (@tests) {
	21	is(ExtUtils::Typemaps::tidy_type($test->[0]), $test->[1], "Tidying '$test->[0]'");
	22	}
73e91d5a	23