#!/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'" );