basic-test

[gitmo/Moose-Policy.git] / t / 001_basic.t

diff --git a/t/001_basic.t b/t/001_basic.t
index 298e89c..cdc3c2b 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -6,5 +6,33 @@ use warnings;
 use Test::More tests => 1;
 
 BEGIN {
-    use_ok('Moose');           
+    use_ok('Moose::Policy');           
+}
+
+{
+    package My::Moose::Meta::Attribute;
+    use Moose;
+    
+    extends 'Moose::Meta::Attribute';
+    
+    before '_process_options' => sub {
+        my ($class, $name, $options) = @_;
+       if (exists $options->{is}) {
+               if ($options->{is} eq 'ro') {
+                       $options->{reader} = 'get_' . $name;
+               }
+               elsif ($options->{is} eq 'rw') {
+                $options->{reader} = 'get_' . $name;                                                   
+                $options->{writer} = 'set_' . $name;                           
+               }
+               delete $options->{is};
+       }
+    };
+}
+
+
+{
+    package My::Moose::Policy;
+    
+    
 }
\ No newline at end of file