Fossil SCM
Attempt to make sure the 'SSH_CONNECTION' environment variable is ignored during the JSON tests.
Commit
51792cf5c7cf0a08e6c68314f5533609ac524bfc91c364549b3f3559a28dda63
Parent
6804c033eb06958…
1 file changed
+1
-1
+1
-1
| --- test/json.test | ||
| +++ test/json.test | ||
| @@ -77,11 +77,11 @@ | ||
| 77 | 77 | # |
| 78 | 78 | # Returns the status code from the HTTP header. |
| 79 | 79 | proc fossil_http_json {url {cookie "Muppet=Monster"} args} { |
| 80 | 80 | global RESULT JR |
| 81 | 81 | set request "GET $url HTTP/1.1\r\nHost: localhost\r\nUser-Agent: Fossil-http-json\r\nCookie: $cookie" |
| 82 | - set RESULT [fossil_maybe_answer $request http {*}$args] | |
| 82 | + set RESULT [fossil_maybe_answer $request http {*}$args --ipaddr 127.0.0.1] | |
| 83 | 83 | set head ""; set body ""; set status "--NO_MATCH--" |
| 84 | 84 | regexp {(?w)(.*)^\s*$(.*)} $RESULT dummy head body |
| 85 | 85 | regexp {^HTTP\S+\s+(\d\d\d)\s+(.*)$} $head dummy status msg |
| 86 | 86 | if {$status eq "200"} { |
| 87 | 87 | set JR [json2dict $body] |
| 88 | 88 |
| --- test/json.test | |
| +++ test/json.test | |
| @@ -77,11 +77,11 @@ | |
| 77 | # |
| 78 | # Returns the status code from the HTTP header. |
| 79 | proc fossil_http_json {url {cookie "Muppet=Monster"} args} { |
| 80 | global RESULT JR |
| 81 | set request "GET $url HTTP/1.1\r\nHost: localhost\r\nUser-Agent: Fossil-http-json\r\nCookie: $cookie" |
| 82 | set RESULT [fossil_maybe_answer $request http {*}$args] |
| 83 | set head ""; set body ""; set status "--NO_MATCH--" |
| 84 | regexp {(?w)(.*)^\s*$(.*)} $RESULT dummy head body |
| 85 | regexp {^HTTP\S+\s+(\d\d\d)\s+(.*)$} $head dummy status msg |
| 86 | if {$status eq "200"} { |
| 87 | set JR [json2dict $body] |
| 88 |
| --- test/json.test | |
| +++ test/json.test | |
| @@ -77,11 +77,11 @@ | |
| 77 | # |
| 78 | # Returns the status code from the HTTP header. |
| 79 | proc fossil_http_json {url {cookie "Muppet=Monster"} args} { |
| 80 | global RESULT JR |
| 81 | set request "GET $url HTTP/1.1\r\nHost: localhost\r\nUser-Agent: Fossil-http-json\r\nCookie: $cookie" |
| 82 | set RESULT [fossil_maybe_answer $request http {*}$args --ipaddr 127.0.0.1] |
| 83 | set head ""; set body ""; set status "--NO_MATCH--" |
| 84 | regexp {(?w)(.*)^\s*$(.*)} $RESULT dummy head body |
| 85 | regexp {^HTTP\S+\s+(\d\d\d)\s+(.*)$} $head dummy status msg |
| 86 | if {$status eq "200"} { |
| 87 | set JR [json2dict $body] |
| 88 |