diff --git a/tests/data.org b/tests/data.org
index ec42ce9..b138651 100644
--- a/tests/data.org
+++ b/tests/data.org
@@ -62,12 +62,12 @@ SCHEDULED: <2017-07-05 Wed 18:00>
 :Effort:   5
 :END:
 
-* TODO [#C] Get haircut                                      :personal:@town:
+* TODO [#Z] Get haircut :personal:@town:
 SCHEDULED: <2017-07-05 Wed>
 
 Should probably do this before I take over the world.  Want to look my best.  (Not that it will matter once I'm in charge.)
 
-* TODO [#B] Internet                                                  :bills:
+* TODO [#1] Internet :bills:
 DEADLINE: <2017-07-21 Fri -1m>
 
 * TODO [#A] Spaceship lease                                 :bills:spaceship:
@@ -76,7 +76,7 @@ DEADLINE: <2017-08-01 Tue -1m>
 :agenda-group: bills
 :END:
 
-* TODO [#B] Fix flux capacitor                 :spaceship:shopping:@computer:
+* TODO [#9] Fix flux capacitor :spaceship:shopping:@computer:
 SCHEDULED: <2017-07-05 Wed>
 
 If I don't, the frobnicator will probably fall off halfway to Mars...
diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el
index 923ec66..d6c80d1 100644
--- a/tests/test-org-ql.el
+++ b/tests/test-org-ql.el
@@ -1324,13 +1324,19 @@ with keyword arg NOW in PLIST."
           '("Take over the moon" "Get haircut")))
       (org-ql-it "<= a priority"
         (org-ql-expect ('(priority <= "B"))
-          '("Take over Mars" "Take over the moon" "Renew membership in supervillain club" "Learn universal sign language" "Get haircut" "Internet" "Fix flux capacitor")))
+          '("Take over Mars" "Take over the moon" "Renew membership in supervillain club" "Learn universal sign language" "Get haircut")))
       (org-ql-it "> a priority"
         (org-ql-expect ('(priority > "B"))
-          '("Take over the universe" "Take over the world" "Skype with president of Antarctica" "Spaceship lease")))
+          '("Take over the universe" "Take over the world" "Skype with president of Antarctica" "Internet" "Spaceship lease" "Fix flux capacitor")))
       (org-ql-it ">= a priority"
         (org-ql-expect ('(priority >= "B"))
-          '("Take over the universe" "Take over the world" "Skype with president of Antarctica" "Take over Mars" "Renew membership in supervillain club" "Learn universal sign language" "Internet" "Spaceship lease" "Fix flux capacitor"))))
+          '("Take over the universe" "Take over the world" "Skype with president of Antarctica" "Take over Mars" "Renew membership in supervillain club" "Learn universal sign language" "Internet" "Spaceship lease" "Fix flux capacitor")))
+      (org-ql-it "compare numerical priorities"
+        (org-ql-expect ('(priority > "5"))
+          '("Internet")))
+      (org-ql-it "compare double-digit numerical priorities"
+        (org-ql-expect ('(priority > "60"))
+          '("Internet" "Fix flux capacitor"))))
 
     (describe "(property)"