1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 7;
BEGIN { use_ok("DBIx::SearchBuilder::Handle"); }
BEGIN { use_ok("DBIx::SearchBuilder::Handle::mysql"); }
my $h = DBIx::SearchBuilder::Handle::mysql->new();
is ($h->QuoteName('foo'), '`foo`', 'QuoteName works as expected');
is ($h->DequoteName('`foo`'), 'foo', 'DequoteName works as expected');
is ($h->DequoteName('`foo'), '`foo', 'DequoteName works as expected');
is ($h->DequoteName('foo`'), 'foo`', 'DequoteName works as expected');
is ($h->DequoteName('"foo"'), '"foo"', 'DequoteName works as expected');
|
