Commit | Line | Data |
2b8cc2f2 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use Test::Exception; |
5 | use Data::Dumper::Concise; |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
8 | |
9 | my %expected = ( |
10 | 'DBIx::Class::Storage::DBI' => |
11 | # no default quote_char |
12 | { name_sep => '.' }, |
13 | |
14 | 'DBIx::Class::Storage::DBI::MSSQL' => |
15 | { quote_char => [ '[', ']' ], name_sep => '.' }, |
16 | |
17 | 'DBIx::Class::Storage::DBI::DB2' => |
18 | { quote_char => '"', name_sep => '.' }, |
19 | |
20 | 'DBIx::Class::Storage::DBI::Informix' => |
21 | { quote_char => '"', name_sep => '.' }, |
22 | |
23 | 'DBIx::Class::Storage::DBI::InterBase' => |
24 | { quote_char => '"', name_sep => '.' }, |
25 | |
26 | 'DBIx::Class::Storage::DBI::mysql' => |
27 | { quote_char => '`', name_sep => '.' }, |
28 | |
29 | 'DBIx::Class::Storage::DBI::Pg' => |
30 | { quote_char => '"', name_sep => '.' }, |
31 | |
32 | 'DBIx::Class::Storage::DBI::ODBC::ACCESS' => |
33 | { quote_char => [ '[', ']' ], name_sep => '.' }, |
34 | |
35 | # Not testing this one, it's a pain. |
36 | # 'DBIx::Class::Storage::DBI::ODBC::DB2_400_SQL' => |
37 | # { quote_char => '"', name_sep => qr/must be connected/ }, |
38 | |
39 | 'DBIx::Class::Storage::DBI::Oracle::Generic' => |
40 | { quote_char => '"', name_sep => '.' }, |
41 | |
42 | 'DBIx::Class::Storage::DBI::SQLAnywhere' => |
43 | { quote_char => '"', name_sep => '.' }, |
44 | |
45 | 'DBIx::Class::Storage::DBI::SQLite' => |
46 | { quote_char => '"', name_sep => '.' }, |
47 | |
48 | 'DBIx::Class::Storage::DBI::Sybase::ASE' => |
49 | { quote_char => [ '[', ']' ], name_sep => '.' }, |
50 | ); |
51 | |
665f6286 |
52 | for my $class (keys %expected) { SKIP: { |
53 | eval "require ${class}" |
54 | or skip "Skipping test of quotes for $class due to missing dependencies", 1; |
55 | |
56 | my $mapping = $expected{$class}; |
2b8cc2f2 |
57 | my ($quote_char, $name_sep) = @$mapping{qw/quote_char name_sep/}; |
2b8cc2f2 |
58 | my $instance = $class->new; |
59 | |
60 | my $quote_char_text = dumper($quote_char); |
61 | |
62 | if (exists $mapping->{quote_char}) { |
63 | is_deeply $instance->sql_quote_char, $quote_char, |
64 | "sql_quote_char for $class is $quote_char_text"; |
65 | } |
66 | |
67 | is $instance->sql_name_sep, $name_sep, |
68 | "sql_name_sep for $class is '$name_sep'"; |
665f6286 |
69 | }} |
2b8cc2f2 |
70 | |
71 | # Try quote_names with available DBs. |
72 | |
73 | # SQLite first. |
74 | |
75 | my $schema = DBICTest->init_schema(quote_names => 1); |
76 | |
77 | is $schema->storage->sql_maker->quote_char, '"', |
78 | q{quote_names => 1 sets correct quote_char for SQLite ('"')}; |
79 | |
80 | is $schema->storage->sql_maker->name_sep, '.', |
81 | q{quote_names => 1 sets correct name_sep for SQLite (".")}; |
82 | |
83 | # Now the others. |
84 | |
85 | # Env var to base class mapping, these are the DBs I actually have. |
86 | # -- Caelum |
87 | my %dbs = ( |
88 | ORA => 'DBIx::Class::Storage::DBI::Oracle::Generic', |
89 | PG => 'DBIx::Class::Storage::DBI::Pg', |
90 | MYSQL => 'DBIx::Class::Storage::DBI::mysql', |
91 | DB2 => 'DBIx::Class::Storage::DBI::DB2', |
92 | SYBASE => 'DBIx::Class::Storage::DBI::Sybase::ASE', |
93 | SQLANYWHERE => 'DBIx::Class::Storage::DBI::SQLAnywhere', |
94 | SQLANYWHERE_ODBC => 'DBIx::Class::Storage::DBI::SQLAnywhere', |
95 | FIREBIRD => 'DBIx::Class::Storage::DBI::InterBase', |
96 | FIREBIRD_ODBC => 'DBIx::Class::Storage::DBI::InterBase', |
97 | INFORMIX => 'DBIx::Class::Storage::DBI::Informix', |
98 | MSSQL_ODBC => 'DBIx::Class::Storage::DBI::MSSQL', |
99 | ); |
100 | |
101 | while (my ($db, $base_class) = each %dbs) { |
102 | my ($dsn, $user, $pass) = map $ENV{"DBICTEST_${db}_$_"}, qw/DSN USER PASS/; |
103 | |
104 | next unless $dsn; |
105 | |
106 | my $schema = DBICTest::Schema->connect($dsn, $user, $pass, { |
107 | quote_names => 1 |
108 | }); |
109 | |
110 | my $expected_quote_char = $expected{$base_class}{quote_char}; |
111 | my $quote_char_text = dumper($expected_quote_char); |
112 | |
113 | is_deeply $schema->storage->sql_maker->quote_char, |
114 | $expected_quote_char, |
115 | "$db quote_char with quote_names => 1 is $quote_char_text"; |
116 | |
117 | my $expected_name_sep = $expected{$base_class}{name_sep}; |
118 | |
119 | is $schema->storage->sql_maker->name_sep, |
120 | $expected_name_sep, |
121 | "$db name_sep with quote_names => 1 is '$expected_name_sep'"; |
122 | } |
123 | |
124 | done_testing; |
125 | |
126 | sub dumper { |
127 | my $val = shift; |
128 | |
129 | my $dd = DumperObject; |
130 | $dd->Indent(0); |
131 | return $dd->Values([ $val ])->Dump; |
132 | } |
133 | |
134 | 1; |