   (expect passes "'a1'")
   (expect passes "'\\'a'")
   (expect passes "'a\\''")
-  (expect passes "'a\\'a'"))
+  (expect passes "'a\\'a'")
+  (expect passes "'b0'")
+  (expect passes "'b-0'"))
 
 ;; valid dates
 (let [passes (passes-fn :DateValue)]

  (expect passes "alpha=3 and beta=4")
  (expect passes "alpha=3 or beta=4")
  (expect passes "alpha=3 and beta=4 or gamma=5 and delta=6")
  (expect passes "alpha=3 and (beta=4 or gamma=5) and delta=6"))

;; invalid filters
(let [fails (fails-fn :Filter)]

  (expect passes "\"a1\"")
  (expect passes "\"\\\"a\"")
  (expect passes "\"a\\\"\"")
  (expect passes "\"a\\\"a\"")
  (expect passes "\"b0\"")
  (expect passes "\"b-0\""))

;; valid single quoted strings
(let [passes (passes-fn :SingleQuoteString)]
