[Moose-commits] r7511 - in MooseX-Emulate-Class-Accessor-Fast/trunk: . lib/MooseX/Emulate/Class/Accessor t

[t0m at code2.0beta.co.uk]

Author: t0m
Date: 2009-02-03 12:30:05 -0800 (Tue, 03 Feb 2009)
New Revision: 7511

Removed:
   MooseX-Emulate-Class-Accessor-Fast/trunk/t/double_apply.t
Modified:
   MooseX-Emulate-Class-Accessor-Fast/trunk/Changes
   MooseX-Emulate-Class-Accessor-Fast/trunk/lib/MooseX/Emulate/Class/Accessor/Fast.pm
   MooseX-Emulate-Class-Accessor-Fast/trunk/t/recreated_accessors.t
Log:
Remove duplicate test, changelogging, bump version, add rafl to the POD

Modified: MooseX-Emulate-Class-Accessor-Fast/trunk/Changes
===================================================================
--- MooseX-Emulate-Class-Accessor-Fast/trunk/Changes	2009-02-03 20:07:40 UTC (rev 7510)
+++ MooseX-Emulate-Class-Accessor-Fast/trunk/Changes	2009-02-03 20:30:05 UTC (rev 7511)
@@ -1,11 +1,16 @@
-0.00701    Jan 02, 2008
+0.00800    ??? ??, 2009
+          - Fix assigning a list to an accessor stores a list ref
+             - tests
+          - TODO test for Class::Accessor::Chained::Fast compatibility
+0.00701    Jan 02, 2009
           - Better errors when trying to modify an immutable class
           - Fix typo in Makefile.PL description
           - Missing dep in Makefile.PL (rafl)
 0.00700    Dec 29, 2008
-          - Creating a new accessor with the same name as an old one would result in
-            a new attribute with no reader/writer/accessor. Reported by t0m
-             - tests (t0m) 
+          - Creating a new accessor with the same name as an old one would 
+            result in a new attribute with no reader/writer/accessor. 
+            Reported by t0m
+             - tests (t0m)
 0.00600    Dec 17, 2008
           - Add test for a 'meta' accessor, which we need to treat as a 
             special case (t0m)
@@ -13,7 +18,8 @@
             which is behavior we don't want to lose (t0m)
           - Don't use ->meta
           - Don't use ->can
-          - Attempt to support attrs named meta with no success. test marked as todo.
+          - Attempt to support attrs named meta with no success. test marked 
+            as todo.
 0.00500    Dec 9, 2008
           - make_accessor, make_ro_accessor, make_rw_accessor
             - tests

Modified: MooseX-Emulate-Class-Accessor-Fast/trunk/lib/MooseX/Emulate/Class/Accessor/Fast.pm
===================================================================
--- MooseX-Emulate-Class-Accessor-Fast/trunk/lib/MooseX/Emulate/Class/Accessor/Fast.pm	2009-02-03 20:07:40 UTC (rev 7510)
+++ MooseX-Emulate-Class-Accessor-Fast/trunk/lib/MooseX/Emulate/Class/Accessor/Fast.pm	2009-02-03 20:30:05 UTC (rev 7511)
@@ -6,7 +6,7 @@
 
 use MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor ();
 
-our $VERSION = '0.00701';
+our $VERSION = '0.00800';
 
 =head1 NAME
 
@@ -318,8 +318,10 @@
 
 =over 4
 
-=item Tomas Doran E<lt>bobtfish at bobtfish.netE<gt>
+=item Tomas Doran (t0m) E<lt>bobtfish at bobtfish.netE<gt>
 
+=item Florian Ragwitz (rafl) E<lt>rafl at debian.orgE<gt>
+
 =back
 
 =head1 LICENSE

Deleted: MooseX-Emulate-Class-Accessor-Fast/trunk/t/double_apply.t
===================================================================
--- MooseX-Emulate-Class-Accessor-Fast/trunk/t/double_apply.t	2009-02-03 20:07:40 UTC (rev 7510)
+++ MooseX-Emulate-Class-Accessor-Fast/trunk/t/double_apply.t	2009-02-03 20:30:05 UTC (rev 7511)
@@ -1,31 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use Test::More tests => 5;
-use Test::Exception;
-
-# 1
-use_ok('MooseX::Adopt::Class::Accessor::Fast');
-{
-  package My::Package;
-  use base qw/Class::Accessor::Fast/;
-  for (0..1) {
-    __PACKAGE__->mk_accessors(qw( foo ));
-    __PACKAGE__->mk_ro_accessors(qw( bar ));
-    __PACKAGE__->mk_wo_accessors(qw( baz ));
-  }
-}
-
-my $i = bless { bar => 'bar' }, 'My::Package';
-
-# 2
-lives_ok {
-  $i->foo('foo');
-  $i->baz('baz');
-
-  # 3-5
-  is($i->foo, 'foo');
-  is($i->bar, 'bar');
-  is($i->{baz}, 'baz');
-} 'No exception';
-

Modified: MooseX-Emulate-Class-Accessor-Fast/trunk/t/recreated_accessors.t
===================================================================
--- MooseX-Emulate-Class-Accessor-Fast/trunk/t/recreated_accessors.t	2009-02-03 20:07:40 UTC (rev 7510)
+++ MooseX-Emulate-Class-Accessor-Fast/trunk/t/recreated_accessors.t	2009-02-03 20:30:05 UTC (rev 7511)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
 use Test::Exception;
 
 # 1
@@ -25,8 +25,9 @@
   $i->foo('foo');
   $i->baz('baz');
 
-  # 3-4
+  # 3-5
   is($i->foo, 'foo');
   is($i->bar, 'bar');
+  is($i->{baz}, 'baz');
 } 'No exception';