New URL parser with full RFC1808 relative URL support. Yum.

	* camel-url.c (camel_url_new_with_base): New URL parser with full
	RFC1808 relative URL support. Yum.
	(camel_url_new): Wrapper around camel_url_new_with_base now.
	Removed the CamelException since no one ever used it...

	* tests/Makefile.am: add misc subdir

	* tests/misc/url.c: relative URL test cases from RFC 1808

	* camel-session.c (camel_session_get_service): Update
	camel_url_new call.

svn path=/trunk/; revision=8933

9 files changed, 523 insertions, 199 deletions

diff --git a/camel/ChangeLog b/camel/ChangeLog
index fc6edd237a..c0161d7f5b 100644
--- a/camel/ChangeLog
+++ b/camel/ChangeLog
@@ -1,3 +1,17 @@
+2001-03-25  Dan Winship  <danw@ximian.com>
+
+	* camel-url.c (camel_url_new_with_base): New URL parser with full
+	RFC1808 relative URL support. Yum.
+	(camel_url_new): Wrapper around camel_url_new_with_base now.
+	Removed the CamelException since no one ever used it...
+	
+	* tests/Makefile.am: add misc subdir
+
+	* tests/misc/url.c: relative URL test cases from RFC 1808
+
+	* camel-session.c (camel_session_get_service): Update
+	camel_url_new call.
+
 2001-03-25  Jeffrey Stedfast  <fejj@ximian.com>
 
 	* camel-filter-driver.c (do_copy): Don't use copy_to if the source
diff --git a/camel/camel-session.c b/camel/camel-session.c
index 6ec2c5f1cf..24ca3b964d 100644
--- a/camel/camel-session.c
+++ b/camel/camel-session.c
@@ -291,9 +291,13 @@ camel_session_get_service (CamelSession *session, const char *url_string,
 	CamelProvider *provider;
 	CamelService *service;
 
-	url = camel_url_new (url_string, ex);
-	if (!url)
+	url = camel_url_new (url_string);
+	if (!url) {
+		camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_URL_INVALID,
+				      _("Could not parse URL `%s'"),
+				      url_string);
 		return NULL;
+	}
 
 	/* We need to look up the provider so we can then lookup
 	   the service in the provider's cache */
diff --git a/camel/camel-url.c b/camel/camel-url.c
index 9de03dba1e..527c90da8a 100644
--- a/camel/camel-url.c
+++ b/camel/camel-url.c
@@ -1,15 +1,13 @@
 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
 /* camel-url.c : utility functions to parse URLs */
 
-
 /* 
  * Authors:
- *  Bertrand Guiheneuf <bertrand@helixcode.com>
- *  Dan Winship <danw@helixcode.com>
+ *  Dan Winship <danw@ximian.com>
  *  Tiago Antào <tiagoantao@bigfoot.com>
- *  Jeffrey Stedfast <fejj@helixcode.com>
+ *  Jeffrey Stedfast <fejj@ximian.com>
  *
- * Copyright 1999, 2000 Helix Code, Inc. (http://www.helixcode.com)
+ * Copyright 1999-2001 Ximian, Inc. (http://www.ximian.com)
  *
  * This program is free software; you can redistribute it and/or 
  * modify it under the terms of the GNU General Public License as 
@@ -35,198 +33,349 @@
 #include <string.h>
 #include "camel-url.h"
 #include "camel-mime-utils.h"
-#include "camel-exception.h"
 #include "camel-object.h"
 
+static void copy_param (GQuark key_id, gpointer data, gpointer user_data);
+static void output_param (GQuark key_id, gpointer data, gpointer user_data);
+
 /**
- * camel_url_new: create a CamelURL object from a string
- * @url_string: The string containing the URL to scan
- * 
- * This routine takes a string and parses it as a URL of the form:
- *
- *   protocol://user;AUTH=mech:password@host:port/path
+ * camel_url_new_with_base:
+ * @base: a base URL
+ * @url_string: the URL
  *
- * The protocol, followed by a ":" is required. If it is followed by * "//",
- * there must be an "authority" containing at least a host,
- * which ends at the end of the string or at the next "/". If there
- * is an "@" in the authority, there must be a username before it,
- * and the host comes after it. The authmech, password, and port are
- * optional, and the punctuation that preceeds them is omitted if
- * they are. Everything after the authority (or everything after the
- * protocol if there was no authority) is the path. We consider the
- * "/" between the authority and the path to be part of the path,
- * although this is incorrect according to RFC 1738.
+ * Parses @url_string relative to @base.
  *
- * The port, if present, must be numeric.
- * 
- * Return value: a CamelURL structure containing the URL items.
+ * Return value: a parsed CamelURL.
  **/
 CamelURL *
-camel_url_new (const char *url_string, CamelException *ex)
+camel_url_new_with_base (CamelURL *base, const char *url_string)
 {
 	CamelURL *url;
-	char *semi, *colon, *at, *slash;
-	char *p;
+	const char *end, *hash, *colon, *semi, *at, *slash, *question;
+	const char *p;
 
-	g_assert (url_string);
-
-	/* Find protocol: initial substring until ":" */
-	colon = strchr (url_string, ':');
-	if (!colon) {
-		camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_URL_INVALID,
-				      _("URL string `%s' contains no protocol"),
-				      url_string);
-		return NULL;
-	}
-	
 	url = g_new0 (CamelURL, 1);
-	url->protocol = g_strndup (url_string, colon - url_string);
-	g_strdown (url->protocol);
-
-	/* Check protocol */
-	p = url->protocol;
-	while (*p) {
-		if (!((*p >= 'a' && *p <= 'z') ||
-		      (*p == '-') || (*p == '+') || (*p == '.'))) {
-			camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_URL_INVALID,
-					      _("URL string `%s' contains an invalid protocol"),
-					      url_string);
-			return NULL;
-		}
+
+	/* See RFC1808 for details. IF YOU CHANGE ANYTHING IN THIS
+	 * FUNCTION, RUN tests/misc/url AFTERWARDS.
+	 */
+
+	/* Find fragment. */
+	end = hash = strchr (url_string, '#');
+	if (hash && hash[1]) {
+		url->fragment = g_strdup (hash + 1);
+		camel_url_decode (url->fragment);
+	} else
+		end = url_string + strlen (url_string);
+
+	/* Find protocol: initial [a-z+.-]* substring until ":" */
+	p = url_string;
+	while (p < end && (isalnum ((unsigned char)*p) ||
+			   *p == '.' || *p == '+' || *p == '-'))
 		p++;
+
+	if (p > url_string && *p == ':') {
+		url->protocol = g_strndup (url_string, p - url_string);
+		g_strdown (url->protocol);
+		url_string = p + 1;
 	}
 
-	if (strncmp (colon, "://", 3) != 0) {
-		if (*(colon + 1)) {
-			url->path = g_strdup (colon + 1);
-			camel_url_decode (url->path);
-		}
+	if (!*url_string && !base)
 		return url;
-	}
 
-	url_string = colon + 3;
+	/* Check for authority */
+	if (strncmp (url_string, "//", 2) == 0) {
+		url_string += 2;
+
+		slash = url_string + strcspn (url_string, "/#");
+		at = strchr (url_string, '@');
+		if (at && at < slash) {
+			colon = strchr (url_string, ':');
+			if (colon && colon < at) {
+				url->passwd = g_strndup (colon + 1,
+							 at - colon - 1);
+				camel_url_decode (url->passwd);
+			} else {
+				url->passwd = NULL;
+				colon = at;
+			}
+
+			semi = strchr(url_string, ';');
+			if (semi && semi < colon &&
+			    !strncasecmp (semi, ";auth=", 6)) {
+				url->authmech = g_strndup (semi + 6,
+							   colon - semi - 6);
+				camel_url_decode (url->authmech);
+			} else {
+				url->authmech = NULL;
+				semi = colon;
+			}
+
+			url->user = g_strndup (url_string, semi - url_string);
+			camel_url_decode (url->user);
+			url_string = at + 1;
+		} else
+			url->user = url->passwd = url->authmech = NULL;
 
-	/* If there is an @ sign in the authority, look for user,
-	 * authmech, and password before it.
-	 */
-	slash = strchr (url_string, '/');
-	at = strchr (url_string, '@');
-	if (at && (!slash || at < slash)) {
+		/* Find host and port. */
 		colon = strchr (url_string, ':');
-		if (colon && colon < at) {
-			url->passwd = g_strndup (colon + 1, at - colon - 1);
-			camel_url_decode (url->passwd);
+		if (colon && colon < slash) {
+			url->host = g_strndup (url_string, colon - url_string);
+			url->port = strtoul (colon + 1, NULL, 10);
 		} else {
-			url->passwd = NULL;
-			colon = at;
+			url->host = g_strndup (url_string, slash - url_string);
+			camel_url_decode (url->host);
+			url->port = 0;
 		}
 
-		semi = strchr(url_string, ';');
-		if (semi && (semi < colon || (!colon && semi < at)) &&
-		    !strncasecmp (semi, ";auth=", 6)) {
-			url->authmech = g_strndup (semi + 6,
-						     colon - semi - 6);
-			camel_url_decode (url->authmech);
-		} else {
-			url->authmech = NULL;
-			semi = colon;
+		url_string = slash;
+	}
+
+	/* Find query */
+	question = memchr (url_string, '?', end - url_string);
+	if (question) {
+		if (question[1]) {
+			url->query = g_strndup (question + 1,
+						end - (question + 1));
+			camel_url_decode (url->query);
 		}
+		end = question;
+	}
 
-		url->user = g_strndup (url_string, semi - url_string);
-		camel_url_decode (url->user);
-		url_string = at + 1;
-	} else
-		url->user = url->passwd = url->authmech = NULL;
-
-	/* Find host and port. */
-	slash = strchr (url_string, '/');
-	colon = strchr (url_string, ':');
-	if (slash && colon > slash)
-		colon = NULL;
-
-	if (colon) {
-		url->host = g_strndup (url_string, colon - url_string);
-		url->port = strtoul (colon + 1, &colon, 10);
-		if (*colon && colon != slash) {
-			camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_URL_INVALID,
-					      _("Port number in URL `%s' is non-"
-						"numeric"), url_string);
-			camel_url_free (url);
-			return NULL;
+	/* Find parameters */
+	semi = memchr (url_string, ';', end - url_string);
+	if (semi) {
+		if (semi[1]) {
+			const char *cur, *p, *eq;
+			char *name, *value;
+
+			for (cur = semi + 1; cur < end; cur = p + 1) {
+				p = memchr (cur, ';', end - cur);
+				if (!p)
+					p = end;
+				eq = memchr (cur, '=', p - cur);
+				if (eq) {
+					name = g_strndup (cur, eq - cur);
+					value = g_strndup (eq + 1, end - (eq + 1));
+					camel_url_decode (value);
+				} else {
+					name = g_strndup (cur, end - cur);
+					value = g_strdup ("");
+				}
+				camel_url_decode (name);
+				g_datalist_set_data_full (&url->params, name,
+							  value, g_free);
+			}
 		}
-	} else if (slash) {
-		url->host = g_strndup (url_string, slash - url_string);
-		camel_url_decode (url->host);
-		url->port = 0;
-	} else {
-		url->host = g_strdup (url_string);
-		camel_url_decode (url->host);
-		url->port = 0;
+		end = semi;
+	}
+
+	if (end != url_string) {
+		url->path = g_strndup (url_string, end - url_string);
+		camel_url_decode (url->path);
 	}
 
-	if (!slash)
-		slash = "/";
-	url->path = g_strdup (slash);
-	camel_url_decode (url->path);
+	/* Apply base URL. Again, this is spelled out in RFC 1808. */
+	if (base && !url->protocol && url->host)
+		url->protocol = g_strdup (base->protocol);
+	else if (base && !url->protocol) {
+		if (!url->user && !url->authmech && !url->passwd &&
+		    !url->host && !url->port && !url->path &&
+		    !url->params && !url->query && !url->fragment)
+			url->fragment = g_strdup (base->fragment);
+
+		url->protocol = g_strdup (base->protocol);
+		url->user = g_strdup (base->user);
+		url->authmech = g_strdup (base->authmech);
+		url->passwd = g_strdup (base->passwd);
+		url->host = g_strdup (base->host);
+		url->port = base->port;
+
+		if (!url->path) {
+			url->path = g_strdup (base->path);
+			if (!url->params) {
+				g_datalist_foreach (&base->params, copy_param,
+						    &url->params);
+				if (!url->query)
+					url->query = g_strdup (base->query);
+			}
+		} else if (*url->path != '/') {
+			char *newpath, *last, *p, *q;
+
+			last = strrchr (base->path, '/');
+			if (last) {
+				newpath = g_strdup_printf ("%.*s/%s",
+							   last - base->path,
+							   base->path,
+							   url->path);
+			} else
+				newpath = g_strdup_printf ("/%s", url->path);
+
+			/* Remove "./" where "." is a complete segment. */
+			for (p = newpath + 1; *p; ) {
+				if (*(p - 1) == '/' &&
+				    *p == '.' && *(p + 1) == '/')
+					memmove (p, p + 2, strlen (p + 2) + 1);
+				else
+					p++;
+			}
+			/* Remove "." at end. */
+			if (p > newpath + 2 &&
+			    *(p - 1) == '.' && *(p - 2) == '/')
+				*(p - 1) = '\0';
+			/* Remove "<segment>/../" where <segment> != ".." */
+			for (p = newpath + 1; *p; ) {
+				if (!strncmp (p, "../", 3)) {
+					p += 3;
+					continue;
+				}
+				q = strchr (p + 1, '/');
+				if (!q)
+					break;
+				if (strncmp (q, "/../", 4) != 0) {
+					p = q + 1;
+					continue;
+				}
+				memmove (p, q + 4, strlen (q + 4) + 1);
+				p = newpath + 1;
+			}
+			/* Remove "<segment>/.." at end */
+			q = strrchr (newpath, '/');
+			if (q && !strcmp (q, "/..")) {
+				p = q - 1;
+				while (p > newpath && *p != '/')
+					p--;
+				if (strncmp (p, "/../", 4) != 0)
+					*(p + 1) = 0;
+			}
+			g_free (url->path);
+			url->path = newpath;
+		}
+	}
 
 	return url;
 }
 
+static void
+copy_param (GQuark key_id, gpointer data, gpointer user_data)
+{
+	GData **copy = user_data;
+
+	g_datalist_id_set_data_full (copy, key_id, g_strdup (data), g_free);
+}
+
+/**
+ * camel_url_new:
+ * @url_string: a URL
+ *
+ * Parses an absolute URL.
+ *
+ * Return value: a CamelURL, or %NULL.
+ **/
+CamelURL *
+camel_url_new (const char *url_string)
+{
+	CamelURL *url = camel_url_new_with_base (NULL, url_string);
+
+	if (!url->protocol) {
+		camel_url_free (url);
+		return NULL;
+	}
+	return url;
+}
+
+/**
+ * camel_url_to_string:
+ * @url: a CamelURL
+ * @show_password: whether or not to include the password in the output
+ *
+ * Return value: a string representing @url, which the caller must free.
+ **/
 char *
 camel_url_to_string (CamelURL *url, gboolean show_passwd)
 {
-	char *return_result;
-	char *user = NULL, *authmech = NULL, *passwd = NULL;
-	char *host = NULL, *path = NULL;
-	char port[20];
+	GString *str;
+	char *enc, *return_result;
 
-	if (url->user)
-		user = camel_url_encode (url->user, TRUE, ":;@/");
-	
-	if (url->authmech && *url->authmech)
-		authmech = camel_url_encode (url->authmech, TRUE, ":@/");
-	
-	if (show_passwd && url->passwd)
-		passwd = camel_url_encode (url->passwd, TRUE, "@/");
-	
-	if (url->host)
-		host = camel_url_encode (url->host, TRUE, ":/");
-	
-	if (url->port)
-		g_snprintf (port, sizeof (port), "%d", url->port);
-	else
-		*port = '\0';
-	
-	if (url->path)
-		path = camel_url_encode (url->path, FALSE, NULL);
-
-	return_result = g_strdup_printf ("%s:%s%s%s%s%s%s%s%s%s%s%s%s",
-					 url->protocol,
-					 host ? "//" : "",
-					 user ? user : "",
-					 authmech ? ";auth=" : "",
-					 authmech ? authmech : "",
-					 passwd ? ":" : "",
-					 passwd ? passwd : "",
-					 user ? "@" : "",
-					 host ? host : "",
-					 *port ? ":" : "",
-					 port,
-					 path && host && *path != '/' ? "/" : "",
-					 path ? path : "");
-	g_free (user);
-	g_free (authmech);
-	g_free (passwd);
-	g_free (host);
-	g_free (path);
+	/* IF YOU CHANGE ANYTHING IN THIS FUNCTION, RUN
+	 * tests/misc/url AFTERWARD.
+	 */
+
+	str = g_string_sized_new (20);
+
+	if (url->protocol)
+		g_string_sprintfa (str, "%s:", url->protocol);
+	if (url->host) {
+		g_string_append (str, "//");
+		if (url->user) {
+			enc = camel_url_encode (url->user, TRUE, ":;@/");
+			g_string_append (str, enc);
+			g_free (enc);
+		}
+		if (url->authmech && *url->authmech) {
+			enc = camel_url_encode (url->authmech, TRUE, ":@/");
+			g_string_sprintfa (str, ";auth=%s", enc);
+			g_free (enc);
+		}
+		if (show_passwd && url->passwd) {
+			enc = camel_url_encode (url->passwd, TRUE, "@/");
+			g_string_sprintfa (str, ":%s", enc);
+			g_free (enc);
+		}
+		if (url->host) {
+			enc = camel_url_encode (url->host, TRUE, ":/");
+			g_string_sprintfa (str, "%s%s", url->user ? "@" : "", enc);
+		}
+		if (url->port)
+			g_string_sprintfa (str, ":%d", url->port);
+		if (!url->path && (url->params || url->query || url->fragment))
+			g_string_append_c (str, '/');
+	}
+
+	if (url->path) {
+		enc = camel_url_encode (url->path, FALSE, ";?#");
+		g_string_sprintfa (str, "%s", enc);
+		g_free (enc);
+	}
+	if (url->params)
+		g_datalist_foreach (&url->params, output_param, str);
+	if (url->query) {
+		enc = camel_url_encode (url->query, FALSE, "#");
+		g_string_sprintfa (str, "?%s", enc);
+		g_free (enc);
+	}
+	if (url->fragment) {
+		enc = camel_url_encode (url->fragment, FALSE, NULL);
+		g_string_sprintfa (str, "#%s", enc);
+		g_free (enc);
+	}
 
+	return_result = str->str;
+	g_string_free (str, FALSE);
 	return return_result;
 }
 
+static void
+output_param (GQuark key_id, gpointer data, gpointer user_data)
+{
+	GString *str = user_data;
+	char *enc;
+
+	enc = camel_url_encode (g_quark_to_string (key_id), FALSE, "?#");
+	g_string_sprintfa (str, ";%s", enc);
+	g_free (enc);
+}
+
+/**
+ * camel_url_free:
+ * @url: a CamelURL
+ *
+ * Frees @url
+ **/
 void
 camel_url_free (CamelURL *url)
 {
-	g_assert (url);
+	g_return_if_fail (url);
 
 	g_free (url->protocol);
 	g_free (url->user);
@@ -234,30 +383,41 @@ camel_url_free (CamelURL *url)
 	g_free (url->passwd);
 	g_free (url->host);
 	g_free (url->path);
+	g_datalist_clear (&url->params);
+	g_free (url->query);
+	g_free (url->fragment);
 
 	g_free (url);
 }
 
-void camel_url_set_protocol(CamelURL *url, const char *p)
-{
-	g_free(url->protocol);
-	url->protocol = g_strdup(p);
-}
 
-void camel_url_set_host(CamelURL *url, const char *h)
-{
-	g_free(url->host);
-	url->host = g_strdup(h);
+#define DEFINE_CAMEL_URL_SET(part)			\
+void							\
+camel_url_set_##part (CamelURL *url, const char *part)	\
+{							\
+	g_free (url->part);				\
+	url->part = g_strdup (part);			\
 }
 
-void camel_url_set_port(CamelURL *url, int port)
+DEFINE_CAMEL_URL_SET (protocol)
+DEFINE_CAMEL_URL_SET (user)
+DEFINE_CAMEL_URL_SET (authmech)
+DEFINE_CAMEL_URL_SET (passwd)
+DEFINE_CAMEL_URL_SET (host)
+DEFINE_CAMEL_URL_SET (path)
+DEFINE_CAMEL_URL_SET (query)
+DEFINE_CAMEL_URL_SET (fragment)
+
+void
+camel_url_set_port (CamelURL *url, int port)
 {
 	url->port = port;
 }
-void camel_url_set_path(CamelURL *url, const char *p)
+
+void
+camel_url_set_param (CamelURL *url, const char *name, const char *value)
 {
-	g_free(url->path);
-	url->path = g_strdup(p);
+	g_datalist_set_data (&url->params, name, value ? g_strdup (value) : NULL);
 }
 
 
@@ -322,23 +482,20 @@ camel_url_decode (char *part)
 	*d = '\0';
 }
 
-static void
-add_hash (guint *hash, char *s)
-{
-	if (s)
-		*hash ^= g_str_hash(s);
-}
-
-guint camel_url_hash (const void *v)
+guint
+camel_url_hash (const void *v)
 {
 	const CamelURL *u = v;
 	guint hash = 0;
 
-	add_hash (&hash, u->protocol);
-	add_hash (&hash, u->user);
-	add_hash (&hash, u->authmech);
-	add_hash (&hash, u->host);
-	add_hash (&hash, u->path);
+#define ADD_HASH(s) if (s) hash ^= g_str_hash (s);
+
+	ADD_HASH (u->protocol);
+	ADD_HASH (u->user);
+	ADD_HASH (u->authmech);
+	ADD_HASH (u->host);
+	ADD_HASH (u->path);
+	ADD_HASH (u->query);
 	hash ^= u->port;
 	
 	return hash;
@@ -360,7 +517,8 @@ check_equal (char *s1, char *s2)
 	return strcmp (s1, s2) == 0;
 }
 
-int camel_url_equal(const void *v, const void *v2)
+int
+camel_url_equal(const void *v, const void *v2)
 {
 	const CamelURL *u1 = v, *u2 = v2;
 	
@@ -369,5 +527,6 @@ int camel_url_equal(const void *v, const void *v2)
 		&& check_equal(u1->authmech, u2->authmech)
 		&& check_equal(u1->host, u2->host)
 		&& check_equal(u1->path, u2->path)
+		&& check_equal(u1->query, u2->query)
 		&& u1->port == u2->port;
 }
diff --git a/camel/camel-url.h b/camel/camel-url.h
index 996c4b4e74..0ee8066137 100644
--- a/camel/camel-url.h
+++ b/camel/camel-url.h
@@ -37,16 +37,20 @@ extern "C" {
 #endif /* __cplusplus */
 
 typedef struct {
-	char *protocol;
-	char *user;
-	char *authmech;
-	char *passwd;
-	char *host;
-	int   port;
-	char *path;
+	char  *protocol;
+	char  *user;
+	char  *authmech;
+	char  *passwd;
+	char  *host;
+	int    port;
+	char  *path;
+	GData *params;
+	char  *query;
+	char  *fragment;
 } CamelURL;
 
-CamelURL *camel_url_new (const char *url_string, CamelException *ex);
+CamelURL *camel_url_new_with_base (CamelURL *base, const char *url_string);
+CamelURL *camel_url_new (const char *url_string);
 char *camel_url_to_string (CamelURL *url, gboolean show_password);
 void camel_url_free (CamelURL *url);
 
@@ -54,10 +58,16 @@ char *camel_url_encode (char *part, gboolean escape_unsafe, char *escape_extra);
 void camel_url_decode (char *part);
 
 /* for editing url's */
-void camel_url_set_protocol(CamelURL *url, const char *);
-void camel_url_set_host(CamelURL *url, const char *);
-void camel_url_set_port(CamelURL *url, int port);
-void camel_url_set_path(CamelURL *url, const char *);
+void camel_url_set_protocol (CamelURL *url, const char *protocol);
+void camel_url_set_user (CamelURL *url, const char *user);
+void camel_url_set_authmech (CamelURL *url, const char *authmech);
+void camel_url_set_passwd (CamelURL *url, const char *passwd);
+void camel_url_set_host (CamelURL *url, const char *host);
+void camel_url_set_port (CamelURL *url, int port);
+void camel_url_set_path (CamelURL *url, const char *path);
+void camel_url_set_param (CamelURL *url, const char *name, const char *value);
+void camel_url_set_query (CamelURL *url, const char *query);
+void camel_url_set_fragment (CamelURL *url, const char *fragment);
 
 /* for putting url's into hash tables */
 guint camel_url_hash (const void *v);
diff --git a/camel/tests/Makefile.am b/camel/tests/Makefile.am
index f604cb81a1..6125c6b134 100644
--- a/camel/tests/Makefile.am
+++ b/camel/tests/Makefile.am
@@ -1,4 +1,3 @@
 
 SUBDIRS = lib \
-	message folder stream
-
+	message folder stream misc
diff --git a/camel/tests/misc/.cvsignore b/camel/tests/misc/.cvsignore
new file mode 100644
index 0000000000..3fa8afaa38
--- /dev/null
+++ b/camel/tests/misc/.cvsignore
@@ -0,0 +1,11 @@
+.deps
+Makefile
+Makefile.in
+.libs
+.deps
+*.lo
+*.la
+*.bb
+*.bbg
+*.da
+*.gcov
diff --git a/camel/tests/misc/Makefile.am b/camel/tests/misc/Makefile.am
new file mode 100644
index 0000000000..1cbcab8c26
--- /dev/null
+++ b/camel/tests/misc/Makefile.am
@@ -0,0 +1,21 @@
+
+INCLUDES = -I$(top_srcdir)/intl -I$(top_srcdir) -I$(top_srcdir)/camel \
+	-I$(includedir) \
+	-I$(top_srcdir)/camel/tests/lib \
+	-DG_LOG_DOMAIN=\"evolution-tests\"	
+
+LDADD = \
+	$(top_builddir)/camel/libcamel.la 	\
+	$(top_builddir)/e-util/libeutil.la	\
+	$(top_builddir)/libibex/libibex.la 	\
+	$(GNOME_LIBDIR) 			\
+	$(top_builddir)/camel/tests/lib/libcameltest.a			\
+	$(GNOMEUI_LIBS) $(INTLLIBS) $(EXTRA_GNOME_LIBS)
+
+check_PROGRAMS =  	\
+	url
+
+TESTS = url
+
+
+
diff --git a/camel/tests/misc/README b/camel/tests/misc/README
new file mode 100644
index 0000000000..d972108860
--- /dev/null
+++ b/camel/tests/misc/README
@@ -0,0 +1,3 @@
+
+url	URL parsing
+
diff --git a/camel/tests/misc/url.c b/camel/tests/misc/url.c
new file mode 100644
index 0000000000..128eb29fc5
--- /dev/null
+++ b/camel/tests/misc/url.c
@@ -0,0 +1,103 @@
+#include <config.h>
+
+#include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <camel/camel-url.h>
+
+#include "camel-test.h"
+
+char *base = "http://a/b/c/d;p?q#f";
+
+struct {
+	char *url_string, *result;
+} tests[] = {
+	{ "g:h", "g:h" },
+	{ "g", "http://a/b/c/g" },
+	{ "./g", "http://a/b/c/g" },
+	{ "g/", "http://a/b/c/g/" },
+	{ "/g", "http://a/g" },
+	{ "//g", "http://g" },
+	{ "?y", "http://a/b/c/d;p?y" },
+	{ "g?y", "http://a/b/c/g?y" },
+	{ "g?y/./x", "http://a/b/c/g?y/./x" },
+	{ "#s", "http://a/b/c/d;p?q#s" },
+	{ "g#s", "http://a/b/c/g#s" },
+	{ "g#s/./x", "http://a/b/c/g#s/./x" },
+	{ "g?y#s", "http://a/b/c/g?y#s" },
+	{ ";x", "http://a/b/c/d;x" },
+	{ "g;x", "http://a/b/c/g;x" },
+	{ "g;x?y#s", "http://a/b/c/g;x?y#s" },
+	{ ".", "http://a/b/c/" },
+	{ "./", "http://a/b/c/" },
+	{ "..", "http://a/b/" },
+	{ "../", "http://a/b/" },
+	{ "../g", "http://a/b/g" },
+	{ "../..", "http://a/" },
+	{ "../../", "http://a/" },
+	{ "../../g", "http://a/g" },
+	{ "", "http://a/b/c/d;p?q#f" },
+	{ "../../../g", "http://a/../g" },
+	{ "../../../../g", "http://a/../../g" },
+	{ "/./g", "http://a/./g" },
+	{ "/../g", "http://a/../g" },
+	{ "g.", "http://a/b/c/g." },
+	{ ".g", "http://a/b/c/.g" },
+	{ "g..", "http://a/b/c/g.." },
+	{ "..g", "http://a/b/c/..g" },
+	{ "./../g", "http://a/b/g" },
+	{ "./g/.", "http://a/b/c/g/" },
+	{ "g/./h", "http://a/b/c/g/h" },
+	{ "g/../h", "http://a/b/c/h" },
+	{ "http:g", "http:g" },
+	{ "http:", "http:" }
+};
+int num_tests = sizeof (tests) / sizeof (tests[0]);
+
+int
+main (int argc, char **argv)
+{
+	CamelURL *base_url, *url;
+	char *url_string;
+	int i;
+
+	camel_test_init (argc, argv);
+
+	camel_test_start ("RFC1808 relative URL parsing");
+
+	camel_test_push ("base URL parsing");
+	base_url = camel_url_new (base);
+	if (!base_url)
+		camel_test_fail ("Could not parse %s\n", base);
+	camel_test_pull ();
+
+	camel_test_push ("base URL unparsing");
+	url_string = camel_url_to_string (base_url, TRUE);
+	if (strcmp (url_string, base) != 0) {
+		camel_test_fail ("URL <%s> unparses to <%s>\n",
+				 base, url_string);
+	}
+	camel_test_pull ();
+	g_free (url_string);
+
+	for (i = 0; i < num_tests; i++) {
+		camel_test_push ("<%s> + <%s> = <%s>?", base, tests[i].url_string, tests[i].result);
+		url = camel_url_new_with_base (base_url, tests[i].url_string);
+		if (!url) {
+			camel_test_fail ("could not parse");
+			camel_test_pull ();
+			continue;
+		}
+
+		url_string = camel_url_to_string (url, TRUE);
+		if (strcmp (url_string, tests[i].result) != 0)
+			camel_test_fail ("got <%s>!", url_string);
+		g_free (url_string);
+		camel_test_pull ();
+	}
+
+	camel_test_end ();
+
+	return 0;
+}