1 files changed, 9 insertions, 4 deletions
diff --git a/cpan/Unicode-Collate/t/tangut.t b/cpan/Unicode-Collate/t/tangut.t
index cf43a48347..b4d1f028f9 100644
--- a/cpan/Unicode-Collate/t/tangut.t
+++ b/cpan/Unicode-Collate/t/tangut.t
@@ -16,7 +16,7 @@ BEGIN {
 
 use strict;
 use warnings;
-BEGIN { $| = 1; print "1..599\n"; } # 5 + 33 x @Versions
+BEGIN { $| = 1; print "1..689\n"; } # 5 + 36 x @Versions
 my $count = 0;
 sub ok ($;$) {
     my $p = my $r = shift;
@@ -34,7 +34,7 @@ ok(1);
 #########################
 
 my @Versions = ( 8,  9, 11, 14, 16, 18, 20, 22, 24, 26,
-		28, 30, 32, 34, 36, 38, 40, 41);
+		28, 30, 32, 34, 36, 38, 40, 41, 43);
 
 my $Collator = Unicode::Collate->new(
     table => 'keys.txt',
@@ -57,6 +57,8 @@ ok($Collator->viewSortKey("\x{18AF2}"),
 # 187ED..187F1 are Tangut Ideographs since UCA_Version 38 (Unicode 11.0).
 # 187F2..187F7 are Tangut Ideographs since UCA_Version 40 (Unicode 12.0).
 # 18800..18AF2 are Tangut Components since UCA_Version 34 (Unicode 9.0).
+# 18AF3..18AFF are Tangut Components since UCA_Version 43 (Unicode 13.0)
+# 18D00..18D08 are Tangut Ideographs since UCA_Version 43 (Unicode 13.0)
 
 for my $v (@Versions) {
     $Collator->change(UCA_Version => $v);
@@ -81,8 +83,11 @@ for my $v (@Versions) {
     ok($Collator->cmp("\x{18801}", "\x{4E00}") == ($v >= 34 ? -1 : 1));
     ok($Collator->cmp("\x{18AF1}", "\x{4E00}") == ($v >= 34 ? -1 : 1));
     ok($Collator->cmp("\x{18AF2}", "\x{4E00}") == ($v >= 34 ? -1 : 1));
-    ok($Collator->cmp("\x{18AF3}", "\x{4E00}") == 1);
-    ok($Collator->cmp("\x{18AFF}", "\x{4E00}") == 1);
+    ok($Collator->cmp("\x{18AF3}", "\x{4E00}") == ($v >= 43 ? -1 : 1));
+    ok($Collator->cmp("\x{18AFF}", "\x{4E00}") == ($v >= 43 ? -1 : 1));
+    ok($Collator->cmp("\x{18D00}", "\x{4E00}") == ($v >= 43 ? -1 : 1));
+    ok($Collator->cmp("\x{18D08}", "\x{4E00}") == ($v >= 43 ? -1 : 1));
+    ok($Collator->cmp("\x{18D09}", "\x{4E00}") == 1);
 
     ok($Collator->lt("\x{17000}", "\x{17001}"));
     ok($Collator->lt("\x{17001}", "\x{17002}"));