[dbsrgits/SQL-Abstract.git] / t / 23reassembly-bugs.t

use strict;
use warnings;

use Test::More;
use SQL::Abstract::Tree;

my $sqlat = SQL::Abstract::Tree->new({});

is(
   $sqlat->format('SELECT foo AS bar FROM baz ORDER BY x + ? DESC, baz.g'),
   'SELECT foo AS bar FROM baz ORDER BY x + ? DESC, baz.g',
   'complex order by correctly reassembled'
);

done_testing;
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;