diff options
| -rwxr-xr-x | tests/it.t | 22 | ||||
| -rwxr-xr-x | tests/it_url.t | 2 | ||||
| -rwxr-xr-x | tests/it_url_slow.t | 4 |
3 files changed, 14 insertions, 14 deletions
@@ -58,25 +58,25 @@ match( match( '\bblah\b', 'ablahc', - false, + null, 'don\'t match \b at word chars' ); match( '\bblah\b', 'Üblahä', - false, + null, 'don\'t match \b at umlaute' ); match( '\Bblah\B', ' blah ', - false, + null, 'don\'t match \B at spaces' ); match( '\Bblah\B', 'blah', - false, + null, 'don\'t match \B at end of string' ); @@ -112,7 +112,7 @@ match( match( '\ba', 'äa', - '', + null, '\b must know umlauts' ); @@ -133,19 +133,19 @@ $escapedwordregex = preg_replace('|[\\\\/]|', '', $escapedwordregex); match( '\\\\w+', $escapedwordregex, - false, + null, 'don\'t parse \w in \\\\w at beginning (no match)' ); match( 'aaa\\\\w+', 'aaa' . $escapedwordregex, - false, + null, 'don\'t parse \w in \\\\w after chars (no match)' ); match( '\\\\\\\\w+', '\\' . $escapedwordregex, - false, + null, 'don\'t parse \w in \\\\\\\w (no match)' ); @@ -157,7 +157,7 @@ match( match( '[\w]+', '[[[]]]---', - false, + null, 'replace \w in [\w] correctly (no match)' ); @@ -169,7 +169,7 @@ match( match( '[\\\\w]+', ' blabergna ', - false, + null, 'don\'t parse \w in [\\\\w] (no match)' ); @@ -239,7 +239,7 @@ match( match( 'abc', "aBc", - false, + null, "set case sensitivity by parameter", array('casesensitive' => 1) ); diff --git a/tests/it_url.t b/tests/it_url.t index 711b5f1..c843bba 100755 --- a/tests/it_url.t +++ b/tests/it_url.t @@ -109,7 +109,7 @@ ok( ); is( $url->result, - 200, + '200', '$url->result = 200' ); is( diff --git a/tests/it_url_slow.t b/tests/it_url_slow.t index 74440ce..aa85a80 100755 --- a/tests/it_url_slow.t +++ b/tests/it_url_slow.t @@ -21,7 +21,7 @@ $res = ok( 'it_url::get() fails after timeout seconds with no output', ); $res2 = is( - floor(microtime(true) - $start), 5, + intval(microtime(true) - $start), 5, '... and fails as soon as timeout is surpassed', ); sleep(1); # wait for testserver @@ -43,7 +43,7 @@ $res = ok( 'it_url::get() fails for response slower than totaltimeout', ); $res2 = is( - floor(microtime(true) - $start), 5, + intval(microtime(true) - $start), 5, '... and fails as soon as totaltimeout is surpassed' ); sleep(1); # wait for testserver |