X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMoose-Policy.git;a=blobdiff_plain;f=t%2F001_basic.t;h=cdc3c2ba88b48dfc47dbf8d2f86045cdd9a1d006;hp=298e89cdc347a7a403b3a4ec7a47526c34557d25;hb=b14c8df5cc7592d2ee2b1b50080c416cfcb703e5;hpb=82cfc0496fef93b198fc6e6a6f85d102eedacf1f

diff --git a/t/001_basic.t b/t/001_basic.t
index 298e89c..cdc3c2b 100644
--- 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