[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/test/test-handlers.lisp

[BKNR Commits]

Revision: 4238
Author: edi
URL: http://bknr.net/trac/changeset/4238

Re-apply changes that were overwritten

U   trunk/thirdparty/hunchentoot/test/test-handlers.lisp

Modified: trunk/thirdparty/hunchentoot/test/test-handlers.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/test/test-handlers.lisp	2009-02-10 17:35:21 UTC (rev 4237)
+++ trunk/thirdparty/hunchentoot/test/test-handlers.lisp	2009-02-10 19:56:25 UTC (rev 4238)
@@ -118,8 +118,8 @@
           (fmt "~[~;once~;twice~:;~:*~R times~]" (incf count)))
          " since its handler was compiled.")
         (info-table (host)
-                    (server-address *server*)
-                    (server-port)
+                    (acceptor-address *acceptor*)
+                    (acceptor-port *acceptor*)
                     (remote-addr*)
                     (remote-port*)
                     (real-remote-addr)
@@ -513,14 +513,10 @@
                   "Forbidden \(403) page")))
        (:tr (:td (:a :href "/hunchentoot/test/oops.html"
                   "Error handling")
-             " \(output depends on settings like "
+             " \(output depends on "
              (:a :href "http://weitz.de/hunchentoot/#*show-lisp-errors-p*"
               (:code "*SHOW-LISP-ERRORS-P*"))
-             (fmt " \(currently ~S) and " *show-lisp-errors-p*)
-             (:a :href "http://weitz.de/hunchentoot/#*show-lisp-backtraces-p*"
-              (:code "*SHOW-LISP-BACKTRACES-P*"))
-             (fmt " \(currently ~S)" *show-lisp-backtraces-p*)
-             ")"))
+             (fmt " \(currently ~S))" *show-lisp-errors-p*)))
        (:tr (:td (:a :href "/hunchentoot/foo"
                   "URI handled by")
              " "