Fix failed tests with Perl 5.25.11

masiuchi · masiuchi · commit 6ed68bf37192 · 2017-04-15T22:17:58.000+09:00
diff --git a/t/01-col-inheritance.t b/t/01-col-inheritance.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 unless (eval { require DBD::SQLite }) {
diff --git a/t/02-basic.t b/t/02-basic.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/03-primary-keys.t b/t/03-primary-keys.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/04-clone.t b/t/04-clone.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/05-deflate.t b/t/05-deflate.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/06-errors.t b/t/06-errors.t
@@ -3,7 +3,7 @@
 use strict;
 
 use lib 't/lib';
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/07-has-a-cached.t b/t/07-has-a-cached.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/07-has-a.t b/t/07-has-a.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/08-iterator.t b/t/08-iterator.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/09-resultset.t b/t/09-resultset.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 $Data::ObjectDriver::DEBUG = 0;
 use Test::More;
diff --git a/t/10-resultset-peek.t b/t/10-resultset-peek.t
@@ -7,7 +7,7 @@ use strict;
 
 use lib 't/lib';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 $Data::ObjectDriver::DEBUG = 0;
 use Test::More;
diff --git a/t/12-windows.t b/t/12-windows.t
@@ -6,7 +6,7 @@ use Data::Dumper;
 use lib 't/lib';
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
diff --git a/t/20-driver-sqlite.t b/t/20-driver-sqlite.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 $Data::ObjectDriver::DEBUG = 0;
 use Test::More;
diff --git a/t/31-cached.t b/t/31-cached.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';  # for Cache::Memory substitute.
 use lib 't/lib/cached';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 BEGIN {
@@ -187,6 +187,6 @@ ok(! Ingredient->lookup(1), "really deleted");
 is($recipe->remove, 1, 'Recipe removed successfully');
 is($recipe2->remove, 1, 'Recipe removed successfully');
 
-require 't/txn-common.pl';
+require './t/txn-common.pl';
 
 sub DESTROY { teardown_dbs(qw( global )); }
diff --git a/t/32-partitioned.t b/t/32-partitioned.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib/partitioned';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 unless (eval { require DBD::SQLite }) {
@@ -123,6 +123,6 @@ is $ingredient3->remove, 1, 'Ingredient removed successfully';
 is $recipe->remove, 1, 'Recipe removed successfully';
 is $recipe2->remove, 1, 'Recipe removed successfully';
 
-require 't/txn-common.pl';
+require './t/txn-common.pl';
 
 sub DESTROY { teardown_dbs(qw( global cluster1 cluster2 )); }
diff --git a/t/33-views.t b/t/33-views.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib/views';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 BEGIN {
diff --git a/t/34-both.t b/t/34-both.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/both';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
@@ -186,6 +186,6 @@ $replaced = Recipe->lookup($rid);
 ok $replaced->{__cached};
 is $replaced->title, 'Cup Cake';
 
-require 't/txn-common.pl';
+require './t/txn-common.pl';
 
 sub DESTROY { teardown_dbs(qw( global cluster1 cluster2 )); }
diff --git a/t/35-multiplexed.t b/t/35-multiplexed.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib/multiplexed';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::Exception;
 use Test::More;
diff --git a/t/41-callbacks.t b/t/41-callbacks.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 unless (eval { require DBD::SQLite }) {
diff --git a/t/42-callbacks-multi-pk.t b/t/42-callbacks-multi-pk.t
@@ -4,7 +4,7 @@ use strict;
 
 use lib 't/lib/partitioned';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 unless (eval { require DBD::SQLite }) {
diff --git a/t/50-profiling.t b/t/50-profiling.t
@@ -5,7 +5,7 @@ use strict;
 use lib 't/lib';
 use lib 't/lib/both';
 
-require 't/lib/db-common.pl';
+require './t/lib/db-common.pl';
 
 use Test::More;
 use Test::Exception;
