Commit | Line | Data |
---|---|---|
73835ff0 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More; | |
5 | use SQL::Abstract::Tree; | |
6 | ||
7 | my $sqlat = SQL::Abstract::Tree->new({}); | |
8 | ||
9 | is( | |
10 | $sqlat->format('SELECT foo AS bar FROM baz ORDER BY x + ? DESC, baz.g'), | |
11 | 'SELECT foo AS bar FROM baz ORDER BY x + ? DESC, baz.g', | |
12 | 'complex order by correctly reassembled' | |
13 | ); | |
14 | ||
15 | done_testing; |