summaryrefslogtreecommitdiff
path: root/devel-utf8/tests/it_url.t
diff options
context:
space:
mode:
Diffstat (limited to 'devel-utf8/tests/it_url.t')
-rwxr-xr-xdevel-utf8/tests/it_url.t135
1 files changed, 0 insertions, 135 deletions
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');
-
-?>