1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
From 4527c099a60d6e78e730c4aea51f55c74f95119d Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Fri, 7 Jul 2017 11:52:55 +1200
Subject: [PATCH] Fix for '.' build and test failures
Bug: https://rt.cpan.org/Ticket/Display.html?id=121741
---
Makefile.PL | 1 +
t/02_main.t | 2 +-
t/03_trivial.t | 2 +-
t/04_class.t | 12 ++++++++----
4 files changed, 11 insertions(+), 6 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
index a5b1f8f..1961b17 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,3 +1,4 @@
+use lib '.';
use inc::Module::Install::DSL 1.04;
all_from lib/ORLite/Migrate.pm
diff --git a/t/02_main.t b/t/02_main.t
index c895f11..ba93eaa 100644
--- a/t/02_main.t
+++ b/t/02_main.t
@@ -8,7 +8,7 @@ BEGIN {
use Test::More tests => 5;
use File::Spec::Functions ':ALL';
use ORLite::Migrate ();
-use t::lib::Test;
+BEGIN { require "./t/lib/Test.pm"; t::lib::Test->import }
# Check for migration patches
my $timeline = catdir( 't', 'data', 'trivial' );
diff --git a/t/03_trivial.t b/t/03_trivial.t
index 63ab9d0..32efa07 100644
--- a/t/03_trivial.t
+++ b/t/03_trivial.t
@@ -7,7 +7,7 @@ BEGIN {
use Test::More tests => 4;
use File::Spec::Functions ':ALL';
-use t::lib::Test;
+BEGIN { require "./t/lib/Test.pm"; t::lib::Test->import }
# Check for migration patches
my $timeline = catdir( 't', 'data', 'trivial' );
diff --git a/t/04_class.t b/t/04_class.t
index 3f33baf..591f3d9 100644
--- a/t/04_class.t
+++ b/t/04_class.t
@@ -8,8 +8,8 @@ BEGIN {
use Test::More tests => 4;
use File::Spec::Functions ':ALL';
use ORLite::Migrate::Timeline ();
-use t::lib::Test;
-use t::lib::MyTimeline;
+BEGIN { require "./t/lib/Test.pm"; t::lib::Test->import }
+BEGIN { require "./t/lib/MyTimeline.pm"; t::lib::Test->import; $INC{"t/lib/MyTimeline.pm"} = "1" }
# Set up the file
my $file = test_db();
@@ -19,12 +19,16 @@ eval <<"END_PERL"; die $@ if $@;
package Foo::Bar;
use strict;
-use ORLite::Migrate {
+BEGIN {
+ require ORLite::Migrate;
+ \@INC=('.', \@INC );
+ ORLite::Migrate->import({
file => '$file',
timeline => 't::lib::MyTimeline',
user_version => 3,
prune => 1,
-};
+ });
+}
1;
END_PERL
--
2.13.1
|
GitWeb