anchor.diff:    "Test the authentication functionality."
     (with-fixture mock-server (:identity)
       (is-true (authenticate "localhost" "dummy" "swordfish"))
  -    (is (equalp *service-catalog*
  +    (is (equalp (service-catalog *openstack-keystone*)
                   '(("nova"
                      ("endpoints"
                       ("public-url" . "http://localhost:8774/v2.1/4869da5d1b38f29b4a9f6333972e48db")
  
positive.code:          (case service
             (:identity
              (start-mock-identity-server)
              (when (and (not (null *token*))
                         (not (null *service-catalog*)))
                (setf *token* nil)
                (setf *service-catalog* nil)))
             (:image
              (start-mock-image-server))
             (:compute
  
negative.code:                     ("region" . "RegionOne")
                      ("admin-url" . "http://localhost:5000/v2.0"))
                     ("type" . "identity")))))
      (is (string= (token *openstack-keystone*)
                   *token*))))
  
  (test image-api
  