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
|
# NOTE : this test was originally written to make sure that SQL::Abstract::More was
# fully compliant with SQL::Abstract. However, the internal protocol for representing
# bind values has changed in SQL::Abstract v2.0 -- therefore the tests no longer pass,
# even if the surface behaviour is still compatible.
use strict;
use warnings;
use Test::More;
use FindBin;
use TAP::Harness;
plan tests => 1;
SKIP: {
$ENV{SQLA_SRC_DIR} or do {
my $msg = 'define $ENV{SQLA_SRC_DIR} to run these tests';
diag $msg;
skip $msg, 1;
};
open my $fh, ">", \my $tap_output;
# all regular SQL::Abstract tests will be run, but through the source filter
# "UsurpSQLA" which is located in this t/lib directory. That filter replaces
# SQL::Abstract by SQL::Abstract::More in the source code.
my $harness = TAP::Harness->new({
lib => ["$ENV{SQLA_SRC_DIR}/lib", "$FindBin::Bin/lib", @INC],
switches => ["-MUsurpSQLA"],
stdout => $fh,
});
my @tests = glob "$ENV{SQLA_SRC_DIR}/t/*.t $ENV{SQLA_SRC_DIR}/t/*/*.t";
diag "Running the whole SQLA test suite through SQLAM..";
my $aggr = $harness->runtests(@tests);
diag $tap_output;
ok $aggr->all_passed, "SQLA tests against SQLAM";
}
|
