# -*- cperl -*-

use Test::More tests => 1 + 10 * 6;

use POSIX qw(locale_h);
setlocale(LC_CTYPE, "pt_PT");

BEGIN { use_ok( 'Lingua::PT::PLNbase' ); }

use locale;

$a = 'Çáé';

SKIP: {
  skip "not a good locale", 10 * 6 unless $a =~ m!^\w{3}$!;

  my %words = qw/má ma
		 ré re
		 coração coracao
		 bébé bebe
		 há ha
		 à a
		 centrífoga centrifoga
		 cócaras cocaras
		 cúmulo cumulo
		 caça caca/;
  for (keys %words) {
    ok(has_accents($_));
    ok(!has_accents($words{$_}));
    ok(has_accents(uc($_)));

    is(remove_accents($_), $words{$_});
    is(remove_accents($words{$_}), $words{$_});
    is(remove_accents(uc($_)), uc($words{$_}));
  }

}

1;