From 1b27dac832833706b512c5f4c05c1abd97ce3801 Mon Sep 17 00:00:00 2001
From: Mark Tompsett <mtompset@hotmail.com>
Date: Fri, 1 May 2015 21:36:23 -0400
Subject: [PATCH] Bug 14117: Silence warnings t/SearchPazPar2.t

The use of relative URLS (null actually), triggers warnings.
Catch them, instead of letting them loose.

TEST PLAN
---------
1) $ prove t/Search_PazPar2.t
   -- noise for each test currently.
2) apply patch
3) $ prove t/Search_PazPar2.t
   -- No noise, and extra tests added.
      -v shows caught warning tests.
4) koha qa test tools.
---
 t/Search_PazPar2.t | 43 ++++++++++++++++++++++++++++++++++---------
 1 file changed, 34 insertions(+), 9 deletions(-)

diff --git a/t/Search_PazPar2.t b/t/Search_PazPar2.t
index 5af0ac4..62b622d 100755
--- a/t/Search_PazPar2.t
+++ b/t/Search_PazPar2.t
@@ -3,10 +3,10 @@
 # This Koha test module is a stub!  
 # Add more tests here!!!
 
-use strict;
-use warnings;
+use Modern::Perl;
 
-use Test::More tests => 8;
+use Test::More tests => 14;
+use Test::Warn;
 
 BEGIN {
         use_ok('C4::Search::PazPar2');
@@ -14,9 +14,34 @@ BEGIN {
 
 my $obj = C4::Search::PazPar2->new();
 ok ($obj, "testing new works");
-is ($obj->init(), "1", "testing init returns '1' when given no arguments");
-is ($obj->search(), "1", "testing search returns '1' when given no arguments");
-is ($obj->stat(), undef, "testing stat returns undef when given no arguments");
-is ($obj->show(), undef, "testing show returns undef when given no arguments");
-is ($obj->record(), undef, "testing record returns undef when given no arguments");
-is ($obj->termlist(), undef, "testing termlist returns undef when given no arguments");
+
+my $result;
+warning_like { $result = $obj->init(); }
+    qr/400 URL must be absolute at .*C4\/Search\/PazPar2.pm/,
+    "Expected relative URL warning";
+is ($result, "1", "testing init returns '1' when given no arguments");
+
+warning_like { $result = $obj->search(); }
+    qr/400 URL must be absolute at .*C4\/Search\/PazPar2.pm/,
+    "Expected relative URL warning";
+is ($result, "1", "testing search returns '1' when given no arguments");
+
+warning_like { $result = $obj->stat(); }
+    qr/400 URL must be absolute at .*C4\/Search\/PazPar2.pm/,
+    "Expected relative URL warning";
+is ($result, undef, "testing stat returns undef when given no arguments");
+
+warning_like { $result = $obj->show(); }
+    qr/400 URL must be absolute at .*C4\/Search\/PazPar2.pm/,
+    "Expected relative URL warning";
+is ($result, undef, "testing show returns undef when given no arguments");
+
+warning_like { $result = $obj->record(); }
+    qr/400 URL must be absolute at .*C4\/Search\/PazPar2.pm/,
+    "Expected relative URL warning";
+is ($result, undef, "testing record returns undef when given no arguments");
+
+warning_like { $result = $obj->termlist(); }
+    qr/400 URL must be absolute at .*C4\/Search\/PazPar2.pm/,
+    "Expected relative URL warning";
+is ($result, undef, "testing termlist returns undef when given no arguments");
-- 
2.1.4