uploadin;

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

diff --git a/t/001_basic.t b/t/001_basic.t
index f4fcd52..ba0fbb5 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -16,15 +16,9 @@ BEGIN {
        use warnings;   
        use Moose;
                
-       has 'x' => (
-               is => Int(),            
-               reader => 'x',                          
-       );
-
-       has 'y' => (
-               is => Int(),                    
-               accessor => 'y',        
-       );
+       has 'x' => (isa => Int(), is => 'ro');
+
+       has 'y' => (isa => Int(), is => 'rw');
        
        sub clear {
            my $self = shift;
@@ -39,7 +33,7 @@ BEGIN {
        
        extends 'Point';
        
-       has 'z' => (is => Int());
+       has 'z' => (isa => Int());
        
        after 'clear' => sub {
            my $self = shift;