+ "/index.html"))
+
+(defclass test-non-keyed-url-2 (test-case)
+ ((req :accessor req)
+ (ent :accessor ent)))
+
+(defmethod set-up ((self test-non-keyed-url-2))
+ (let ((uri (parse-uri "/app1/index.html")))
+ (setf (req self) (make-instance 'wol::http-request
+ :raw-uri uri
+ :decoded-uri-path (render-uri uri nil)
+ :uri uri))
+ (setf (ent self) (make-instance 'wol::entity
+ :project (make-instance 'wol::wol-project
+ :project-prefix "/app1/")))))
+
+(def-test-method test-returned-session ((self test-non-keyed-url-2) :run nil)
+ (assert-false (req-recode-uri-sans-session-id (req self) (ent self))))
+
+(def-test-method test-recomputed-uri ((self test-non-keyed-url-2) :run nil)
+ (req-recode-uri-sans-session-id (req self) (ent self))
+ (assert-equal (render-uri (request-uri (req self)) nil)
+ "/app1/index.html"))
+
+(def-test-method test-decoded-uri ((self test-non-keyed-url-2) :run nil)
+ (req-recode-uri-sans-session-id (req self) (ent self))
+ (assert-equal (request-decoded-uri-path (req self))
+ "/app1/index.html"))