use strict;
use warnings;
-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);
-}
-
INIT {
use lib 't/cdbi/testlib';
use Film;
is_deeply [sort map $_->Title, @supers],
[sort ("Super Fuzz", "Superman")], 'like';
}
-
+
my @all = Film->search_where({}, { order_by => "Title ASC" });
is_deeply ["Batman", "Super Fuzz", "Superman"],
[map $_->Title, @all],
"limit_dialect ignored";
+done_testing;