This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get t/uni/upper.t working under minitest
[perl5.git] / t / uni / upper.t
CommitLineData
e49298ea
JH
1BEGIN {
2 chdir 't' if -d 't';
d512ebc9
FC
3 require "uni/case.pl";
4 @INC = () unless is_miniperl();
5 unshift @INC, qw(../lib .);
e49298ea
JH
6}
7
4c8a458a
KW
8is(uc("\x{3B1}\x{345}\x{301}"), "\x{391}\x{301}\x{399}", 'Verify moves YPOGEGRAMMENI');
9
10casetest( 1, # extra tests already run
2d6d4018 11 "Uppercase_Mapping",
cc70200b 12 sub { uc $_[0] },
6f9b16a7 13 sub { my $a = ""; uc ($_[0] . $a) });