[perl5.git] / cpan / Unicode-Collate / t / loc_af.t

#!perl
use strict;
use warnings;
use Unicode::Collate::Locale;

use Test;
plan tests => 8;

my $objAf = Unicode::Collate::Locale->
    new(locale => 'AF', normalization => undef);

ok(1);
ok($objAf->getlocale, 'af');

$objAf->change(level => 1);

ok($objAf->eq("n", "N"));
ok($objAf->eq("N", "\x{149}"));

$objAf->change(level => 2);

ok($objAf->eq("n", "N"));
ok($objAf->eq("N", "\x{149}"));

$objAf->change(level => 3);

ok($objAf->lt("n", "N"));
ok($objAf->lt("N", "\x{149}"));
Commit	Line	Data
6484f676 CBW	1	#!perl
	2	use strict;
	3	use warnings;
	4	use Unicode::Collate::Locale;
	5
	6	use Test;
	7	plan tests => 8;
	8
	9	my $objAf = Unicode::Collate::Locale->
	10	new(locale => 'AF', normalization => undef);
	11
	12	ok(1);
	13	ok($objAf->getlocale, 'af');
	14
	15	$objAf->change(level => 1);
	16
	17	ok($objAf->eq("n", "N"));
	18	ok($objAf->eq("N", "\x{149}"));
	19
	20	$objAf->change(level => 2);
	21
	22	ok($objAf->eq("n", "N"));
	23	ok($objAf->eq("N", "\x{149}"));
	24
	25	$objAf->change(level => 3);
	26
	27	ok($objAf->lt("n", "N"));
	28	ok($objAf->lt("N", "\x{149}"));