5 use Data::Dumper::Concise;
9 use SQL::Abstract::Test import => ['is_same_sql_bind'];
1950 for my $case (@cases) {
1951 my ($quote, $expr, $out) = @$case;
1952 my $sqla = SQL::Abstract->new({ quote_char => $quote });
1956 and ref($expr->[0]) eq 'REF'
1957 and ref(${$expr->[0]}) eq 'ARRAY'
1958 and @${$expr->[0]} == 1
1960 # \[ 'foo' ] is exactly equivalent to \'foo' and the new code knows that
1964 my @chunks = $sqla->_order_by_chunks($expr);
1966 unless (is(Dumper(\@chunks), Dumper($out))) {
1967 diag("Above failure from expr: ".Dumper($expr));