chiark - git - mdw - disorder/blame_incremental

... / ...

Commit	Line	Data
	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	*/