Commit | Line | Data |
d5dedbd6 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | use lib qw(t/lib); |
d9c17594 |
7 | use DBICTest; |
d5dedbd6 |
8 | use DBICTest::Schema; |
9 | use DBIC::SqlMakerTest; |
10 | |
11 | # This is legacy stuff from SQL::Absract::Limit |
12 | # Keep it around just in case someone is using it |
13 | |
14 | { |
15 | package DBICTest::SQLMaker::CustomDialect; |
16 | use base qw/DBIx::Class::SQLMaker/; |
17 | sub emulate_limit { |
18 | my ($self, $sql, $rs_attrs, $limit, $offset) = @_; |
19 | return sprintf ('shiny sproc ((%s), %d, %d)', |
20 | $sql, |
21 | $limit || 0, |
22 | $offset || 0, |
23 | ); |
24 | } |
25 | } |
d9c17594 |
26 | my $s = DBICTest::Schema->connect (DBICTest->_database); |
d5dedbd6 |
27 | $s->storage->sql_maker_class ('DBICTest::SQLMaker::CustomDialect'); |
28 | |
29 | my $rs = $s->resultset ('CD'); |
67341081 |
30 | |
7027fcdb |
31 | ok(!eval { $rs->all }, 'Legacy emulate_limit method dies'); |
d5dedbd6 |
32 | |
33 | done_testing; |