Add a failing test for combination with MooseX::ClassAttribute

[gitmo/MooseX-AttributeHelpers.git] / t / 900_class_attribute.t

diff --git a/t/900_class_attribute.t b/t/900_class_attribute.t
new file mode 100644 (file)
index 0000000..bb59dc3
--- /dev/null
+++ b/t/900_class_attribute.t
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+do {
+    package TestClass;
+    BEGIN {
+        ::plan skip_all => "MooseX::ClassAttribute required for this test"
+            unless eval {
+                require MooseX::ClassAttribute;
+                MooseX::ClassAttribute->VERSION('0.05');
+            };
+        MooseX::ClassAttribute->import;
+    }
+
+    class_has counter => (
+        metaclass => 'Counter',
+        provides  => {
+            inc => 'inc_counter',
+        },
+    );
+};
+
+is(TestClass->counter, 0);
+TestClass->inc_counter;
+is(TestClass->counter, 1);
+