9 use SQL::Abstract::Test qw/is_same_sql_bind/;
13 given => \'colA DESC',
14 expects => ' ORDER BY colA DESC',
15 expects_quoted => ' ORDER BY colA DESC',
19 expects => ' ORDER BY colA',
20 expects_quoted => ' ORDER BY `colA`',
23 given => [qw/colA colB/],
24 expects => ' ORDER BY colA, colB',
25 expects_quoted => ' ORDER BY `colA`, `colB`',
28 given => {-asc => 'colA'},
29 expects => ' ORDER BY colA ASC',
30 expects_quoted => ' ORDER BY `colA` ASC',
33 given => {-desc => 'colB'},
34 expects => ' ORDER BY colB DESC',
35 expects_quoted => ' ORDER BY `colB` DESC',
38 given => [{-asc => 'colA'}, {-desc => 'colB'}],
39 expects => ' ORDER BY colA ASC, colB DESC',
40 expects_quoted => ' ORDER BY `colA` ASC, `colB` DESC',
43 given => ['colA', {-desc => 'colB'}],
44 expects => ' ORDER BY colA, colB DESC',
45 expects_quoted => ' ORDER BY `colA`, `colB` DESC',
54 my $sql = SQL::Abstract->new;
55 my $sqlq = SQL::Abstract->new({quote_char => '`'});
57 plan tests => (scalar(@cases) * 2);
59 for my $case( @cases){
60 is($sql->_order_by($case->{given}), $case->{expects});
61 is($sqlq->_order_by($case->{given}), $case->{expects_quoted});