From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 7 Feb 2008 16:17:58 +0000 (+0000)
Subject: tweaking tests
X-Git-Tag: 0_37~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be771c43c0d5fe8f9ac2b4e7f3a6a5c7e792aba9;p=gitmo%2FMoose.git

tweaking tests
---

diff --git a/Changes b/Changes
index 3002005..6c7de18 100644
--- a/Changes
+++ b/Changes
@@ -15,7 +15,12 @@ Revision history for Perl extension Moose
       Moose::Meta::Attribute        
       - making (init_arg => undef) work here too
         (thanks to nothingmuch)
+        
+    * Moose::Meta::Attribute        
+      Moose::Meta::Method::Constructor
+      Moose::Meta::Method::Accessor                
       - make lazy attributes respect attr initializers (rjbs)
+        - added tests for this
     
     * Moose::Util::TypeConstraints
       Moose::Util::TypeConstraints::OptimizedConstraints
diff --git a/t/060_compat/003_foreign_inheritence.t b/t/060_compat/003_foreign_inheritence.t
index 81b2b0f..5442e3f 100644
--- a/t/060_compat/003_foreign_inheritence.t
+++ b/t/060_compat/003_foreign_inheritence.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6; #7;
+use Test::More tests => 7;
 use Test::Exception;
 
 BEGIN {
@@ -49,7 +49,6 @@ BEGIN {
     extends 'Bucket';
 
     package MyBase;
-
     sub foo { }
 
     package Custom::Meta1;
@@ -78,9 +77,9 @@ isa_ok($foo_moose, 'Elk');
 is($foo_moose->no_moose, 'Elk', '... got the right value from the Elk method');
 is($foo_moose->moose, 'Foo', '... got the right value from the Foo::Moose method');
 
-#lives_ok { 
-#    Old::Bucket::Nose->meta->make_immutable(debug => 0); 
-#} 'Immutability on Moose class extending Class::MOP class ok';
+lives_ok { 
+    Old::Bucket::Nose->meta->make_immutable(debug => 0); 
+} 'Immutability on Moose class extending Class::MOP class ok';
 
 lives_ok {
   SubClass2::extends('MyBase');