Bundle trial SQLA for the trial of DBIC (reuse dq technique f4a8b21e)

[dbsrgits/DBIx-Class-Historic.git] / t / 53lean_startup.t

diff --git a/t/53lean_startup.t b/t/53lean_startup.t
index e106da2..0745b34 100644 (file)
--- a/t/53lean_startup.t
+++ b/t/53lean_startup.t
@@ -99,6 +99,7 @@ BEGIN {
     namespace::clean
     Try::Tiny
     Sub::Name
+    Sub::Quote
 
     Scalar::Util
     List::Util
@@ -106,6 +107,10 @@ BEGIN {
 
     Class::Accessor::Grouped
     Class::C3::Componentised
+    SQL::Abstract
+
+    Module::Runtime
+    File::Spec
   ));
 
   require DBICTest::Schema;
@@ -116,7 +121,6 @@ BEGIN {
 {
   register_lazy_loadable_requires(qw(
     Moo
-    Sub::Quote
     Context::Preserve
   ));
 
@@ -129,7 +133,6 @@ BEGIN {
 {
   register_lazy_loadable_requires(qw(
     DBI
-    SQL::Abstract
     Hash::Merge
   ));
 
@@ -151,9 +154,15 @@ BEGIN {
 
 # and do full populate() as well, just in case - shouldn't add new stuff
 {
-  require DBICTest;
+  local $ENV{DBICTEST_SQLITE_REVERSE_DEFAULT_ORDER};
+  {
+    # in general we do not want DBICTest to load before sqla, but it is
+    # ok to cheat here
+    local $INC{'SQL/Abstract.pm'};
+    require DBICTest;
+  }
   my $s = DBICTest->init_schema;
-  is ($s->resultset('Artist')->next->name, 'Caterwauler McCrae');
+  is ($s->resultset('Artist')->find(1)->name, 'Caterwauler McCrae');
   assert_no_missing_expected_requires();
 }