5 use SQL::Abstract::Test import => ['is_same_sql'];
11 args => {logic => 'OR'},
12 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
17 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
21 args => {case => "upper"},
22 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
26 args => {case => "upper", cmp => "="},
27 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
31 args => {cmp => "=", logic => 'or'},
32 stmt => 'SELECT * FROM test WHERE ( a = ? AND b = ? )'
36 args => {cmp => "like"},
37 stmt => 'SELECT * FROM test WHERE ( a LIKE ? AND b LIKE ? )'
41 args => {logic => "or", cmp => "like"},
42 stmt => 'SELECT * FROM test WHERE ( a LIKE ? AND b LIKE ? )'
46 args => {case => "lower"},
47 stmt => 'select * from test where ( a = ? and b = ? )'
51 args => {case => "lower", cmp => "="},
52 stmt => 'select * from test where ( a = ? and b = ? )'
56 args => {case => "lower", cmp => "like"},
57 stmt => 'select * from test where ( a like ? and b like ? )'
61 args => {case => "lower", convert => "lower", cmp => "like"},
62 stmt => 'select * from test where ( lower(a) like lower(?) and lower(b) like lower(?) )'
66 args => {convert => "Round"},
67 stmt => 'SELECT * FROM test WHERE ( ROUND(a) = ROUND(?) AND ROUND(b) = ROUND(?) )',
71 args => {convert => "lower"},
72 stmt => 'SELECT * FROM test WHERE ( ( LOWER(ticket) = LOWER(?) ) OR ( LOWER(hostname) = LOWER(?) ) OR ( LOWER(taco) = LOWER(?) ) OR ( LOWER(salami) = LOWER(?) ) )',
73 where => [ { ticket => 11 }, { hostname => 11 }, { taco => 'salad' }, { salami => 'punch' } ],
77 args => {convert => "upper"},
78 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(?) ) ) )',
79 where => [ { ticket => [11, 12, 13],
80 hostname => { in => ['ntf', 'avd', 'bvd', '123'] } },
81 { tack => { between => [qw/tick tock/] } },
83 e => { '!=', [qw(f g)] },
84 q => { 'not in', [14..20] } } ],
89 my $sqla = SQL::Abstract->new($_->{args});
90 my($stmt) = $sqla->select(
93 $_->{where} || { a => 4, b => 0}
96 is_same_sql($stmt, $_->{stmt});