Commit | Line | Data |
f5aab26e |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
952f9e2d |
6 | use Test::Exception; |
f5aab26e |
7 | |
8 | use SQL::Abstract; |
9 | |
5aad8cf3 |
10 | use SQL::Abstract::Test import => ['is_same_sql_bind']; |
f5aab26e |
11 | my @cases = |
12 | ( |
13 | { |
14 | given => \'colA DESC', |
15 | expects => ' ORDER BY colA DESC', |
16 | expects_quoted => ' ORDER BY colA DESC', |
17 | }, |
18 | { |
19 | given => 'colA', |
20 | expects => ' ORDER BY colA', |
21 | expects_quoted => ' ORDER BY `colA`', |
22 | }, |
71519cf6 |
23 | { # it may look odd, but this is the desired behaviour (mst) |
24 | given => 'colA DESC', |
25 | expects => ' ORDER BY colA DESC', |
26 | expects_quoted => ' ORDER BY `colA DESC`', |
27 | }, |
f5aab26e |
28 | { |
29 | given => [qw/colA colB/], |
30 | expects => ' ORDER BY colA, colB', |
31 | expects_quoted => ' ORDER BY `colA`, `colB`', |
32 | }, |
71519cf6 |
33 | { # it may look odd, but this is the desired behaviour (mst) |
34 | given => ['colA ASC', 'colB DESC'], |
35 | expects => ' ORDER BY colA ASC, colB DESC', |
36 | expects_quoted => ' ORDER BY `colA ASC`, `colB DESC`', |
37 | }, |
f5aab26e |
38 | { |
39 | given => {-asc => 'colA'}, |
40 | expects => ' ORDER BY colA ASC', |
41 | expects_quoted => ' ORDER BY `colA` ASC', |
42 | }, |
43 | { |
44 | given => {-desc => 'colB'}, |
45 | expects => ' ORDER BY colB DESC', |
46 | expects_quoted => ' ORDER BY `colB` DESC', |
47 | }, |
48 | { |
49 | given => [{-asc => 'colA'}, {-desc => 'colB'}], |
50 | expects => ' ORDER BY colA ASC, colB DESC', |
51 | expects_quoted => ' ORDER BY `colA` ASC, `colB` DESC', |
52 | }, |
1cfa1db3 |
53 | { |
54 | given => ['colA', {-desc => 'colB'}], |
55 | expects => ' ORDER BY colA, colB DESC', |
56 | expects_quoted => ' ORDER BY `colA`, `colB` DESC', |
57 | }, |
b6475fb1 |
58 | { |
59 | given => undef, |
60 | expects => '', |
61 | expects_quoted => '', |
62 | }, |
994edb77 |
63 | |
64 | { |
65 | given => [{-desc => [ qw/colA colB/ ] }], |
66 | expects => ' ORDER BY colA DESC, colB DESC', |
67 | expects_quoted => ' ORDER BY `colA` DESC, `colB` DESC', |
68 | }, |
69 | { |
70 | given => [{-desc => [ qw/colA colB/ ] }, {-asc => 'colC'}], |
71 | expects => ' ORDER BY colA DESC, colB DESC, colC ASC', |
72 | expects_quoted => ' ORDER BY `colA` DESC, `colB` DESC, `colC` ASC', |
73 | }, |
74 | { |
75 | given => [{-desc => [ qw/colA colB/ ] }, {-asc => [ qw/colC colD/ ] }], |
76 | expects => ' ORDER BY colA DESC, colB DESC, colC ASC, colD ASC', |
77 | expects_quoted => ' ORDER BY `colA` DESC, `colB` DESC, `colC` ASC, `colD` ASC', |
78 | }, |
79 | { |
80 | given => [{-desc => [ qw/colA colB/ ] }, {-desc => 'colC' }], |
81 | expects => ' ORDER BY colA DESC, colB DESC, colC DESC', |
82 | expects_quoted => ' ORDER BY `colA` DESC, `colB` DESC, `colC` DESC', |
83 | }, |
b8b747f7 |
84 | { |
952f9e2d |
85 | given => [{ -asc => 'colA' }, { -desc => [qw/colB/] }, { -asc => [qw/colC colD/] }], |
86 | expects => ' ORDER BY colA ASC, colB DESC, colC ASC, colD ASC', |
87 | expects_quoted => ' ORDER BY `colA` ASC, `colB` DESC, `colC` ASC, `colD` ASC', |
b8b747f7 |
88 | }, |
f5aab26e |
89 | ); |
90 | |
f5aab26e |
91 | |
952f9e2d |
92 | plan tests => (scalar(@cases) * 2) + 2; |
f5aab26e |
93 | |
6dcf723c |
94 | my $sql = SQL::Abstract->new; |
95 | my $sqlq = SQL::Abstract->new({quote_char => '`'}); |
96 | |
f5aab26e |
97 | for my $case( @cases){ |
98 | is($sql->_order_by($case->{given}), $case->{expects}); |
99 | is($sqlq->_order_by($case->{given}), $case->{expects_quoted}); |
100 | } |
952f9e2d |
101 | |
102 | throws_ok ( |
103 | sub { $sql->_order_by({-desc => 'colA', -asc => 'colB' }) }, |
104 | qr/hash passed .+ must have exactly one key/, |
105 | 'Undeterministic order exception', |
106 | ); |
107 | |
108 | throws_ok ( |
109 | sub { $sql->_order_by({-desc => [ qw/colA colB/ ], -asc => [ qw/colC colD/ ] }) }, |
110 | qr/hash passed .+ must have exactly one key/, |
111 | 'Undeterministic order exception', |
112 | ); |