X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2Fstorage%2Freplicated.t;fp=t%2Fstorage%2Freplicated.t;h=dc77f0b9f08c1fcb1710791f94fa816a6168d4a0;hp=3f813aa02f36a08646023154251209e5dde949ac;hb=e4ee58613571bad55096510fa24608ded39f4e63;hpb=efee51b7ecde1729e5ca8b760c71f099dc12bc06

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';