Roxen.git
/
server
/
etc
/
test
/
modules
/
TEST.pmod
/
http.pmod
/
WebDAV.pmod
/
TestUtils.pmod
version
»
Context lines:
10
20
40
80
file
none
3
Roxen.git/server/etc/test/modules/TEST.pmod/http.pmod/WebDAV.pmod/TestUtils.pmod:12:
string webdav_mount_point, string|void username, string|void password) { array(Standards.URI) uris = ({}); // Run the suite once with every http protocol modules in the conf. // This allows for testing such things as sub-path mounted sites etc. foreach(conf->registered_urls, string full_url) { mapping(string:string|Configuration|array(Protocol)) port_info = roxen.urls[full_url];
+
DAV_WERROR("full url: %O\n"
+
"port_info: %O\n",
+
full_url, port_info);
if (!test_true(mappingp, port_info)) continue; array(Protocol) ports = port_info->ports; if (!test_true(arrayp, ports)) continue; foreach(ports, Protocol prot) { if (!test_true(stringp, prot->prot_name)) continue; if (prot->prot_name != "http") continue; if (prot->bound != 1) continue; if (!test_true(mappingp, prot->urls)) continue;
-
+
DAV_WERROR("prot: %O\n"
+
"prot->urls: %O\n", prot, prot->urls);
+
// Strip the fragment from the full_url. string url = (full_url/"#")[0]; mapping(string:mixed) url_data = prot->urls[url]; if (!test_true(mappingp, url_data)) continue;
-
+
// NB: url_data is typically the same mapping as port_info.
DAV_WERROR("url data: %O\n", url_data); test_true(`==, url_data->conf, conf);
-
test_true(`==, url_data->port, prot);
+
test_true(stringp, url_data->hostname); test_true(stringp, url_data->path || "/"); Standards.URI url_uri = Standards.URI(url, "http://*/"); Standards.URI base_uri = Standards.URI( Stdio.append_path(url_data->path || "/", webdav_mount_point), url_uri); base_uri->port = prot->port; base_uri->host = prot->ip; if (username) { base_uri->user = username; base_uri->password = password; } uris += ({base_uri}); } } return uris; }