simple repro case for crash bug

[p5sagit/strictures.git] / t / crash.t

diff --git a/t/crash.t b/t/crash.t
new file mode 100644 (file)
index 0000000..5134293
--- /dev/null
+++ b/t/crash.t
@@ -0,0 +1,16 @@
+use strictures;
+
+use Test::More tests => 1;
+
+SKIP: {
+  skip 'Have all the modules; can\'t check this', 1
+    unless not eval {
+      require indirect;
+      require multidimensional;
+      require bareword::filehandles;
+      1;
+    };
+
+  pass('can manage to survive with some modules missing!');
+}
+