Remove duplicate test, changelogging, bump version, add rafl to the POD

diff --git a/Changes b/Changes
index 74c4b69..7d3e01b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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

diff --git a/lib/MooseX/Emulate/Class/Accessor/Fast.pm b/lib/MooseX/Emulate/Class/Accessor/Fast.pm
index b6b4065..33e9426 100644 (file)
--- a/lib/MooseX/Emulate/Class/Accessor/Fast.pm
+++ b/lib/MooseX/Emulate/Class/Accessor/Fast.pm
@@ -6,7 +6,7 @@ use Scalar::Util ();
 
 use MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor ();
 
-our $VERSION = '0.00701';
+our $VERSION = '0.00800';
 
 =head1 NAME
 
@@ -318,7 +318,9 @@ With contributions from:
 
 =over 4
 
-=item Tomas Doran E<lt>bobtfish@bobtfish.netE<gt>
+=item Tomas Doran (t0m) E<lt>bobtfish@bobtfish.netE<gt>
+
+=item Florian Ragwitz (rafl) E<lt>rafl@debian.orgE<gt>
 
 =back
 

diff --git a/t/double_apply.t b/t/double_apply.t
deleted file mode 100644 (file)
index ae520f5..0000000
--- a/t/double_apply.t
+++ /dev/null
@@ -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';
-

diff --git a/t/recreated_accessors.t b/t/recreated_accessors.t
index 8b63b59..8fd5799 100644 (file)
--- a/t/recreated_accessors.t
+++ b/t/recreated_accessors.t
@@ -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 @@ lives_ok {
   $i->foo('foo');
   $i->baz('baz');
 
-  # 3-4
+  # 3-5
   is($i->foo, 'foo');
   is($i->bar, 'bar');
+  is($i->{baz}, 'baz');
 } 'No exception';