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


BEGIN {
    unless ("A" eq pack('U', 0x41)) {
	print "1..0 # Unicode::Collate " .
	    "cannot stringify a Unicode code point\n";
	exit 0;
    }
    if ($ENV{PERL_CORE}) {
	chdir('t') if -d 't';
	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
    }
}

use Test;
BEGIN { plan tests => 8 };

use strict;
use warnings;
use Unicode::Collate::Locale;

ok(1);

#########################

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

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
68adb2b0 CBW	1
	2	BEGIN {
	3	unless ("A" eq pack('U', 0x41)) {
	4	print "1..0 # Unicode::Collate " .
	5	"cannot stringify a Unicode code point\n";
	6	exit 0;
	7	}
	8	if ($ENV{PERL_CORE}) {
	9	chdir('t') if -d 't';
	10	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
	11	}
	12	}
	13
	14	use Test;
	15	BEGIN { plan tests => 8 };
	16
6484f676 CBW	17	use strict;
	18	use warnings;
	19	use Unicode::Collate::Locale;
	20
68adb2b0 CBW	21	ok(1);
	22
	23	#########################
6484f676 CBW	24
	25	my $objAf = Unicode::Collate::Locale->
	26	new(locale => 'AF', normalization => undef);
	27
6484f676 CBW	28	ok($objAf->getlocale, 'af');
	29
	30	$objAf->change(level => 1);
	31
	32	ok($objAf->eq("n", "N"));
	33	ok($objAf->eq("N", "\x{149}"));
	34
	35	$objAf->change(level => 2);
	36
	37	ok($objAf->eq("n", "N"));
	38	ok($objAf->eq("N", "\x{149}"));
	39
	40	$objAf->change(level => 3);
	41
	42	ok($objAf->lt("n", "N"));
	43	ok($objAf->lt("N", "\x{149}"));