diff options
Diffstat (limited to 'test/it_url.t')
| -rwxr-xr-x | test/it_url.t | 315 |
1 files changed, 315 insertions, 0 deletions
diff --git a/test/it_url.t b/test/it_url.t new file mode 100755 index 0000000..eb36dd6 --- /dev/null +++ b/test/it_url.t @@ -0,0 +1,315 @@ +#!/www/server/bin/php -qC +<?php + +# Tests for url.class, currently only constructor's parser + +it::getopt("Usage: it_url.t [OPTIONS]"); + +# 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/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, '</html>'), # UTF8SAFE + '$url->get with url in constructor' +); + +$url = new it_url('http://bogus.url'); +$page = $url->get('http://www.gna.ch/'); +ok( + strpos($page, '</html>'), # 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, '</html>'), # 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, '</html>'), # 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'], '</html>'), 'it_url::get_multi got first url'); # UTF8SAFE +ok(strpos($pages['b'], '</html>'), '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"); |