use Test::More;
-BEGIN {
- eval "use DBIx::Class::CDBICompat;";
- if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
- next;
- }
- eval "use DBD::SQLite";
- plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 10);
-}
-
-use lib 't/lib';
-
-use_ok('DBICTest');
+use lib 't/cdbi/testlib';
+use DBIC::Test::SQLite;
+use DBICTest::Schema;
DBICTest::Schema::CD->load_components(qw/CDBICompat CDBICompat::Pager/);
{ order_by => 'title',
rows => 3,
page => 1 } );
-
+
cmp_ok( $pager->entries_on_this_page, '==', 3, "entries_on_this_page ok" );
cmp_ok( $pager->next_page, '==', 2, "next_page ok" );
# based on a failing criteria submitted by waswas
( $pager, $it ) = DBICTest::CD->page(
{ title => [
- -and =>
+ -and =>
{
-like => '%bees'
},
{ rows => 5 }
);
is( $it->count, 1, "complex abstract count ok" );
+
+# cleanup globals so we do not trigger the leaktest
+for ( map { DBICTest->schema->class($_) } DBICTest->schema->sources ) {
+ $_->class_resolver(undef);
+ $_->resultset_instance(undef);
+ $_->result_source_instance(undef);
+}
+{
+ no warnings qw/redefine once/;
+ *DBICTest::schema = sub {};
+}
+
+done_testing;