use warnings;
use Test::More;
+use lib qw(t/lib);
+use DBICTest::RunMode;
+
+plan skip_all => "Temporarily no smoke testing of Test::More 1.3xx alphas" if (
+ DBICTest::RunMode->is_smoker
+ and
+ eval { Test::More->VERSION("1.300") }
+ and
+ require ExtUtils::MakeMaker
+ and
+ MM->parse_version($INC{"Test/Builder.pm"}) =~ / ^ 1 \. 3.. ... \_ /x
+);
+
my $TB = Test::More->builder;
if ($ENV{DBICTEST_IN_PERSISTENT_ENV}) {
# without this explicit close older TBs warn in END after a ->reset
$TB->reset;
}
-use lib qw(t/lib);
-use DBICTest::RunMode;
-use DBICTest::Util::LeakTracer qw(populate_weakregistry assert_empty_weakregistry visit_refs hrefaddr);
+use DBICTest::Util::LeakTracer qw(populate_weakregistry assert_empty_weakregistry visit_refs);
use Scalar::Util qw(weaken blessed reftype);
use DBIx::Class;
-use DBIx::Class::_Util 'sigwarn_silencer';
+use DBIx::Class::_Util qw(hrefaddr sigwarn_silencer);
BEGIN {
plan skip_all => "Your perl version $] appears to leak like a sieve - skipping test"
if DBIx::Class::_ENV_::PEEPEENESS;
# do a heavy-duty fire-and-compare loop on all resultsets
# this is expensive - not running on install
my $typecounts = {};
- unless (DBICTest::RunMode->is_plain or $ENV{DBICTEST_IN_PERSISTENT_ENV}) {
+ if (
+ ! DBICTest::RunMode->is_plain
+ and
+ ! $ENV{DBICTEST_IN_PERSISTENT_ENV}
+ and
+ # FIXME - investigate wtf is going on with 5.18
+ ! ( $] > 5.017 and $ENV{DBIC_TRACE_PROFILE} )
+ ) {
# FIXME - ideally we should be able to just populate an alternative
# registry, subtract everything from the main one, and arrive at
## anything we have seen so far is cool
#delete @{$interim_wr}{keys %$weak_registry};
#
- ## I still don't get any of this...
- #delete $interim_wr->{$_} for grep {
- # ref ($interim_wr->{$_}{weakref}) eq 'SCALAR'
- # and
- # ${$interim_wr->{$_}{weakref}} eq 'very closure... much wtf... wow!!!'
- #} keys %$interim_wr;
- #
## moment of truth - the rest ought to be gone
#assert_empty_weakregistry($interim_wr);
}
unless $cleared->{hash_merge_singleton}{$weak_registry->{$addr}{weakref}{behavior}}++;
}
elsif (
- # if we can look at closed over pieces - we will register it as a global
- !DBICTest::Util::LeakTracer::CV_TRACING
- and
+# # if we can look at closed over pieces - we will register it as a global
+# !DBICTest::Util::LeakTracer::CV_TRACING
+# and
$names =~ /^SQL::Translator::Generator::DDL::SQLite/m
) {
# SQLT::Producer::SQLite keeps global generators around for quoted