+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use Data::Dumper::Concise;
-use lib qw(t/lib);
-use DBICTest;
-use DBIC::SqlMakerTest;
-sub test_order {
+use DBIx::Class::_Util 'dump_value';
+use DBICTest ':DiffSQL';
- TODO: {
+sub test_order {
my $rs = shift;
my $args = shift;
? map { [ { dbic_colname => $_->[0] } => $_->[1] ] } @{ $args->{bind} }
: ()
],
- ) || diag Dumper $args->{order_by};
+ ) || diag dump_value $args->{order_by};
};
- }
}
my @tests = (