require File::Spec;
my $test_ddl_fn = File::Spec->catfile(qw( t lib sqlite.sql ));
-my @test_ddl_cmd = qw( -I lib -I t/lib -- maint/gen_sqlite_schema_files --schema-class DBICTest::Schema );
+my @test_ddl_cmd = qw( -I lib -Mt::lib::ANFANG -- maint/gen_sqlite_schema_files --schema-class DBICTest::Schema );
my $example_ddl_fn = File::Spec->catfile(qw( examples Schema db example.sql ));
my $example_db_fn = File::Spec->catfile(qw( examples Schema db example.db ));
@initial_INC = @INC;
}
-BEGIN {
- unshift @INC, 't/lib';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+BEGIN {
if ( "$]" < 5.010) {
# Pre-5.10 perls pollute %INC on unsuccesfull module
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use DBICTest::ForeignComponent;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
{
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util qw(sigwarn_silencer serialize);
use Math::BigInt;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
## ----------------------------------------------------------------------------
## Tests for the $resultset->populate method.
##
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib 't/lib';
+
use DBICTest;
my $warnings;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib 't/lib';
+
use DBICTest;
use DBIx::Class::Carp;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
package ResultClassInflator;
sub new { bless {}, __PACKAGE__ }
use Test::More tests => 6;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
use Test::Exception;
-use lib 't/lib';
+
use DBICTest;
throws_ok (
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
-use lib qw(t/lib);
+
use_ok('DBICTest');
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
-
use DBICTest;
my $schema = DBICTest->init_schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
# Set up the "usual" sqlite for DBICTest
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib 't/lib';
+
use DBICTest::RunMode;
BEGIN {
if( DBICTest::RunMode->is_plain ) {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used
my $warnings;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used
plan tests => 6;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used
lives_ok (sub {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used
plan tests => 6;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used
plan tests => 1;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib 't/lib';
+
use DBICTest; # do not remove even though it is not used
use Test::More tests => 8;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Time::HiRes qw/gettimeofday/;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used
our $src_count = 100;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
warnings_exist { DBICTest->init_schema( compose_connection => 1, sqlite_use_file => 1 ) }
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_pg';
use strict;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $main_pid = $$;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use Config;
BEGIN {
unless ($Config{useithreads}) {
use Test::More;
use DBIx::Class::_Util 'sigwarn_silencer';
-use lib qw(t/lib);
use DBICTest;
plan skip_all => 'DBIC does not actively support threads before perl 5.8.5'
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use Config;
BEGIN {
unless ($Config{useithreads}) {
plan skip_all => 'DBIC does not actively support threads before perl 5.8.5'
if "$]" < 5.008005;
-use lib qw(t/lib);
+
use DBICTest;
# README: If you set the env var to a number greater than 10,
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
# README: If you set the env var to a number greater than 10,
# we will use that many children
if "$]" < 5.008005;
use Scalar::Util 'weaken';
-use lib qw(t/lib);
+
use DBICTest;
my $num_children = $ENV{DBICTEST_THREAD_STRESS} || 1;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
# work around brain damage in PPerl (yes, it has to be a global)
$SIG{__WARN__} = sub {
warn @_ unless $_[0] =~ /\QUse of "goto" to jump into a construct is deprecated/
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest::RunMode;
use DBICTest::Util::LeakTracer qw(populate_weakregistry assert_empty_weakregistry visit_refs);
use Scalar::Util qw(weaken blessed reftype);
+BEGIN { $ENV{DBICTEST_ANFANG_DEFANG} = 1 }
+
use strict;
use warnings;
use Config;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More tests => 2;
-use lib qw(t/lib);
+
use DBICTest;
use DBICTest::Schema;
use DBICTest::Schema::Artist;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
lives_ok {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Exception tests => 1;
-use lib qw(t/lib);
+
use DBICTest;
use DBICTest::Schema;
use DBIx::Class::ResultSource::Table;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_mysql';
use strict;
use DBI::Const::GetInfoType;
use Scalar::Util qw/weaken/;
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MYSQL_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_pg';
use strict;
use Test::Warn;
use Sub::Name;
use Config;
-use DBIx::Class::Optional::Dependencies ();
-use lib qw(t/lib);
use DBICTest;
use SQL::Abstract 'is_literal_value';
use DBIx::Class::_Util 'is_exception';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw(test_rdbms_pg binary_data);
use strict;
use Test::More;
use DBIx::Class::_Util 'modver_gt_or_eq';
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $dbuser, $dbpass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_oracle';
use strict;
use Sub::Name;
use Try::Tiny;
-use lib qw(t/lib);
use DBICTest;
$ENV{NLS_SORT} = "BINARY";
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_oracle';
use strict;
use Sub::Name;
use Try::Tiny;
-use lib qw(t/lib);
-
use DBICTest::Schema::BindType;
BEGIN {
DBICTest::Schema::BindType->add_columns(
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_oracle';
use strict;
# dealing with HQs. So just punt on the entire shuffle thing.
BEGIN { $ENV{DBIC_SHUFFLE_UNORDERED_RESULTSETS} = 0 }
-use lib qw(t/lib);
-
use DBICTest::Schema::Artist;
BEGIN {
DBICTest::Schema::Artist->add_column('parentid');
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_db2';
use strict;
use Test::More;
use Test::Exception;
use Try::Tiny;
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_DB2_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_db2_400';
use strict;
use Test::More;
use DBIx::Class::Optional::Dependencies ();
-use lib qw(t/lib);
+
use DBICTest;
# Probably best to pass the DBQ option in the DSN to specify a specific
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_mssql_odbc';
use strict;
use Test::Exception;
use Try::Tiny;
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_ODBC_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_ase';
use strict;
use Test::Exception;
use DBIx::Class::_Util 'sigwarn_silencer';
-use lib qw(t/lib);
use DBICTest;
my @storage_types = (
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_mssql_ado';
use strict;
use Test::Exception;
use Try::Tiny;
use DBIx::Class::Optional::Dependencies ();
-use lib qw(t/lib);
+
use DBICTest;
# Example DSN (from frew):
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_informix';
use strict;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_INFORMIX_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Try::Tiny;
use DBIx::Class::Optional::Dependencies ();
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SQLANYWHERE_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_mssql_sybase';
use strict;
use Test::More;
use Test::Exception;
use Scalar::Util 'weaken';
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use DBIx::Class::_Util 'scope_guard';
use List::Util 'shuffle';
use Try::Tiny;
-use lib qw(t/lib);
+
use DBICTest;
my $env2optdep = {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Try::Tiny;
use DBIx::Class::Optional::Dependencies ();
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSACCESS_ODBC_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Time::HiRes 'time';
use Math::BigInt;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util qw( sigwarn_silencer modver_gt_or_eq modver_gt_or_eq_and_lt );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
use Storable qw(dclone freeze nfreeze thaw);
use Scalar::Util qw/refaddr/;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
{
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'deploy';
use strict;
use Test::Warn;
use Scalar::Util 'blessed';
-use lib qw(t/lib);
+
use DBICTest;
my $custom_deployment_statements_called = 0;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
# vim: filetype=perl
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use POSIX ();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
# and that's a whole another bag of dicks
BEGIN { $ENV{DBIC_SHUFFLE_UNORDERED_RESULTSETS} = 0 }
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
{ # Fake storage driver for sqlite with autocast
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
# Test various uses of passing an object to find, create, and update on a single
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw(deploy test_rdbms_mysql);
use strict;
use File::Copy;
use Time::HiRes qw/time sleep/;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'deploy';
use strict;
use Test::Exception;
use Scalar::Util ();
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( admin deploy );
use strict;
use Path::Class;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'admin';
use strict;
use Test::More;
use Test::Exception;
-use lib 't/lib';
+
use DBICTest;
use DBIx::Class::Admin;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat test_rdbms_mysql Time::Piece::MySQL>=0 );
$| = 1;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat Time::Piece>=0 );
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt cdbicompat );
use strict;
use warnings;
use Test::More;
-use lib 't/lib';
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat rdbms_sqlite ic_dt );
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
# Columns in CDBI could be defined as Class::DBI::Column objects rather than
# or as well as with __PACKAGE__->columns();
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat Class::DBI>=3.000005 );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat Class::DBI::Plugin::DeepAbstractSearch>=0 );
use strict;
use Test::More;
-use lib 't/lib';
use DBICTest;
my $DB = DBICTest->_sqlite_dbname(sqlite_use_file => 1);;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt cdbicompat );
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt cdbicompat );
use strict;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
use Test::More;
-use lib 't/lib';
+
use DBICTest;
DBICTest::Schema::CD->load_components(qw/CDBICompat CDBICompat::Pager/);
# change too much
BEGIN { $ENV{DBIC_SHUFFLE_UNORDERED_RESULTSETS} = 0 }
-use lib 't/lib';
use DBICTest;
use base qw/DBIx::Class/;
use strict;
use DBI;
-
-use lib 't/lib';
use DBICTest;
use base qw(DBIx::Class::CDBICompat);
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
-
use Test::More;
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
-
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-
-use lib qw(t/lib);
-
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-
-use lib qw(t/lib);
-
use DBICTest;
plan tests => 7;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-
-use lib qw(t/lib);
-
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
-
use Test::More;
use DBICTest ':DiffSQL';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-
-use lib qw(t/lib);
-
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Warn;
use Test::Exception;
-use lib 't/lib';
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( test_rdbms_sqlite ic_dt );
use strict;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $no_class = '_DBICTEST_NONEXISTENT_CLASS_';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt _rdbms_firebird_common );
use strict;
use Test::More;
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my $env2optdep = {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt test_rdbms_informix );
use strict;
use Test::More;
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_INFORMIX_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt _rdbms_msaccess_common );
use strict;
use Test::More;
use Try::Tiny;
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my @tdeps = qw( test_rdbms_msaccess_odbc test_rdbms_msaccess_ado );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt _rdbms_mssql_common );
use strict;
use Test::Exception;
use Try::Tiny;
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my @tdeps = qw( test_rdbms_mssql_odbc test_rdbms_mssql_sybase test_rdbms_mssql_ado );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt test_rdbms_oracle );
use strict;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
# DateTime::Format::Oracle needs this set
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt _rdbms_sqlanywhere_common );
use strict;
use Test::More;
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my @tdeps = qw( test_rdbms_sqlanywhere test_rdbms_sqlanywhere_odbc );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt test_rdbms_sqlite );
use strict;
use Test::More;
use Test::Warn;
use Try::Tiny;
-use lib qw(t/lib);
+
use DBICTest;
# Test offline parser determination (formerly t/inflate/datetime_determine_parser.t)
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt test_rdbms_ase );
use strict;
use Test::More;
use Test::Exception;
use DBIx::Class::_Util 'scope_guard';
-use lib qw(t/lib);
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt_mysql );
use strict;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
use DBICTest::Schema;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt_pg );
use strict;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
DBICTest::Schema->load_classes('EventTZPg');
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
-
-
use DBICTest;
use DBICTest::Schema;
use File::Compare;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
}
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Deep;
-use lib qw(t/lib);
+
use DBICTest;
# More tests like this in t/prefetch/manual.t
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
--- /dev/null
+package # hide from pauses
+ ANFANG;
+
+# load-time critical
+BEGIN {
+ if ( $ENV{RELEASE_TESTING} ) {
+ require warnings and warnings->import;
+ require strict and strict->import;
+ }
+
+ # allow 'use ANFANG' to work after it's been do()ne
+ $INC{"ANFANG.pm"} ||= __FILE__;
+ $INC{"t/lib/ANFANG.pm"} ||= __FILE__;
+ $INC{"./t/lib/ANFANG.pm"} ||= __FILE__;
+}
+
+BEGIN {
+
+ # load-me-first sanity check
+ if (
+
+ # nobody shut us off
+ ! $ENV{DBICTEST_ANFANG_DEFANG}
+
+ and
+
+ # if this is set - all bets are off
+ ! $ENV{PERL5OPT}
+
+ and
+
+ # -d:Confess / -d:TraceUse and the like
+ ! $^P
+
+ and
+
+ # just don't check anything under RELEASE_TESTING
+ # a naive approach would be to simply whitelist both
+ # strict and warnings, but pre 5.10 there were even
+ # more modules loaded by these two:
+ #
+ # perlbrew exec perl -Mstrict -Mwarnings -e 'warn join "\n", sort keys %INC'
+ #
+ ! $ENV{RELEASE_TESTING}
+
+ and
+
+ my @undesirables = grep {
+
+ ($INC{$_}||'') ne __FILE__
+
+ and
+
+ # allow direct loads via -M
+ $_ !~ m{^ DBICTest (?: /Schema )? \.pm $}x
+
+ } keys %INC
+
+ ) {
+
+ my ( $fr, @frame );
+ while (@frame = caller(++$fr)) {
+ last if $frame[1] !~ m{ (?: \A | [\/\\] ) t [\/\\] lib [\/\\] }x;
+ }
+
+ die __FILE__ . " must be loaded before any other module (i.e. @{[ join ', ', map { qq('$_') } sort @undesirables ]}) at $frame[1] line $frame[2]\n";
+ }
+
+
+ if ( $ENV{DBICTEST_VERSION_WARNS_INDISCRIMINATELY} ) {
+ my $ov = UNIVERSAL->can("VERSION");
+
+ require Carp;
+
+ # not loading warnings.pm
+ local $^W = 0;
+
+ *UNIVERSAL::VERSION = sub {
+ Carp::carp( 'Argument "blah bleh bloh" isn\'t numeric in subroutine entry' );
+ &$ov;
+ };
+ }
+
+
+ if (
+ $ENV{DBICTEST_ASSERT_NO_SPURIOUS_EXCEPTION_ACTION}
+ or
+ # keep it always on during CI
+ (
+ ($ENV{TRAVIS}||'') eq 'true'
+ and
+ ($ENV{TRAVIS_REPO_SLUG}||'') =~ m|\w+/dbix-class$|
+ )
+ ) {
+ require Try::Tiny;
+ my $orig = \&Try::Tiny::try;
+
+ # not loading warnings.pm
+ local $^W = 0;
+
+ *Try::Tiny::try = sub (&;@) {
+ my ($fr, $first_pkg) = 0;
+ while( $first_pkg = caller($fr++) ) {
+ last if $first_pkg !~ /^
+ __ANON__
+ |
+ \Q(eval)\E
+ $/x;
+ }
+
+ if ($first_pkg =~ /DBIx::Class/) {
+ require Test::Builder;
+ Test::Builder->new->ok(0,
+ 'Using try{} within DBIC internals is a mistake - use dbic_internal_try{} instead'
+ );
+ }
+
+ goto $orig;
+ };
+ }
+
+}
+
+use lib 't/lib';
+
+1;
package # hide from PAUSE
DBICTest;
+# load early so that `perl -It/lib -MDBICTest` keeps working
+use ANFANG;
+
use strict;
use warnings;
-
# this noop trick initializes the STDOUT, so that the TAP::Harness
# issued IO::Select->can_read calls (which are blocking wtf wtf wtf)
# keep spinning and scheduling jobs
=head1 SYNOPSIS
- use lib qw(t/lib);
- use DBICTest;
+ BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
+ use warnings;
+ use strict;
use Test::More;
+ use DBICTest;
my $schema = DBICTest->init_schema();
use strict;
use warnings;
-# must load before any DBIx::Class* namespaces
-use DBICTest::RunMode;
+use DBICTest::Util;
sub _skip_namespace_frames { '^DBICTest' }
use strict;
use warnings;
-BEGIN {
- if ($INC{'DBIx/Class.pm'}) {
- my ($fr, @frame) = 1;
- while (@frame = caller($fr++)) {
- last if $frame[1] !~ m|^t/lib/DBICTest|;
- }
-
- die __PACKAGE__ . " must be loaded before DBIx::Class (or modules using DBIx::Class) at $frame[1] line $frame[2]\n";
- }
-
- if ( $ENV{DBICTEST_VERSION_WARNS_INDISCRIMINATELY} ) {
- my $ov = UNIVERSAL->can("VERSION");
-
- require Carp;
-
- no warnings 'redefine';
- *UNIVERSAL::VERSION = sub {
- Carp::carp( 'Argument "blah bleh bloh" isn\'t numeric in subroutine entry' );
- &$ov;
- };
- }
-
- if (
- $ENV{DBICTEST_ASSERT_NO_SPURIOUS_EXCEPTION_ACTION}
- or
- # keep it always on during CI
- (
- ($ENV{TRAVIS}||'') eq 'true'
- and
- ($ENV{TRAVIS_REPO_SLUG}||'') =~ m|\w+/dbix-class$|
- )
- ) {
- require Try::Tiny;
- my $orig = \&Try::Tiny::try;
-
- no warnings 'redefine';
- *Try::Tiny::try = sub (&;@) {
- my ($fr, $first_pkg) = 0;
- while( $first_pkg = caller($fr++) ) {
- last if $first_pkg !~ /^
- __ANON__
- |
- \Q(eval)\E
- $/x;
- }
-
- if ($first_pkg =~ /DBIx::Class/) {
- require Test::Builder;
- Test::Builder->new->ok(0,
- 'Using try{} within DBIC internals is a mistake - use dbic_internal_try{} instead'
- );
- }
-
- goto $orig;
- };
- }
-}
-
use Path::Class qw/file dir/;
use Fcntl ':DEFAULT';
use File::Spec ();
package # hide from PAUSE
DBICTest::Schema;
+# load early so that `perl -It/lib -MDBICTest::Schema` keeps working
+use ANFANG;
+
use strict;
use warnings;
no warnings 'qw';
use warnings;
use strict;
+use ANFANG;
+
use constant DEBUG_TEST_CONCURRENCY_LOCKS =>
( ($ENV{DBICTEST_DEBUG_CONCURRENCY_LOCKS}||'') =~ /^(\d+)$/ )[0]
||
use warnings;
use strict;
+use ANFANG;
use Carp;
use Scalar::Util qw(isweak weaken blessed reftype);
use DBIx::Class::_Util qw(refcount hrefaddr refdesc);
use DBIx::Class::Optional::Dependencies;
+use DBICTest::RunMode;
use Data::Dumper::Concise;
use DBICTest::Util qw( stacktrace visit_namespaces );
use constant {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
sub mc_diag { diag (@_) if $ENV{DBIC_MULTICREATE_DEBUG} };
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema( no_populate => 1 );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
plan tests => 4;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
sub mc_diag { diag (@_) if $ENV{DBIC_MULTICREATE_DEBUG} };
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
plan tests => 23;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use Data::Dumper;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Deep;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
# Test if prefetch and join in diamond relationship fetching the correct rows
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
use Test::Deep;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema( no_populate => 1 );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Deep;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Deep;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
delete $ENV{DBIC_COLUMNS_INCLUDE_FILTER_RELS};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Deep;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
# Test to ensure we get a consistent result set wether or not we use the
# prefetch option in combination rows (LIMIT).
use strict;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib 't/lib';
+
use DBICTest;
my $schema = DBICTest->init_schema( no_populate => 1, quote_names => 1 );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib 't/lib';
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
require DBICTest::DynamicForeignCols::TestComputer;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
#
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib 't/lib';
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Exception;
use Math::BigInt;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
no warnings 'exiting';
use Test::More;
use Test::Deep;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema(no_populate => 1);
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
# From http://lists.scsys.co.uk/pipermail/dbix-class/2013-February/011119.html
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
+
use Test::More;
use DBICTest;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
+
use Test::More;
use DBICTest;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
+
use Test::More;
use DBICTest;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Math::BigInt;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use B::Deparse;
use DBIx::Class::_Util 'perlstring';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
use Test::More;
use Test::Exception;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Class::Inspector ();
-unshift(@INC, './t/lib');
-use lib 't/lib';
-
use DBICTest;
is(DBICTest::Schema->source('Artist')->resultset_class, 'DBICTest::BaseResultSet', 'default resultset class');
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib 't/lib';
use DBICTest;
{
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib 't/lib';
+
use DBICTest;
throws_ok {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $from_storage_ran = 0;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
package My::Schema::Result::User;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $row = DBICTest::Schema::CD->new({ title => 'foo' });
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
lives_ok (sub {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::_Util 'serialize';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use SQL::Abstract qw(is_plain_value is_literal_value);
use List::Util 'shuffle';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Exception;
use Math::BigInt;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema(no_deploy => 1);
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::_Util 'UNRESOLVABLE_CONDITION';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'id_shortener';
use strict;
use Test::More;
-use lib qw(t/lib);
use DBICTest::Schema::Artist;
BEGIN {
DBICTest::Schema::Artist->add_column('parentid');
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::_Util 'sigwarn_silencer';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
# This is legacy stuff from SQL::Absract::Limit
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use List::Util 'min';
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
my $OFFSET = DBIx::Class::SQLMaker::LimitDialects->__offset_bindtype;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::LimitDialects;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::_Util 'deep_clone';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema(no_populate => 1);
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
# the entire point of the subclass is that parenthesis have to be
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest::Schema->connect (DBICTest->_database, { quote_char => '`' });
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'id_shortener';
use strict;
use Test::More;
use Test::Exception;
use Data::Dumper::Concise;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::Oracle;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'id_shortener';
use strict;
use Test::More;
-use lib qw(t/lib);
use DBICTest ':DiffSQL';
use DBIx::Class::SQLMaker::OracleJoins;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Data::Dumper::Concise;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
sub test_order {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema( no_deploy => 1 );
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
use Data::Dumper;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema(cursor_class => 'DBICTest::Cursor');
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
plan tests => 1;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
-use lib qw(t/lib);
+
use DBICTest;
use Test::More;
use Test::Exception;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_prettydebug';
use strict;
use warnings;
-use lib qw(t/lib);
+
use DBICTest;
use Test::More;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
no warnings 'once';
use Test::Exception;
use Try::Tiny;
use File::Spec;
-use lib qw(t/lib);
+
use DBICTest;
use Path::Class qw/file/;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'deploy';
use strict;
use Test::Exception;
use Path::Class qw/dir/;
-use lib qw(t/lib);
+
use DBICTest;
local $ENV{DBI_DSN};
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
{
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
BEGIN { $ENV{DBICTEST_VIA_REPLICATED} = 0 }
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
##!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
for my $conn_args (
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
use DBICTest::Schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use DBIx::Class::Optional::Dependencies ();
-use lib qw(t/lib);
+
use DBICTest;
for my $type (qw/PG MYSQL SQLite/) {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
{ # Fake storage driver for SQLite + no bind variables
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
no warnings qw/once redefine/;
-use lib qw(t/lib);
+
use DBI;
use DBICTest;
use DBICTest::Schema;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
require DBI;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $ping_count = 0;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
{
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Data::Dumper::Concise;
use Try::Tiny;
-use lib qw(t/lib);
+
use DBICTest;
my %expected = (
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Scalar::Util 'weaken';
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $db_orig = DBICTest->_sqlite_dbfilename;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_replicated';
use strict;
use Test::More;
use DBIx::Class::_Util 'modver_gt_or_eq_and_lt';
-use lib qw(t/lib);
+
use DBICTest;
BEGIN {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Exception;
use DBIx::Class::_Util qw(modver_gt_or_eq sigwarn_silencer scope_guard);
-use lib qw(t/lib);
+
use DBICTest;
{
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
plan tests => 12;
-use lib qw(t/lib);
-
use_ok('DBICTest');
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $code = sub {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use List::Util 'shuffle';
use DBIx::Class::_Util 'sigwarn_silencer';
-use lib qw(t/lib);
+
use DBICTest;
# Test txn_scope_guard
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More 'no_plan';
-use lib 't/lib';
+
use DBICTest::RunMode;
my $authorcount = scalar do {
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
BEGIN {
plan skip_all =>
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
+BEGIN {
+ delete $ENV{DBICTEST_VERSION_WARNS_INDISCRIMINATELY};
+ do "./t/lib/ANFANG.pm" or die ( $@ || $! )
+}
+
use warnings;
use strict;
-BEGIN { delete $ENV{DBICTEST_VERSION_WARNS_INDISCRIMINATELY} }
-
use DBIx::Class::_Util 'sigwarn_silencer';
use if DBIx::Class::_ENV_::BROKEN_FORK, 'threads';
use File::Find;
use Time::HiRes 'sleep';
-
-use lib 't/lib';
-
my $worker = sub {
my $fn = shift;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_podcoverage';
use warnings;
use Test::More;
use List::Util 'first';
use Module::Runtime 'require_module';
-use lib qw(t/lib maint/.Generated_Pod/lib);
+use lib 'maint/.Generated_Pod/lib';
use DBICTest;
use namespace::clean;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_pod';
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
# this has already been required but leave it here for CPANTS static analysis
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_whitespace';
use warnings;
use Test::More;
use File::Glob 'bsd_glob';
-use lib 't/lib';
+
use DBICTest ':GlobalLock';
# FIXME - temporary workaround for RT#82032, RT#82033
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_strictures';
use warnings;
use File::Find;
use File::Spec;
use Config;
-use lib 't/lib';
+
use DBICTest;
# The rationale is - if we can load all our optdeps
|
t/lib/DBICTest/Util/OverrideRequire.pm # no stictures by design (load order sensitive)
|
- lib/DBIx/Class/Optional/Dependencies.pm # no stictures by design (load spee sensitive)
+ t/lib/ANFANG.pm # no stictures by design (load speed sensitive)
+ |
+ lib/DBIx/Class/Optional/Dependencies.pm # no stictures by design (load speed sensitive)
)$}x;
my $f = $_;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest; # do not remove even though it is not used (pulls in MRO::Compat if needed)
{
-use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_admin_script';
-
-use strict;
-use warnings;
-
BEGIN {
# just in case the user env has stuff in it
delete $ENV{JSON_ANY_ORDER};
delete $ENV{DBICTEST_VERSION_WARNS_INDISCRIMINATELY};
+
+ do "./t/lib/ANFANG.pm" or die ( $@ || $! )
}
+use strict;
+use warnings;
+
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_admin_script';
+
use Test::More;
use Config;
use File::Spec;
-use lib qw(t/lib);
+
use DBICTest;
$ENV{PATH} = '';
my ($perl) = $^X =~ /(.*)/;
- open(my $fh, "-|", ( $perl, '-MDBICTest::RunMode', 'script/dbicadmin', default_args(), qw|--op=select --attrs={"order_by":"name"}| ) ) or die $!;
+ open(my $fh, "-|", ( $perl, '-MANFANG', 'script/dbicadmin', default_args(), qw|--op=select --attrs={"order_by":"name"}| ) ) or die $!;
my $data = do { local $/; <$fh> };
close($fh);
if (!ok( ($data=~/Aran.*Trout/s), "$ENV{JSON_ANY_ORDER}: select with attrs" )) {
sub test_exec {
my ($perl) = $^X =~ /(.*)/;
- my @args = ($perl, '-MDBICTest::RunMode', File::Spec->catfile(qw(script dbicadmin)), @_);
+ my @args = ($perl, '-MANFANG', File::Spec->catfile(qw(script dbicadmin)), @_);
if ($^O eq 'MSWin32') {
require Win32::ShellQuote; # included in test optdeps
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest::Schema::Artist;
my $pkg = 'DBICTest::Schema::Artist';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
warnings_exist { require DBICTest::ResultSetManager }
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema(no_deploy => 1);
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib 't/lib';
+
use DBICTest;
# Once upon a time there was a problem with a leaking $sth
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
use Class::Inspector;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
use Test::More;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
BEGIN {
if ( "$]" < 5.010) {
# we want to do this here, in the very beginning, before even
# warnings/strict are loaded
- unshift @INC, 't/lib';
+
require DBICTest::Util::OverrideRequire;
DBICTest::Util::OverrideRequire::override_global_require( sub {
use Test::More;
-use lib 't/lib';
-
use DBICTest;
use File::Find;
use File::Spec;
+BEGIN { $ENV{DBICTEST_ANFANG_DEFANG} = 1 }
+
# Use a require override instead of @INC munging (less common)
# Do the override as early as possible so that CORE::require doesn't get compiled away
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
}
use Test::Exception;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Exception;
use File::Temp ();
-use lib 't/lib';
+
use DBICTest;
plan tests => 2;
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'deploy';
use strict;
use Test::More;
use Test::Exception;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
use ViewDeps;
use ViewDepsBad;
projects / dbsrgits/DBIx-Class.git / commitdiff