t/23reassembly-bugs.t

   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;