chiark / gitweb /
Clean up after coverage testing properly
[disorder] / libtests / t-url.c
1 /*
2  * This file is part of DisOrder.
3  * Copyright (C) 2005, 2007, 2008 Richard Kettlewell
4  *
5  * This program is free software: you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation, either version 3 of the License, or
8  * (at your option) any later version.
9  * 
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  * 
15  * You should have received a copy of the GNU General Public License
16  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
17  */
18 #include "test.h"
19
20 static void test_url(void) {
21   struct url p;
22
23   insist(parse_url("http://www.example.com/example/path", &p) == 0);
24   check_string(p.scheme, "http");
25   check_string(p.host, "www.example.com");
26   insist(p.port == -1);
27   check_string(p.path, "/example/path");
28   insist(p.query == 0);
29
30   insist(parse_url("https://www.example.com:82/example%2fpath?+query+", &p) == 0);
31   check_string(p.scheme, "https");
32   check_string(p.host, "www.example.com");
33   insist(p.port == 82);
34   check_string(p.path, "/example/path");
35   check_string(p.query, "+query+");
36
37   insist(parse_url("//www.example.com/example/path", &p) == 0);
38   insist(p.scheme == 0);
39   check_string(p.host, "www.example.com");
40   insist(p.port == -1);
41   check_string(p.path, "/example/path");
42   insist(p.query == 0);
43
44   insist(parse_url("http://www.example.com:100000/", &p) == -1);
45   insist(parse_url("http://www.example.com:1000000000000/", &p) == -1);
46   insist(parse_url("http://www.example.com/example%2zpath", &p) == -1);
47
48   setenv("SERVER_NAME", "www.anjou.terraraq.org.uk", 1);
49   setenv("SERVER_PORT", "80", 1);
50   setenv("SCRIPT_NAME", "/~richard/env.cgi", 1);
51   check_string(infer_url(1),
52                "http://www.anjou.terraraq.org.uk/~richard/env.cgi");
53   setenv("HTTPS", "on", 1);
54   check_string(infer_url(1),
55                "https://www.anjou.terraraq.org.uk/~richard/env.cgi");
56   setenv("QUERY_STRING", "foo", 1);
57   check_string(infer_url(1),
58                "https://www.anjou.terraraq.org.uk/~richard/env.cgi");
59   setenv("REQUEST_URI", "/~richard/env%2ecgi", 1);
60   check_string(infer_url(1),
61                "https://www.anjou.terraraq.org.uk/~richard/env%2ecgi");
62   setenv("REQUEST_URI", "/~richard/env%2ecgi?foo", 1);
63   check_string(infer_url(1),
64                "https://www.anjou.terraraq.org.uk/~richard/env%2ecgi");
65   setenv("SERVER_PORT", "8080", 1);
66   check_string(infer_url(1),
67                "https://www.anjou.terraraq.org.uk:8080/~richard/env%2ecgi");
68 }
69
70 TEST(url);
71
72 /*
73 Local Variables:
74 c-basic-offset:2
75 comment-column:40
76 fill-column:79
77 indent-tabs-mode:nil
78 End:
79 */