5 use SQL::Abstract::Test import => ['is_same_sql_bind'];
7 #LDNOTE: renamed all "bind" into "where" because that's what they are
12 args => {logic => 'OR'},
13 # stmt => 'SELECT * FROM test WHERE ( a = ? OR b = ? )'
14 # LDNOTE: modified the line above (changing the test suite!!!) because
15 # the test was not consistent with the doc: hashrefs should not be
16 # influenced by the current logic, they always mean 'AND'. So
17 # { a => 4, b => 0} should ALWAYS mean ( a = ? AND b = ? ).
20 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
26 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
30 args => {case => "upper"},
31 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
35 args => {case => "upper", cmp => "="},
36 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
40 args => {cmp => "=", logic => 'or'},
42 # stmt => 'SELECT * FROM test WHERE ( a = ? OR b = ? )'
44 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
48 args => {cmp => "like"},
49 stmt => 'SELECT * FROM test WHERE ( a LIKE ? AND b LIKE ? )'
53 args => {logic => "or", cmp => "like"},
55 # stmt => 'SELECT * FROM test WHERE ( a LIKE ? OR b LIKE ? )'
57 stmt => 'SELECT * FROM test WHERE ( a LIKE ? AND b LIKE ? )'
62 args => {case => "lower"},
63 stmt => 'select * from test where ( a = ? and b = ? )'
68 args => {case => "lower", cmp => "="},
69 stmt => 'select * from test where ( a = ? and b = ? )'
74 args => {case => "lower", cmp => "like"},
75 stmt => 'select * from test where ( a like ? and b like ? )'
80 args => {case => "lower", convert => "lower", cmp => "like"},
81 stmt => 'select * from test where ( lower(a) like lower(?) and lower(b) like lower(?) )'
85 args => {convert => "Round"},
86 stmt => 'SELECT * FROM test WHERE ( ROUND(a) = ROUND(?) AND ROUND(b) = ROUND(?) )',
91 args => {convert => "lower"},
92 stmt => 'SELECT * FROM test WHERE ( ( LOWER(ticket) = LOWER(?) ) OR ( LOWER(hostname) = LOWER(?) ) OR ( LOWER(taco) = LOWER(?) ) OR ( LOWER(salami) = LOWER(?) ) )',
93 where => [ { ticket => 11 }, { hostname => 11 }, { taco => 'salad' }, { salami => 'punch' } ],
97 todo => 'SQL::A::Test bug?',
98 args => {convert => "upper"},
99 stmt => 'SELECT * FROM test WHERE ( ( UPPER(hostname) IN ( UPPER(?), UPPER(?), UPPER(?), UPPER(?) ) AND ( ( UPPER(ticket) = UPPER(?) ) OR ( UPPER(ticket) = UPPER(?) ) OR ( UPPER(ticket) = UPPER(?) ) ) ) OR ( UPPER(tack) BETWEEN UPPER(?) AND UPPER(?) ) OR ( ( ( UPPER(a) = UPPER(?) ) OR ( UPPER(a) = UPPER(?) ) OR ( UPPER(a) = UPPER(?) ) ) AND ( ( UPPER(e) != UPPER(?) ) OR ( UPPER(e) != UPPER(?) ) ) AND UPPER(q) NOT IN ( UPPER(?), UPPER(?), UPPER(?), UPPER(?), UPPER(?), UPPER(?), UPPER(?) ) ) )',
100 where => [ { ticket => [11, 12, 13],
101 hostname => { in => ['ntf', 'avd', 'bvd', '123'] } },
102 { tack => { between => [qw/tick tock/] } },
104 e => { '!=', [qw(f g)] },
105 q => { 'not in', [14..20] } } ],
111 plan tests => (1 + scalar(@handle_tests));
113 use_ok('SQL::Abstract::Compat');
115 for (@handle_tests) {
116 my $sql = SQL::Abstract::Compat->new($_->{args});
117 my $where = $_->{where} || { a => 4, b => 0};
118 my($stmt, @bind) = $sql->select('test', '*', $where);
120 local $TODO = $_->{todo};
122 # LDNOTE: this original test suite from NWIGER did no comparisons
123 # on @bind values, just checking if @bind is nonempty.
124 # So here we just fake a [1] bind value for the comparison.
125 is_same_sql_bind($stmt, [@bind ? 1 : 0], $_->{stmt}, [1]);