use Test::Exception;
use Data::Dumper::Concise;
use lib qw(t/lib);
-use DBICTest;
-use DBIC::SqlMakerTest;
-
-my $schema = DBICTest->init_schema;
-
-my $rs = $schema->resultset('FourKeys');
+use DBICTest ':DiffSQL';
sub test_order {
-
- TODO: {
+ my $rs = shift;
my $args = shift;
local $TODO = "Not implemented" if $args->{todo};
}
)->as_query,
"(
- SELECT me.foo, me.bar, me.hello, me.goodbye, me.sensors, me.read_count
- FROM fourkeys me
- WHERE ( foo = ? )
+ SELECT me.foo, me.bar, me.hello, me.goodbye, me.sensors, me.read_count
+ FROM fourkeys me
+ WHERE ( foo = ? )
HAVING read_count > ? OR read_count < ?
ORDER BY $args->{order_req}
)",
[
- [qw(foo bar)],
- [qw(read_count 5)],
- [qw(read_count 8)],
+ [ { sqlt_datatype => 'integer', dbic_colname => 'foo' }
+ => 'bar' ],
+ [ { sqlt_datatype => 'int', dbic_colname => 'read_count' }
+ => 5 ],
+ [ { sqlt_datatype => 'int', dbic_colname => 'read_count' }
+ => 8 ],
$args->{bind}
- ? @{ $args->{bind} }
+ ? map { [ { dbic_colname => $_->[0] } => $_->[1] ] } @{ $args->{bind} }
: ()
],
) || diag Dumper $args->{order_by};
};
- }
}
my @tests = (
},
);
-test_order($_) for @tests;
+my $rs = DBICTest->init_schema->resultset('FourKeys');
+test_order($rs, $_) for @tests;
done_testing;