keywords: sort case insensitive

diff --git a/tests/keywords.pl b/tests/keywords.pl
index 43f8e2b9bc390a07d251bc59ab0127671785671e..c61df774cd2a691df704746b3db4519076a3126f 100755 (executable)
--- a/tests/keywords.pl
+++ b/tests/keywords.pl
@@ -121,7 +121,7 @@ sub show {
 }
 
 # sort alphabetically 
-my @mtest = reverse sort { $b cmp $a } keys %k;
+my @mtest = reverse sort { lc($b) cmp lc($a) } keys %k;
 
 print <<TOP
 <table><tr><th>Num</th><th>Keyword</th><th>Test Cases</th></tr>