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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
use strict;
use ExtUtils::MakeMaker;
my %required =
(
'Set::Object' => 1.10,
"Test::More" => 0,
#"Date::Manip" => 0,
"Time::Piece" => 0,
"Class::Date" => 0,
#"DateTime" => 0,
"Scalar::Util" => 1.14,
"Data::Lazy" => 0.6,
DBI => 0,
);
my %required_soft = map{$_=>1} qw( Time::Piece Class::Date );
my %required_hard = map{$_=>1} qw( Set::Object Scalar::Util DBI Data::Lazy );
my ($skip_tests, $bomb_out);
while (my ($module, $min_ver) = each %required) {
my $mod_ver = "$module".($min_ver ? " $min_ver" : "");
eval "use $mod_ver;";
if($@) {
if (exists $required_hard{$module}) {
$bomb_out = 1;
print STDERR ("$mod_ver not found.\n");
} elsif ( exists $required_soft{$module} ) {
print STDERR ("$mod_ver not found. Some tests and/or "
."functionality may be missing.\n");
} else {
$skip_tests = 1;
print STDERR ("$mod_ver not found. You will not be able "
."to run the test suite.\n");
}
}
}
do { $skip_tests = 1; goto NOTESTS } if $skip_tests or $bomb_out;
use lib '.';
sub yes
{
print ' (Y/n) ';
return <STDIN> =~ /^(Y(e(s)?)?|A(YE|II+!*))?\n?$/i;
}
sub yeah_no # it's an antipodean thing
{
print ' (N/y) ';
return <STDIN> =~ /^(Y(e(s)?)?|A(YE|II+!*))\n?$/i;
}
print q{Do you plan to run the test suite?
(you will need to set up an *EMPTY* database)};
do { $skip_tests = 1; goto NOTESTS } unless yes();
my $configured;
if ($ENV{TANGRAM_CONFIG})
{
print qq{
You have set TANGRAM_CONFIG to $ENV{TANGRAM_CONFIG}.
Should I use it?};
$configured = yes();
unless ($ENV{TANGRAM_CONFIG} eq "t/CONFIG") {
open TCONF, "$ENV{TANGRAM_CONFIG}"
or die "failed to open $ENV{TANGRAM_CONFIG} for reading; $!";
unlink "t/CONFIG";
open CONFIG, ">t/CONFIG"
or die "failed to open t/CONFIG for writing; $!";
while (<TCONF>) { print CONFIG }
close TCONF;
close CONFIG;
}
}
if (!$configured && -e 't/CONFIG')
{
print q{
It looks like there is a 't/CONFIG' file already. It probably contains
connection information from a previous installation. Should I use it?};
$configured = yes();
}
unless ($configured)
{
print q{
Please give me the login and password for accessing the test database.
I must be able to create and drop tables in that database.};
print "\n1) DBI connect string (omit the \'DBI:\' part): ";
my $cs = <STDIN>;
chop $cs;
$cs = "dbi:$cs" unless $cs =~ /^dbi\:/i;
my ($use_tx, $use_subsel, $table_type) = (1, 1);
if ($cs =~ m/:mysql:/i) {
print q{
You have selected the MySQL back-end. Normally, subselects and
transactions are disabled for this database. However, if you are
using MySQL-Max, or some other MySQL version with InnoDB support
compiled in and configured, you can enable the transaction support for
the test suite. If you want to use it in your programs, you'll have
to set no_tx = 0 in the options to Tangram::Storage->connect() (or
hope that the auto-detection of the feature works), and table_type =
InnoDB in the Schema. See Tangram::Schema and Tangram::Storage for
more information.
Alternatively, if you are running MySQL 4.1 or later, you can enable
sub-select tests. It is not possible to use sub-selects with InnoDB
table types.
Use InnoDB tables};
unless (yeah_no()) {
$use_tx = 0;
print "Use sub-selects";
unless (yeah_no()) {
$use_subsel = 0;
}
} else {
$table_type = "InnoDB";
}
}
my ($user, $passwd);
if ( $cs =~ /:sqlite:/i ) {
print q{
You have selected the SQLite back-end. Sub-selects will be disabled.
};
$use_subsel = 0;
$user = $passwd = "";
} else {
print "2) Login: ";
$user = <STDIN>;
chop $user;
print "3) Password: ";
$passwd = <STDIN>;
chop $passwd;
}
print <<'MSG';
Thank you. I am going to save this information to 't/CONFIG'.
If you have given me sensitive information, make sure to destroy
the file when the tests have been completed.
MSG
open CONFIG, '>t/CONFIG' or die "Cannot create 't/CONFIG', reason: $!";
print CONFIG "$cs\n$user\n$passwd\ntx_do = $use_tx\nsubselects = $use_subsel\n".($table_type?"table_type = $table_type\n":"");
close CONFIG;
}
NOTESTS:
my $tests;
if ( $skip_tests ) {
print "TEST SUITE IS DISABLED\n";
$tests = "t/no_tests.t";
} else {
eval "use Test::Manifest";
if ( $@ ) {
open TESTS, "<t/test_manifest" or die $!;
$tests = join " ", map { chomp; "t/$_" } <TESTS>;
close TESTS;
}
else {
* ExtUtils::MM_Any::test_via_harness = sub
{
my($self, $perl, $tests) = @_;
return (qq|\t$perl "-MTest::Manifest" | .
qq|"-e" "run_t_manifest(\$(TEST_VERBOSE), |.
qq|'\$(INST_LIB)', | .
qq|'\$(INST_ARCHLIB)')"\n|);
};
}
}
# all this ... just to skip delivering one file!
use File::Find;
my %PM;
find(sub {
m/\.(pod|pm)$/ && do {
my $src = $File::Find::name;
(my $targ = $src) =~ s{lib}{\$(INST_LIBDIR)};
($PM{$src} = $targ);
};
}, "lib");
WriteMakefile(
'NAME' => 'Tangram',
'VERSION_FROM' => 'lib/Tangram.pm', # finds $VERSION
PREREQ_PM => \%required,
PM => \%PM,
test => { TESTS => $tests },
);
|
