You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
perl-DBIx-Class/verbose.patch

39 lines
1.3 KiB

--- t/86sqlt.t 2009-02-11 00:33:56.000000000 +0100
+++ t/86sqlt.t.verbose 2009-03-22 18:52:18.000000000 +0100
17 years ago
@@ -6,7 +6,7 @@
use DBICTest;
eval "use SQL::Translator";
-plan skip_all => 'SQL::Translator required' if $@;
+plan skip_all => "SQL::Translator required: $@" if $@;
my $schema = DBICTest->init_schema;
--- t/94versioning.t 2009-02-11 00:33:56.000000000 +0100
+++ t/94versioning.t.verbose 2009-03-22 18:52:47.000000000 +0100
17 years ago
@@ -7,7 +7,7 @@
BEGIN {
eval "use DBD::SQLite; use SQL::Translator 0.09003;";
17 years ago
plan $@
- ? ( skip_all => 'needs DBD::SQLite and SQL::Translator 0.09003 for testing' )
+ ? ( skip_all => "needs DBD::SQLite and SQL::Translator 0.09003 for testing: $@" )
17 years ago
: ( tests => 6 );
}
--- t/cdbi-t/03-subclassing.t 2009-02-11 00:33:49.000000000 +0100
+++ t/cdbi-t/03-subclassing.t.verbose 2009-03-22 18:53:24.000000000 +0100
17 years ago
@@ -8,11 +8,11 @@
BEGIN {
eval "use DBIx::Class::CDBICompat;";
if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
+ plan (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@");
next;
}
eval "use DBD::SQLite";
- plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6);
+ plan $@ ? (skip_all => "needs DBD::SQLite for testing: $@") : (tests => 6);
}
use lib 't/testlib';