Move t/*/t into t/001_mouse

[gitmo/Mouse.git] / t / 001_mouse / 001-strict.t

diff --git a/t/001_mouse/001-strict.t b/t/001_mouse/001-strict.t
new file mode 100644 (file)
index 0000000..fb82c0e
--- /dev/null
+++ b/t/001_mouse/001-strict.t
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use Test::More tests => 1;
+use Test::Exception;
+
+throws_ok {
+    package Class;
+    use Mouse;
+
+    my $foo = '$foo';
+    chop $$foo;
+} qr/Can't use string \("\$foo"\) as a SCALAR ref while "strict refs" in use /,
+  'using Mouse turns on strictures';
+