Skip this test entirely for now
Dave Rolsky [Mon, 14 Feb 2011 03:32:21 +0000 (21:32 -0600)]
t/12-moose-exporter.t [new file with mode: 0644]

diff --git a/t/12-moose-exporter.t b/t/12-moose-exporter.t
new file mode 100644 (file)
index 0000000..07b2f16
--- /dev/null
@@ -0,0 +1,41 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN { plan skip_all => 'This test fails with a syntax error' }
+
+{
+    package MooseX::Foo;
+
+    use strict;
+    use warnings;
+
+    use Moose::Exporter;
+    use MooseX::ClassAttribute ();
+
+    Moose::Exporter->setup_import_methods(
+        also => [ 'MooseX::ClassAttribute' ],
+    );
+}
+
+{
+    package MyClass;
+
+    use Moose;
+    # use MooseX::Foo;  # normal use
+    MooseX::Foo->import;
+
+    # Now theoretically, this should work -- the 'class_has' method
+    # should have been imported via the MooseX package above.
+    class_has attr => (
+        is => 'ro', isa => 'Str',
+        default => 'foo',
+    );
+}
+
+my $obj = MyClass->new();
+
+is( $obj->attr(), 'foo', 'class attribute is properly created' );
+
+done_testing();