(module accessor-test mzscheme
  
  (require (all-except (lib "list.ss" "srfi" "1") any)
           (lib "cut.ss" "srfi" "26"))
  
  (require (file "accessor.ss")
           (file "command.ss")
           (file "core.ss")
           (file "test-base.ss"))
  
  ; Test suite -----------------------------------
  
  (define accessor-tests
    (test-suite "accessor.ss"
      
      (test-case "title-ref"
        (open/wait (lambda (request)
                     (send/suspend
                      (lambda (url)
                        '(html (head (title "Open/wait worked"))
                               (body (p "Open/wait worked.")))))))
        (check-equal? (title-ref) "Open/wait worked"))
      
      ))
  
  ; Provide statements ---------------------------
  
  (provide accessor-tests)
  
  )