Populated release branch

1 files changed, 70 insertions, 0 deletions

diff --git a/tests/it_url.t b/tests/it_url.t
new file mode 100755
index 0000000..bc63bcb
--- /dev/null
+++ b/tests/it_url.t
@@ -0,0 +1,70 @@
+#!/www/server/bin/php -qC
+<?php
+
+# Tests for url.class, currently only constructor's parser
+
+require 'searchlib/search_test.class';
+
+# Create object and parse url
+$url = new it_url('HTTP://falcon:joshua@www.Relog.CH:80/default.asp');
+
+plan(9);
+
+is(
+	$url->url,
+	'http://www.relog.ch/',
+	'$url->url'
+);
+
+is(
+	$url->protocol,
+	'http',
+	'$url->protocol'
+);
+
+is(
+	$url->hostname,
+	'relog.ch',
+	'$url->hostname'
+);
+
+is(
+	$url->realhostname,
+	'www.relog.ch',
+	'$url->realhostname'
+);
+
+is(
+	$url->port,
+	80,
+	'$url->port'
+);
+
+is(
+	$url->path,
+	'',
+	'$url->path'
+);
+
+is(
+	$url->user,
+	'falcon',
+	'$url->user'
+);
+
+is(
+	$url->pass,
+	'joshua',
+	'$url->pass'
+);
+
+# and now check for path
+$url = new it_url('HTTP://falcon:joshua@www.Relog.CH:80/foo/bar.html');
+
+is(
+	$url->path,
+	'foo/bar.html',
+	'$url->path'
+);
+
+?>