From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 14 Jan 2011 22:53:21 +0000 (+0100)
Subject: Skip test on smokers with broken Moose
X-Git-Tag: v0.08127~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4ee58613571bad55096510fa24608ded39f4e63;p=dbsrgits%2FDBIx-Class.git

Skip test on smokers with broken Moose
---

diff --git a/t/storage/replicated.t b/t/storage/replicated.t
index 3f813aa..dc77f0b 100644
--- a/t/storage/replicated.t
+++ b/t/storage/replicated.t
@@ -9,6 +9,15 @@ BEGIN {
       unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_replicated');
 }
 
+use lib qw(t/lib);
+use DBICTest;
+
+if (DBICTest::RunMode->is_smoker) {
+  my $mver = Moose->VERSION;
+  plan skip_all => "A trial version $mver of Moose detected known to break replication - skipping test known to fail"
+    if ($mver >= 1.99 and $mver <= 1.9902);
+}
+
 use Test::Moose;
 use Test::Exception;
 use List::Util 'first';
@@ -19,9 +28,6 @@ use Moose();
 use MooseX::Types();
 note "Using Moose version $Moose::VERSION and MooseX::Types version $MooseX::Types::VERSION";
 
-use lib qw(t/lib);
-use DBICTest;
-
 my $var_dir = quotemeta ( File::Spec->catdir(qw/t var/) );
 
 use_ok 'DBIx::Class::Storage::DBI::Replicated::Pool';