Commit | Line | Data |
924d940e |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More tests => 4; |
5 | use Test::Differences; |
6 | |
7 | use_ok('SQL::Abstract') or BAIL_OUT( "$@" ); |
8 | |
9 | my $sqla = SQL::Abstract->create(1); |
10 | |
11 | |
12 | is $sqla->dispatch( |
627dcb62 |
13 | { -type => 'ordering', expr => { -type => identifier => elements => [qw/me date/ ] } } |
924d940e |
14 | ), "me.date", |
15 | "basic ordering"; |
16 | |
17 | is $sqla->dispatch( |
18 | { -type => 'ordering', |
627dcb62 |
19 | expr => { -type => identifier => elements => [qw/me date/] }, |
924d940e |
20 | direction => 'DESC' |
21 | } |
22 | ), "me.date DESC", |
23 | "desc ordering"; |
24 | |
25 | |
26 | is $sqla->dispatch( |
27 | { -type => 'ordering', |
627dcb62 |
28 | expr => { -type => identifier => elements => [qw/me date/] }, |
924d940e |
29 | direction => 'asc' |
30 | } |
31 | ), "me.date ASC", |
32 | "asc ordering"; |