testing for infer_url()

[disorder] / lib / t-url.c

diff --git a/lib/t-url.c b/lib/t-url.c
index 89fb3457369e1679ec888986766cab4435235f6e..dcff4bf642b86927f37b481c530edf1c90b284c9 100644 (file)
--- a/lib/t-url.c
+++ b/lib/t-url.c
@@ -19,10 +19,8 @@
  */
 #include "test.h"
 
-void test_url(void) {
+static void test_url(void) {
   struct url p;
-  
-  printf("test_url\n");
 
   insist(parse_url("http://www.example.com/example/path", &p) == 0);
   check_string(p.scheme, "http");
@@ -48,8 +46,31 @@ void test_url(void) {
   insist(parse_url("http://www.example.com:100000/", &p) == -1);
   insist(parse_url("http://www.example.com:1000000000000/", &p) == -1);
   insist(parse_url("http://www.example.com/example%2zpath", &p) == -1);
+
+  setenv("SERVER_NAME", "www.anjou.terraraq.org.uk", 1);
+  setenv("SERVER_PORT", "80", 1);
+  setenv("SCRIPT_NAME", "/~richard/env.cgi", 1);
+  check_string(infer_url(),
+               "http://www.anjou.terraraq.org.uk/~richard/env.cgi");
+  setenv("HTTPS", "on", 1);
+  check_string(infer_url(),
+               "https://www.anjou.terraraq.org.uk/~richard/env.cgi");
+  setenv("QUERY_STRING", "foo", 1);
+  check_string(infer_url(),
+               "https://www.anjou.terraraq.org.uk/~richard/env.cgi");
+  setenv("REQUEST_URI", "/~richard/env%2ecgi", 1);
+  check_string(infer_url(),
+               "https://www.anjou.terraraq.org.uk/~richard/env%2ecgi");
+  setenv("REQUEST_URI", "/~richard/env%2ecgi?foo", 1);
+  check_string(infer_url(),
+               "https://www.anjou.terraraq.org.uk/~richard/env%2ecgi");
+  setenv("SERVER_PORT", "8080", 1);
+  check_string(infer_url(),
+               "https://www.anjou.terraraq.org.uk:8080/~richard/env%2ecgi");
 }
 
+TEST(url);
+
 /*
 Local Variables:
 c-basic-offset:2