-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");