From 338cda9000356404cf2865d61787607acf67fe98 Mon Sep 17 00:00:00 2001
From: Nathan Gass
Date: Thu, 22 Mar 2012 18:23:53 +0000
Subject: last remains of wrong branch itools/live/devel-utf8 removed

---
 devel-utf8/tests/it_url.t | 135 ----------------------------------------------
 1 file changed, 135 deletions(-)
 delete mode 100755 devel-utf8/tests/it_url.t

(limited to 'devel-utf8/tests/it_url.t')

diff --git a/devel-utf8/tests/it_url.t b/devel-utf8/tests/it_url.t
deleted file mode 100755
index e8507aa..0000000
--- a/devel-utf8/tests/it_url.t
+++ /dev/null
@@ -1,135 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for url.class, currently only constructor's parser
-
-# Create object and parse url
-$url = new it_url('HTTP://falcon:joshua@www.Relog.CH:80/default.asp');
-
-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'
-);
-
-$_SERVER['HTTP_HOST'] = "gna.ch";
-is(
-	it_url::absolute("/"),
-	'http://gna.ch:/',
-	'it_url::absolute basic'
-);
-
-$_SERVER['SERVER_PORT'] = 42;
-is(
-	it_url::absolute("/port"),
-	'http://gna.ch:42/port',
-	'it_url::absolute with non-standard port'
-);
-
-$_SERVER['HTTPS'] = true;
-$_SERVER['SERVER_PORT'] = 443;
-is(
-	it_url::absolute("/https"),
-	'https://gna.ch/https',
-	'it_url::absolute for https'
-);
-
-$url = new it_url('http://www.gna.ch/');
-$page = $url->get();
-is(
-	it::match('(</html>)', $page),
-	'</html>',
-	'$url->get with url in constructor'
-);
-
-$url = new it_url('http://bogus.url');
-$page = $url->get('http://www.gna.ch/');
-is(
-	it::match('(</html>)', $page),
-	'</html>',
-	'$url->get(url) with url as string arg'
-);
-
-$url = new it_url('http://bogus.url');
-$page = $url->get(array('url' => 'http://www.gna.ch/'));
-is(
-	it::match('(</html>)', $page),
-	'</html>',
-	'$url->get(\'url\' => url) with url as named arg'
-);
-is(
-	$url->result,
-	200,
-	'$url->result = 200'
-);
-is(
-	$url->headers['Connection'],
-	'close',
-	'$url->headers correctly set'
-);
-
-unset($url, $page);
-$page = it_url::get('http://www.gna.ch/');
-is(
-	it::match('(</html>)', $page),
-	'</html>',
-	'it_url::get() static call'
-);
-
-$pages = it_url::get_multi('urls' => array('a' => 'http://www.gna.ch/', 'b' => 'http://search.ch/'));
-ok(it::match('</html>', $pages['a']), 'it_url::get_multi got first url');
-ok(it::match('</html>', $pages['b']), 'it_url::get_multi got second url');
-is(count($pages), 2, 'it_url::get_multi no additional array elements');
-
-?>
-- 
cgit v1.2.3