use Digest::MD5;
use File::Find 'find';
use Class::Unload ();
-use Data::Dumper::Concise;
+use DBIx::Class::Schema::Loader::Utils 'dumper_squashed';
use List::MoreUtils 'apply';
+use DBIx::Class::Schema::Loader::Optional::Dependencies ();
+use namespace::clean;
my $DUMP_DIR = './t/_common_dump';
rmtree $DUMP_DIR;
my $debug = ($self->{verbose} > 1) ? 1 : 0;
- eval <<'EOF';
-require Moose;
-require MooseX::NonMoose;
-require namespace::autoclean;
-EOF
- my $use_moose = $@ ? 0 : 1;
+ my $use_moose = DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('use_moose');
my %loader_opts = (
constraint =>
is $rsobj4->result_source->relationship_info('fkid_singular')->{attrs}{on_update}, 'CASCADE',
"on_update => 'CASCADE' on belongs_to by default";
- ok ((not exists $rsobj4->result_source->relationship_info('fkid_singular')->{attrs}{is_deferrable}),
- "is_deferrable => 1 not on belongs_to by default");
+ is $rsobj4->result_source->relationship_info('fkid_singular')->{attrs}{is_deferrable}, 1,
+ "is_deferrable => 1 on belongs_to by default";
ok ((not exists $rsobj4->result_source->relationship_info('fkid_singular')->{attrs}{cascade_delete}),
'belongs_to does not have cascade_delete');
my %info = %{ $rsrc->column_info($col_name) };
delete @info{qw/is_nullable timezone locale sequence/};
- my $text_col_def = do {
- my $dd = Dumper;
- $dd->Indent(0);
- $dd->Values([\%info]);
- $dd->Dump;
- };
-
- my $text_expected_info = do {
- my $dd = Dumper;
- $dd->Indent(0);
- $dd->Values([$expected_info]);
- $dd->Dump;
- };
+ my $text_col_def = dumper_squashed \%info;
+
+ my $text_expected_info = dumper_squashed $expected_info;
is_deeply \%info, $expected_info,
"test column $col_name has definition: $text_col_def expecting: $text_expected_info";