anchor.diff:  (in-suite defrest-tests)
   
   
  -(def-test testurlfiddling ()
  +(test testurlfiddling ()
     (is (equal 
          "/test/[0-9]+/gna"
          (defrest::schema->regexpurl "/test/{id:[0-9]+}/gna")))
  
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: 	       (gethash "id" result)))
      (is (= 1
  	   (hash-table-count result)))))
  (test testuriparse ()
    (let ((result (defrest::parse-uri "/test/{id:[0-5]}{name:.+}" "/test/3A%20B")))
      (is (equal "A B"
  	       (gethash "name" result)))
  