X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F020_attributes%2F030_non_alpha_attr_names.t;fp=t%2F020_attributes%2F030_non_alpha_attr_names.t;h=81105a834c2f5a99f2896568817042b88ea3b6c8;hp=66f4fe2c16ed729cdebd31d1e32598eb6d0bf956;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hpb=8845df4dd6432e3164d078ade741409061adae9f

diff --git a/t/020_attributes/030_non_alpha_attr_names.t b/t/020_attributes/030_non_alpha_attr_names.t
index 66f4fe2..81105a8 100644
--- a/t/020_attributes/030_non_alpha_attr_names.t
+++ b/t/020_attributes/030_non_alpha_attr_names.t
@@ -1,11 +1,7 @@
 use strict;
-# 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 warnings;
 
-use Test::More;
-use Test::Mouse;
+use Test::More tests => 12;
 
 {
     package Foo;
@@ -16,54 +12,30 @@ use Test::Mouse;
         default  => 1,
     );
 
-    # Assigning types to these non-alpha attrs exposed a bug in Mouse.
     has '@type' => (
-        isa      => 'Str',
         required => 0,
         reader   => 'get_at_type',
-        writer   => 'set_at_type',
-        default  => 'at type',
+        default  => 2,
     );
 
     has 'has spaces' => (
-        isa      => 'Int',
         required => 0,
         reader   => 'get_hs',
         default  => 42,
     );
 
-    has '!req' => (
-        required => 1,
-        reader   => 'req'
-    );
-
     no Mouse;
 }
 
-with_immutable {
+{
+    my $foo = Foo->new;
+
     ok( Foo->meta->has_attribute($_), "Foo has '$_' attribute" )
         for 'type', '@type', 'has spaces';
 
-    my $foo = Foo->new( '!req' => 42 );
-
-    is( $foo->get_type,    1,         q{'type' attribute default is 1} );
-    is( $foo->get_at_type, 'at type', q{'@type' attribute default is 1} );
-    is( $foo->get_hs, 42, q{'has spaces' attribute default is 42} );
+    is( $foo->get_type,    1,  q{'type' attribute default is 1} );
+    is( $foo->get_at_type, 2,  q{'@type' attribute default is 1} );
+    is( $foo->get_hs,      42, q{'has spaces' attribute default is 42} );
 
-    $foo = Foo->new(
-        type         => 'foo',
-        '@type'      => 'bar',
-        'has spaces' => 200,
-        '!req'       => 84,
-    );
-
-    isa_ok( $foo, 'Foo' );
-    is( $foo->get_at_type, 'bar', q{reader for '@type'} );
-    is( $foo->get_hs,      200, q{reader for 'has spaces'} );
-
-    $foo->set_at_type(99);
-    is( $foo->get_at_type, 99, q{writer for '@type' worked} );
+    Foo->meta->make_immutable, redo if Foo->meta->is_mutable;
 }
-'Foo';
-
-done_testing;