[Moose-commits] r7653 - in MooseX-GlobRef/trunk: . t/tlib/MooseX

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

Author: dexter
Date: 2009-02-13 08:12:30 -0800 (Fri, 13 Feb 2009)
New Revision: 7653

Modified:
   MooseX-GlobRef/trunk/MANIFEST
   MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefBaseTest.pm
   MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefImmutableTest.pm
   MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefTest.pm
Log:
* Fix tests.
* Test also method "dump".

Modified: MooseX-GlobRef/trunk/MANIFEST
===================================================================
--- MooseX-GlobRef/trunk/MANIFEST	2009-02-13 16:01:48 UTC (rev 7652)
+++ MooseX-GlobRef/trunk/MANIFEST	2009-02-13 16:12:30 UTC (rev 7653)
@@ -3,18 +3,18 @@
 eg/extends_object.pl
 eg/use_metaclass.pl
 Incompatibilities
-lib/MooseX/GlobRef/Meta/Class.pm
-lib/MooseX/GlobRef/Meta/Instance.pm
+lib/MooseX/GlobRef.pm
 lib/MooseX/GlobRef/Object.pm
+lib/MooseX/GlobRef/Role/Meta/Instance.pm
+lib/MooseX/GlobRef/Role/Object.pm
 LICENSE
 Makefile.PL
 MANIFEST
 MANIFEST.SKIP
 META.yml
 README
-t/010_MooseX_GlobRef_Object.t
-t/020_MooseX_GlobRef_Meta_Class.t
-t/030_MooseX_GlobRef_Meta_Instance.t
+t/010_MooseX_GlobRef.t
+t/020_MooseX_GlobRef_Object.t
 t/test.pl
 t/tlib/MooseX/GlobRef/Meta/ClassImmutableTest.pm
 t/tlib/MooseX/GlobRef/Meta/ClassTest.pm
@@ -22,10 +22,13 @@
 t/tlib/MooseX/GlobRef/Meta/InstanceImmutableTest.pm
 t/tlib/MooseX/GlobRef/Meta/InstanceTest.pm
 t/tlib/MooseX/GlobRef/Meta/InstanceTestSuite.pm
-t/tlib/MooseX/GlobRef/ObjectBaseTest.pm
 t/tlib/MooseX/GlobRef/ObjectImmutableTest.pm
 t/tlib/MooseX/GlobRef/ObjectTest.pm
 t/tlib/MooseX/GlobRef/ObjectTestSuite.pm
+t/tlib/MooseX/GlobRefBaseTest.pm
+t/tlib/MooseX/GlobRefImmutableTest.pm
+t/tlib/MooseX/GlobRefTest.pm
+t/tlib/MooseX/GlobRefTestSuite.pm
 xt/consistent_version_numbers.t
 xt/copyright.t
 xt/cover.pl

Modified: MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefBaseTest.pm
===================================================================
--- MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefBaseTest.pm	2009-02-13 16:01:48 UTC (rev 7652)
+++ MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefBaseTest.pm	2009-02-13 16:12:30 UTC (rev 7653)
@@ -1,4 +1,4 @@
-package MooseX::GlobRef::GlobRefBaseTest;
+package MooseX::GlobRefBaseTest;
 
 use Test::Unit::Lite;
 use parent 'Test::Unit::TestCase';
@@ -107,4 +107,17 @@
     assert_null($obj->weak_field);
 };
 
+sub test_dump {
+    my $self = shift;
+    my $test_class = $self->test_class;
+
+    my $obj = $test_class->new;
+    assert_not_null($obj);
+    assert_isa($test_class, $obj);
+    $obj->field('VALUE');
+    my @dump = $obj->dump;
+    assert_equals( 2, scalar @dump );
+    assert_matches( qr/$test_class.*VALUE/s, join '', @dump );
+};
+
 1;

Modified: MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefImmutableTest.pm
===================================================================
--- MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefImmutableTest.pm	2009-02-13 16:01:48 UTC (rev 7652)
+++ MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefImmutableTest.pm	2009-02-13 16:12:30 UTC (rev 7653)
@@ -9,7 +9,7 @@
 
     use Moose;
 
-    use 'MooseX::GlobRef';
+    use MooseX::GlobRef;
 
     has field => (
         is      => 'rw',

Modified: MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefTest.pm
===================================================================
--- MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefTest.pm	2009-02-13 16:01:48 UTC (rev 7652)
+++ MooseX-GlobRef/trunk/t/tlib/MooseX/GlobRefTest.pm	2009-02-13 16:12:30 UTC (rev 7653)
@@ -9,7 +9,7 @@
 
     use Moose;
     
-    use 'MooseX::GlobRef';
+    use MooseX::GlobRef;
 
     has field => (
         is      => 'rw',