(use simple-tests options)

(define-test (options-test?)
  (check
    (define opt (some 5))
    (option? opt)
    (not (none? opt))
    (none? (none))
    (= (some-ref opt) 5)
    (option? (none))
    (not (condition-case
           (some-ref (none))
           ((exn) #f)))
    ))

(compound-test (OPTIONS)
  (options-test?)
  )