summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rwxr-xr-xtest/it_url_slow.t14
1 files changed, 14 insertions, 0 deletions
diff --git a/test/it_url_slow.t b/test/it_url_slow.t
index 51da6b9..1f43edc 100755
--- a/test/it_url_slow.t
+++ b/test/it_url_slow.t
@@ -51,6 +51,20 @@ $output = server_output();
if (!$res || !$res2)
diag($output);
+$start = microtime(true);
+$res = ok(
+ !it_url::get(['url' => 'http://localhost:8000/slow_response', 'maxlength' => 10, 'retries' => 0, 'it_error' => false]),
+ 'it_url::get() fails for response larger than maxlength'
+);
+$res2 = is(
+ intval(microtime(true) - $start), 1,
+ '... and fails as soon as maxlength is surpassed'
+);
+sleep(1); # wait for testserver
+$output = server_output();
+if (!$res || !$res2)
+ diag($output);
+
handle_server(
ok(
it_url::get(U('http://localhost:8000/repeat', ['string' => "abc", 'num' => 1024 * 1024])) == str_repeat("abc", 1024 * 1024),