anchor.diff:  	       (gethash "id" result)))
       (is (= 1
   	   (hash-table-count result)))))
  -(def-test testuriparse ()
  +(test testuriparse ()
     (let ((result (defrest::parse-uri "/test/{id:[0-5]}{name:.+}" "/test/3A%20B")))
       (is (equal "A B"
   	       (gethash "name" result)))
  
positive.code:     (is (= 2
  	   (hash-table-count result)))))
  
  (def-test test-real-hunchentoot ()
    (let* ((port 9876)
  	 (server (start (make-instance 'easy-acceptor :port port)))
  	 (baseurl (format nil "http://localhost:~a" port)))
  
negative.code: 		    :key #'(lambda (x) (getf x :key))
  		    :test #'equal)
  	      :regexp))))
  (test testparse ()
    (let ((result (defrest::parse-schema "/test/{id:[a-z]}")))
      (is (= 2
  	   (length result)))
  