use strict;
use warnings;
use Test::More;
-use Data::Dumper::Concise;
-use Try::Tiny;
use DBICTest;
+use DBIx::Class::_Util 'dump_value';
+$Data::Dumper::Indent = 0;
my %expected = (
'DBIx::Class::Storage::DBI' =>
);
for my $class (keys %expected) { SKIP: {
- eval "require ${class}"
- or skip "Skipping test of quotes for $class due to missing dependencies", 1;
+
+ eval "require ${class}" or do {
+ note "Failed load of $class:\n\n$@\n\n";
+ skip "Skipping test of quotes for $class due to missing compile-time dependencies", 1;
+ };
my $mapping = $expected{$class};
my ($quote_char, $name_sep) = @$mapping{qw/quote_char name_sep/};
my $instance = $class->new;
- my $quote_char_text = dumper($quote_char);
+ my $quote_char_text = dump_value $quote_char;
if (exists $mapping->{quote_char}) {
is_deeply $instance->sql_quote_char, $quote_char,
my $schema;
- my $sql_maker = try {
+ my $sql_maker = eval {
$schema = DBICTest::Schema->connect($dsn, $user, $pass, {
quote_names => 1
});
my ($exp_quote_char, $exp_name_sep) =
@{$expected{$dbs{$db}}}{qw/quote_char name_sep/};
- my ($quote_char_text, $name_sep_text) = map { dumper($_) }
+ my ($quote_char_text, $name_sep_text) = map { dump_value $_ }
($exp_quote_char, $exp_name_sep);
is_deeply $sql_maker->quote_char,
# the SQLT producer has no idea what quotes are :/
! grep { $db eq $_ } qw( SYBASE DB2 )
and
- my $ddl = try { $schema->deployment_statements }
+ my $ddl = eval { $schema->deployment_statements }
) {
my $quoted_artist = $sql_maker->_quote('artist');
}
done_testing;
-
-sub dumper {
- my $val = shift;
-
- my $dd = DumperObject;
- $dd->Indent(0);
- return $dd->Values([ $val ])->Dump;
-}
-
-1;