1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More;
5use ExtUtils::Typemaps;
6
7my @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);
17
18plan tests => scalar(@tests);
19
20foreach my $test (@tests) {
21  is(ExtUtils::Typemaps::tidy_type($test->[0]), $test->[1], "Tidying '$test->[0]'");
22}
23
24