keywords: sort keywords alphabetically

2014-03-30 17:04:56 +02:00
parent 7dbed6a2f5
commit c09f6c72e9
1 changed files with 2 additions and 2 deletions
--- a/tests/keywords.pl
+++ b/tests/keywords.pl
@@ -120,8 +120,8 @@ sub show {
    return $ret;
 }

-# numerically on amount, or alphebetically if same amount
-my @mtest = reverse sort { $k{$a} <=> $k{$b} || $b cmp $a } keys %k;
+# sort alphabetically 
+my @mtest = reverse sort { $b cmp $a } keys %k;

 print <<TOP
 <table><tr><th>Num</th><th>Keyword</th><th>Test Cases</th></tr>