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
|
use strict;
use warnings;
use Test::More;
use Data::Dumper::Concise;
use Try::Tiny;
use lib qw(t/lib);
use DBICTest;
my %expected = (
'DBIx::Class::Storage::DBI' =>
# no default quote_char
{ name_sep => '.' },
'DBIx::Class::Storage::DBI::MSSQL' =>
{ quote_char => [ '[', ']' ], name_sep => '.' },
'DBIx::Class::Storage::DBI::DB2' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::Informix' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::InterBase' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::mysql' =>
{ quote_char => '`', name_sep => '.' },
'DBIx::Class::Storage::DBI::Pg' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::ODBC::ACCESS' =>
{ quote_char => [ '[', ']' ], name_sep => '.' },
# Not testing this one, it's a pain.
# 'DBIx::Class::Storage::DBI::ODBC::DB2_400_SQL' =>
# { quote_char => '"', name_sep => qr/must be connected/ },
'DBIx::Class::Storage::DBI::Oracle::Generic' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::SQLAnywhere' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::SQLite' =>
{ quote_char => '"', name_sep => '.' },
'DBIx::Class::Storage::DBI::Sybase::ASE' =>
{ quote_char => [ '[', ']' ], name_sep => '.' },
);
for my $class (keys %expected) { SKIP: {
eval "require ${class}"
or skip "Skipping test of quotes for $class due to missing dependencies", 1;
my $mapping = $expected{$class};
my ($quote_char, $name_sep) = @$mapping{qw/quote_char name_sep/};
my $instance = $class->new;
my $quote_char_text = dumper($quote_char);
if (exists $mapping->{quote_char}) {
is_deeply $instance->sql_quote_char, $quote_char,
"sql_quote_char for $class is $quote_char_text";
}
is $instance->sql_name_sep, $name_sep,
"sql_name_sep for $class is '$name_sep'";
}}
# Try quote_names with available DBs.
# Env var to base class mapping, these are the DBs I actually have.
# the SQLITE is a fake memory dsn
local $ENV{DBICTEST_SQLITE_DSN} = 'dbi:SQLite::memory:';
my %dbs = (
SQLITE => 'DBIx::Class::Storage::DBI::SQLite',
ORA => 'DBIx::Class::Storage::DBI::Oracle::Generic',
PG => 'DBIx::Class::Storage::DBI::Pg',
MYSQL => 'DBIx::Class::Storage::DBI::mysql',
DB2 => 'DBIx::Class::Storage::DBI::DB2',
SYBASE => 'DBIx::Class::Storage::DBI::Sybase::ASE',
SQLANYWHERE => 'DBIx::Class::Storage::DBI::SQLAnywhere',
SQLANYWHERE_ODBC => 'DBIx::Class::Storage::DBI::SQLAnywhere',
FIREBIRD => 'DBIx::Class::Storage::DBI::InterBase',
FIREBIRD_ODBC => 'DBIx::Class::Storage::DBI::InterBase',
INFORMIX => 'DBIx::Class::Storage::DBI::Informix',
MSSQL_ODBC => 'DBIx::Class::Storage::DBI::MSSQL',
);
# lie that we already locked stuff - the tests below do not touch anything
# unless we are under travis, where the OOM killers reign and things are rough
$ENV{DBICTEST_LOCK_HOLDER} = -1
unless DBICTest::RunMode->is_ci;
# Make sure oracle is tried last - some clients (e.g. 10.2) have symbol
# clashes with libssl, and will segfault everything coming after them
for my $db (sort {
$a eq 'ORA' ? 1
: $b eq 'ORA' ? -1
: $a cmp $b
} keys %dbs) {
my ($dsn, $user, $pass) = map $ENV{"DBICTEST_${db}_$_"}, qw/DSN USER PASS/;
next unless $dsn;
my $schema;
my $sql_maker = try {
$schema = DBICTest::Schema->connect($dsn, $user, $pass, {
quote_names => 1
});
$schema->storage->ensure_connected;
$schema->storage->sql_maker;
} || next;
my ($exp_quote_char, $exp_name_sep) =
@{$expected{$dbs{$db}}}{qw/quote_char name_sep/};
my ($quote_char_text, $name_sep_text) = map { dumper($_) }
($exp_quote_char, $exp_name_sep);
is_deeply $sql_maker->quote_char,
$exp_quote_char,
"$db quote_char with quote_names => 1 is $quote_char_text";
is $sql_maker->name_sep,
$exp_name_sep,
"$db name_sep with quote_names => 1 is $name_sep_text";
# if something was produced - it better be quoted
if (
# the SQLT producer has no idea what quotes are :/
! grep { $db eq $_ } qw( SYBASE DB2 )
and
my $ddl = try { $schema->deployment_statements }
) {
my $quoted_artist = $sql_maker->_quote('artist');
like ($ddl, qr/^CREATE\s+TABLE\s+\Q$quoted_artist/msi, "$db DDL contains expected quoted table name");
}
}
done_testing;
sub dumper {
my $val = shift;
my $dd = DumperObject;
$dd->Indent(0);
return $dd->Values([ $val ])->Dump;
}
1;
|
