From 160f67d68300cb5bc49f305c16c0d4da5d551821 Mon Sep 17 00:00:00 2001
From: Urban Müller
Date: Mon, 10 Aug 2015 15:58:50 +0200
Subject: adapt tests to strict comparison

---
 tests/it.t          | 22 +++++++++++-----------
 tests/it_url.t      |  2 +-
 tests/it_url_slow.t |  4 ++--
 3 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'tests')

diff --git a/tests/it.t b/tests/it.t
index 02f1f9a..10c4d0e 100755
--- a/tests/it.t
+++ b/tests/it.t
@@ -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
-- 
cgit v1.2.3