[naviserver-commits] naviserver/tests ns_conn_host.test,1.1,1.2

[Stephen D. <sd...@us...>]

Update of /cvsroot/naviserver/naviserver/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27805/tests

Modified Files:
	ns_conn_host.test 
Log Message:
Prevent truncation of content already in dstring when location is
appended.  Use nstest_http in tests.


Index: ns_conn_host.test
===================================================================
RCS file: /cvsroot/naviserver/naviserver/tests/ns_conn_host.test,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ns_conn_host.test	12 Apr 2005 06:21:24 -0000	1.1
--- ns_conn_host.test	18 Apr 2005 12:57:15 -0000	1.2
***************
*** 22,49 ****
  
  test ns_conn_location-1.1 {http 1.1 host} -constraints serverListen -setup {
!     ns_eval {{
!         proc conn_location_request {args} {
!             ns_return 200 text/plain [ns_conn location]
!         }
!     }}
!     ns_register_proc GET /location conn_location_request
  } -body {
!     set id [ns_http queue GET $self/location]
!     ns_http wait $id location
!     set location
  } -cleanup {
-     ns_eval {{
-         rename conn_location_request {}
-     }}
      ns_unregister_proc GET /location
!     ns_http cleanup
!     unset -nocomplain id location
! } -result $self
! 
! 
! 
! unset -nocomplain driverhost self
  
  
  
  cleanupTests
--- 22,34 ----
  
  test ns_conn_location-1.1 {http 1.1 host} -constraints serverListen -setup {
!     ns_register_proc GET /location {ns_return 200 text/plain [ns_conn location] ;#}
  } -body {
!     nstest_http -getbody 1 GET $self/location
  } -cleanup {
      ns_unregister_proc GET /location
! } -result [list 200 $self]
  
  
  
+ unset -nocomplain driverlocation self
  cleanupTests