(deftest bryan-parse-dates ()
  (check
    (equal (list "ab" "cde" "f") (tokens "ab12 3cde.f" #'alpha-char-p 0))
    (equal (list "ab12" "3cde.f" "gh") (tokens "ab12 3cde.f
                                                   gh" #'constituent 0))
    (equal (list 16 8 1980) (parse-date "16 Aug 1980"))))