Skip a test that fails on some platforms

diff --git a/t/900_mouse_bugs/006_RT69939.t b/t/900_mouse_bugs/006_RT69939.t
index 680dee8..c211a2c 100644 (file)
--- a/t/900_mouse_bugs/006_RT69939.t
+++ b/t/900_mouse_bugs/006_RT69939.t
@@ -1,5 +1,13 @@
 #!perl -w
 
+use Test::More;
+
+BEGIN {
+    if($^O =~ /bsd/) {
+        plan skip_all => q{TODO: *bsd might fail on this tests (this test is an workaround to a core bug)};
+    }
+}
+
 package Foo;
 use Mouse;