From 3dabbbd5325c9fad9582cd44b1da68dece78eaa0 Mon Sep 17 00:00:00 2001 From: Urban Müller Date: Thu, 21 Jun 2018 16:42:32 +0200 Subject: no reason for different naming --- tests/it_url.t | 315 --------------------------------------------------------- 1 file changed, 315 deletions(-) delete mode 100755 tests/it_url.t (limited to 'tests/it_url.t') diff --git a/tests/it_url.t b/tests/it_url.t deleted file mode 100755 index eb36dd6..0000000 --- a/tests/it_url.t +++ /dev/null @@ -1,315 +0,0 @@ -#!/www/server/bin/php -qC -url, - 'http://www.relog.ch/default.asp', - '$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, - 'default.asp', - '$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' -); - -# punycode test -$url = new it_url('http://www.sörtsch.ch/?q=ültra#sörtsch'); -is( - $url->realhostname, - 'www.xn--srtsch-wxa.ch', - 'punycode $url->realhostname' -); - -# it_url::absolute() tests -list ($_SERVER['HTTP_HOST'], $_SERVER['SERVER_PORT'], $_SERVER['HTTPS']) = ["gna.ch", null, null]; -is( - it_url::absolute("/"), - 'http://gna.ch/', - 'it_url::absolute basic' -); - -list ($_SERVER['HTTP_HOST'], $_SERVER['SERVER_PORT'], $_SERVER['HTTPS']) = ["gna.ch:42", 42, null]; -is( - it_url::absolute("/port"), - 'http://gna.ch:42/port', - 'it_url::absolute with non-standard port' -); - -list ($_SERVER['HTTP_HOST'], $_SERVER['SERVER_PORT'], $_SERVER['HTTPS']) = ["gna.ch", 443, true]; -is( - it_url::absolute("/https"), - 'https://gna.ch/https', - 'it_url::absolute for https' -); - -list ($_SERVER['HTTP_HOST'], $_SERVER['SERVER_PORT'], $_SERVER['HTTPS']) = ["gna.ch", null, null]; -is( - it_url::absolute("/https", "https"), - 'https://gna.ch/https', - 'it_url::absolute force https in http context' -); - -list ($_SERVER['HTTP_HOST'], $_SERVER['SERVER_PORT'], $_SERVER['HTTPS']) = ["gna.ch", 443, true]; -is( - it_url::absolute("/foo", "http"), - 'http://gna.ch/foo', - 'it_url::absolute force http in https context' -); - -list ($_SERVER['HTTP_HOST'], $_SERVER['SERVER_PORT'], $_SERVER['HTTPS']) = ["gna.ch", null, null]; -is( - it_url::absolute("http://gna.ch/foo", "https"), - 'https://gna.ch/foo', - 'it_url::absolute force https overwriting existing url' -); - - -$url = new it_url('http://www.gna.ch/'); -$page = $url->get(); -ok( - strpos($page, ''), # UTF8SAFE - '$url->get with url in constructor' -); - -$url = new it_url('http://bogus.url'); -$page = $url->get('http://www.gna.ch/'); -ok( - strpos($page, ''), # UTF8SAFE - '$url->get(url) with url as string arg' -); - -$url = new it_url('http://bogus.url'); -$page = $url->get(array('url' => 'http://www.gna.ch/')); -ok( - strpos($page, ''), # UTF8SAFE - '$url->get(\'url\' => url) with url as named arg' -); -is( - $url->result, - '200', - '$url->result = 200' -); -is( - $url->headers['Server'], - 'Apache', - '$url->headers correctly set' -); - -unset($url, $page); -$page = it_url::get('http://www.gna.ch/'); -ok( - strpos($page, ''), # UTF8SAFE - 'it_url::get() static call' -); - -require 'it_url_server.php'; - -handle_server( - is( - it_url::get('http://localhost:8000/'), - "Testserver root output", - 'it_url::get() static call with port' - ) -); - -handle_server( - is( - it_url::get('//localhost:8000/'), - "Testserver root output", - 'it_url::get() static call with port but no protocol' - ) -); - -handle_server( - is( - it_url::get(['url' => 'http://localhost:8000/', 'maxlength' => 100]), - "Testserver root output", - 'it_url::get() static call with port and maxlength' - ) -); - -handle_server( - is( - it_url::get(['url' => 'http://localhost:8000/', 'maxlength' => 5, 'it_error' => false]), - false, - 'it_url::get() static call with port and too small maxlength' - ) -); - -handle_server( - is( - it_url::get('http://localhost:8000/temp_redirect'), - "Testserver output after temporary redirect", - 'it_url::get() follows temproary redirect' - ) -); - -handle_server( - is( - it_url::get('http://localhost:8000/perm_redirect'), - "Testserver output after permanent redirect", - 'it_url::get() follows permanent redirect' - ) -); - -handle_server( - is( - it_url::get(['url' => 'http://localhost:8000/relative_redirect', 'it_error' => false]), - "Testserver output after relative redirect", - 'it_url::get() follows relative redirect correctly' - ) -); - -handle_server( - is( - it_url::get('http://localhost:8000/nohost_redirect'), - "Testserver output after nohost redirect", - 'it_url::get() follows redirect without host correctly' - ) -); - -handle_server( - is( - it_url::get('http://localhost:8000/created_redirect'), - "Testserver output *before* created redirect", - 'it_url::get() does not follow Location of 201 (Created) result' - ) -); - -$output = handle_server( - ok( - !it_url::get(array('url' => U('http://localhost:8000/redirect_loop', array('num' => 40)), 'it_error' => false)), - 'it_url::get() handles redirect loop' - ) -); -$last_num = it::match('num=(\d+)', end($output)); -if (!ok( - $last_num == 20, - 'it_url::get() aborts redirect loop after 5 redirects' -)) - diag($output); - -$output = handle_server( - ok( - !it_url::get(array('url' => 'http://localhost:8000/does_not_exist', 'retries' => 4)), - 'it_url::get() on 404' - ) -); -if (!ok( - count(preg_grep('/^Got Request:/', $output)) == 1, - 'it_url::get() does not retry on 404' -)) - diag($output); - -$output = handle_server( - ok( - !it_url::get(array('url' => 'http://localhost:8000/repeat?num=0', 'retries' => 4)), - 'it_url::get() on empty page' - ) -); -if (!ok( - count(preg_grep('/^Got Request:/', $output)) == 5, - 'it_url::get() does retry on empty page' -)) - diag($output); - -handle_server( - is( - it_url::get(U('http://localhost:8000/get_server_value', array('key' => 'HTTP_HOST'))), - 'localhost:8000', - 'it_url::get() sets correct Host header' - ) -); - -handle_server( - is( - it_url::get(U('http://localhost:8000/get_server_value', array('key' => 'HTTP_ACCEPT_LANGUAGE'))), - T_lang(), - 'it_url::get() sets correct Accept-Language header' - ) -); - -handle_server( - ok( - it::match('Mozilla', it_url::get(U('http://localhost:8000/get_server_value', array('key' => 'HTTP_USER_AGENT')))), - 'it_url::get() sets User-Agent containing Mozilla' - ) -); - -handle_server( - is( - it_url::get(U('http://user:password@localhost:8000/get_server_value', array('key' => 'PHP_AUTH_USER'))), - 'user', - 'it_url::get() basic authentication user' - ) -); - -handle_server( - is( - it_url::get(U('http://user:password@localhost:8000/get_server_value', array('key' => 'PHP_AUTH_PW'))), - 'password', - 'it_url::get() basic authentication password' - ) -); - -$pages = it_url::get_multi(array('urls' => array('a' => 'http://www.gna.ch/', 'b' => 'http://search.ch/'))); -ok(strpos($pages['a'], ''), 'it_url::get_multi got first url'); # UTF8SAFE -ok(strpos($pages['b'], ''), 'it_url::get_multi got second url'); # UTF8SAFE -is(count($pages), 2, 'it_url::get_multi no additional array elements'); - -is(it_url::parse("/foo"), array("/foo"), "it_url::parse path only"); -is(it_url::parse("/foo?"), array("/foo"), "it_url::parse empty parameter"); -is(it_url::parse("/foo?bar=baz&qux=quux"), array("/foo", 'bar' => "baz", 'qux' => "quux"), "it_url::parse parameters"); -- cgit v1.2.3