Convert all tests to done_testing.

[gitmo/Moose.git] / t / 020_attributes / 021_method_generation_rules.t

diff --git a/t/020_attributes/021_method_generation_rules.t b/t/020_attributes/021_method_generation_rules.t
index db96f52..646e572 100644 (file)
--- a/t/020_attributes/021_method_generation_rules.t
+++ b/t/020_attributes/021_method_generation_rules.t
@@ -3,12 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');
-}
 
 =pod
 
@@ -20,11 +17,11 @@ BEGIN {
 =cut
 
 sub make_class {
-       my ($is, $attr, $class) = @_;
+    my ($is, $attr, $class) = @_;
 
-       eval "package $class; use Moose; has 'foo' => ( is => '$is', $attr => '_foo' );";
+    eval "package $class; use Moose; has 'foo' => ( is => '$is', $attr => '_foo' );";
 
-       return $@ ? die $@ : $class;
+    return $@ ? die $@ : $class;
 }
 
 my $obj;
@@ -39,7 +36,7 @@ can_ok($obj, qw/foo _foo/);
 lives_ok {$obj->_foo(1)} "$class->_foo is writer";
 is($obj->foo(), 1, "$class->foo is reader");
 dies_ok {$obj->foo(2)} "$class->foo is not writer"; # this should fail
-ok(!defined $obj->_foo(), "$class->_foo is not reader"); 
+ok(!defined $obj->_foo(), "$class->_foo is not reader");
 
 $class = make_class('ro', 'writer', 'Test::Class::WriterRO');
 ok($class, "Can define attr with ro + writer");
@@ -63,3 +60,4 @@ is($obj->_foo(), 1, "$class->foo is reader");
 
 dies_ok { make_class('ro', 'accessor', "Test::Class::AccessorRO"); } "Cant define attr with ro + accessor";
 
+done_testing;