From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 27 Jan 2014 11:50:49 +0000 (+0100)
Subject: Skip annoyingly failing test on broken base.pm
X-Git-Tag: v0.08260~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f073420b2c87814662fc34fd544e29bf0883f26c;p=dbsrgits%2FDBIx-Class.git

Skip annoyingly failing test on broken base.pm

Was broken in 5.19.7, fixed in 5.19.8
---

diff --git a/t/inflate/hri.t b/t/inflate/hri.t
index eece6df..b9ca3d8 100644
--- a/t/inflate/hri.t
+++ b/t/inflate/hri.t
@@ -2,6 +2,14 @@ use strict;
 use warnings;
 
 use Test::More;
+
+use DBIx::Class::_Util 'modver_gt_or_eq';
+use base();
+BEGIN {
+  plan skip_all => 'base.pm 2.20 (only present in perl 5.19.7) is known to break this test'
+    if modver_gt_or_eq(base => '2.19_01') and ! modver_gt_or_eq(base => '2.21');
+}
+
 use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;