-
Notifications
You must be signed in to change notification settings - Fork 213
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Can't locate object method "message" via package "NO at t/lib/DBIEngineTest.pm... #858
Comments
t/exasol.t may also fail with a similar "Can't locate object method" failure:
|
I tweaked things in v1.5.0 to "always" raise an exception, but it seems I missed some. There trick is to figure out what bits are dying without raising an exception. Given the exasol error, it seems like you have DBD::ODBC but Sqitch isn't passing Does this patch fix these issues? --- a/t/exasol.t
+++ b/t/exasol.t
@@ -414,7 +414,7 @@ END {
$uri = URI->new(
$ENV{SQITCH_TEST_EXASOL_URI} ||
$ENV{EXA_URI} ||
- 'db:dbadmin:password@localhost/dbadmin'
+ 'db:exasol://dbadmin:password@localhost/dbadmin'
);
my $err;
for my $i (1..30) {
--- a/t/firebird.t
+++ b/t/firebird.t
@@ -31,7 +31,7 @@ my $uri;
my $tmpdir;
my $have_fb_driver = 1; # assume DBD::Firebird is installed and so is Firebird
-# Is DBD::Firebird realy installed?
+# Is DBD::Firebird really installed?
try { require DBD::Firebird; } catch { $have_fb_driver = 0; };
BEGIN {
@@ -472,11 +472,13 @@ DBIEngineTest->run(
# DBD::Firebird.
my $cmd = $self->client;
my $cmd_echo = qx(echo "quit;" | "$cmd" -z -quiet 2>&1 );
- return 0 unless $cmd_echo =~ m{Firebird}ims;
+ App::Sqitch::X::hurl('isql not for Firebird')
+ unless $cmd_echo =~ m{Firebird}ims;
chomp $cmd_echo;
say "# Detected $cmd_echo";
# Skip if no DBD::Firebird.
- return 0 unless $have_fb_driver;
+ App::Sqitch::X::hurl('DBD::Firebird did not load')
+ unless $have_fb_driver;
say "# Connected to Firebird $fb_version" if $fb_version;
return 1;
},
--- a/t/lib/DBIEngineTest.pm
+++ b/t/lib/DBIEngineTest.pm
@@ -88,7 +88,7 @@ sub run {
);
if (my $code = $p{skip_unless}) {
try {
- $code->( $engine ) || die 'NO';
+ $code->( $engine ) || App::Sqitch::X::hurl('NO');
} catch {
plan skip_all => sprintf(
'Unable to live-test %s engine: %s', Thanks, as ever, for your QA diligence, @eserte, I very much appreciate it! |
t/firebird.t fails on some of my smokers like this:
The text was updated successfully, but these errors were encountered: