[Moose-commits] r7386 - in File-Stat-Moose/trunk: . t/tlib/File/Stat

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

Author: dexter
Date: 2009-01-25 10:01:44 -0800 (Sun, 25 Jan 2009)
New Revision: 7386

Modified:
   File-Stat-Moose/trunk/Changes
   File-Stat-Moose/trunk/t/tlib/File/Stat/MooseTest.pm
Log:
* Fixed test units: on Solaris rdev can be -1.

Modified: File-Stat-Moose/trunk/Changes
===================================================================
--- File-Stat-Moose/trunk/Changes	2009-01-25 16:18:06 UTC (rev 7385)
+++ File-Stat-Moose/trunk/Changes	2009-01-25 18:01:44 UTC (rev 7386)
@@ -1,4 +1,11 @@
 ------------------------------------------------------------------------
+0.0501 | Piotr Roszatycki <dexter at debian.org> | 2009-01-25
+
+Changes:
+
+* Fixed test units: on Solaris rdev can be -1.
+
+------------------------------------------------------------------------
 0.05 | Piotr Roszatycki <dexter at debian.org> | 2009-01-12
 
 Changes:

Modified: File-Stat-Moose/trunk/t/tlib/File/Stat/MooseTest.pm
===================================================================
--- File-Stat-Moose/trunk/t/tlib/File/Stat/MooseTest.pm	2009-01-25 16:18:06 UTC (rev 7385)
+++ File-Stat-Moose/trunk/t/tlib/File/Stat/MooseTest.pm	2009-01-25 18:01:44 UTC (rev 7386)
@@ -38,7 +38,7 @@
     assert_isa('File::Stat::Moose', $obj);
     {
         foreach my $attr (qw{ dev ino mode nlink uid gid rdev size blksize blocks }) {
-            assert_matches(qr/^\d+$/, $obj->$attr, $attr) if defined $obj->$attr;
+            assert_matches(qr/^-?\d+$/, $obj->$attr, $attr) if defined $obj->$attr;
         };
     };
     {
@@ -54,7 +54,7 @@
     assert_isa('File::Stat::Moose', $obj);
     {
         foreach my $attr (qw{ dev ino mode nlink uid gid rdev size blksize blocks }) {
-            assert_matches(qr/^\d+$/, $obj->$attr, $attr) if defined $obj->$attr;
+            assert_matches(qr/^-?\d+$/, $obj->$attr, $attr) if defined $obj->$attr;
         };
     };
     {
@@ -72,7 +72,7 @@
     assert_isa('File::Stat::Moose', $obj1);
     {
         foreach my $attr (qw{ dev ino mode nlink uid gid rdev size blksize blocks }) {
-            assert_matches(qr/^\d+$/, $obj1->$attr, $attr) if defined $obj1->$attr;
+            assert_matches(qr/^-?\d+$/, $obj1->$attr, $attr) if defined $obj1->$attr;
         };
     };
     {