Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t / 300_immutable / 001_immutable_moose.t

diff --git a/t/300_immutable/001_immutable_moose.t b/t/300_immutable/001_immutable_moose.t
index 4545901..2d72554 100644 (file)
--- a/t/300_immutable/001_immutable_moose.t
+++ b/t/300_immutable/001_immutable_moose.t
@@ -1,17 +1,16 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 15;
 use Test::Exception;
 
+use Test::Mouse;
 use Mouse::Meta::Role;
 
+use lib 't/lib';
+use MooseCompat;
 
 {
     package FooRole;
@@ -45,8 +44,10 @@ use Mouse::Meta::Role;
     is( Foo->new->bazes, 'many bazes',
         "correct value for 'bazes' before inlining constructor" );
     lives_ok { $meta->make_immutable } "Foo is imutable";
+
     lives_ok { $meta->identifier } "->identifier on metaclass lives";
     dies_ok { $meta->add_role($foo_role) } "Add Role is locked";
+
     lives_ok { Foo->new } "Inlined constructor works with lazy_build";
     is( Foo->new->foos, 'many foos',
         "correct value for 'foos'  after inlining constructor" );
@@ -54,8 +55,11 @@ use Mouse::Meta::Role;
         "correct value for 'bars'  after inlining constructor" );
     is( Foo->new->bazes, 'many bazes',
         "correct value for 'bazes' after inlining constructor" );
-    lives_ok { $meta->make_mutable } "Foo is mutable";
-    lives_ok { $meta->add_role($foo_role) } "Add Role is unlocked";
+    SKIP: {
+        skip "Mouse doesn't supports make_mutable", 2;
+        lives_ok { $meta->make_mutable } "Foo is mutable";
+        lives_ok { $meta->add_role($foo_role) } "Add Role is unlocked";
+    };
 
 }
 
@@ -88,5 +92,3 @@ lives_ok { Baz->meta->make_immutable }
 Nothing here yet, but soon :)
 
 =cut
-
-done_testing;