Commits

Anonymous committed 8b7b6d2

Fixed dumper.t to resolve the setgid() problem.

  • Participants
  • Parent commits 98c6a9e
  • Tags releases/0.0.5

Comments (0)

Files changed (8)

File File-Dir-Dumper/Changes

 Revision history for File-Dir-Dumper
 
+0.0.5   Thu Nov 13 12:12:06 IST 2008
+        - Fixed dumper.t to resolve this test problem:
+            - http://www.nntp.perl.org/group/perl.cpan.testers/2008/11/msg2597312.html
+            - the GID was setgid'ed or something.
+
 0.0.4   Mon Nov 10 19:33:03 IST 2008
         - In 'build_requires' - changed IO::Scalar (which we're not
         using in the tests) to IO::String (which we do).

File File-Dir-Dumper/lib/File/Dir/Dumper.pm

 
 =head1 VERSION
 
-Version 0.0.4
+Version 0.0.5
 
 =cut
 
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.5';
 
 =head1 SYNOPSIS
 

File File-Dir-Dumper/lib/File/Dir/Dumper/App.pm

 
 =head1 VERSION
 
-Version 0.0.4
+Version 0.0.5
 
 =cut
 
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.5';
 
 =head1 SYNOPSIS
 

File File-Dir-Dumper/lib/File/Dir/Dumper/Base.pm

 
 =head1 VERSION
 
-Version 0.0.4
+Version 0.0.5
 
 =cut
 
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.5';
 
 
 =head1 METHODS

File File-Dir-Dumper/lib/File/Dir/Dumper/Scanner.pm

 
 =head1 VERSION
 
-Version 0.0.4
+Version 0.0.5
 
 =cut
 
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.5';
 
 =head1 SYNOPSIS
 

File File-Dir-Dumper/lib/File/Dir/Dumper/Stream/JSON/Reader.pm

 
 =head1 VERSION
 
-Version 0.0.4
+Version 0.0.5
 
 =cut
 
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.5';
 
 =head1 SYNOPSIS
 

File File-Dir-Dumper/lib/File/Dir/Dumper/Stream/JSON/Writer.pm

 
 =head1 VERSION
 
-Version 0.0.4
+Version 0.0.5
 
 =cut
 
-our $VERSION = '0.0.4';
+our $VERSION = '0.0.5';
 
 =head1 SYNOPSIS
 

File File-Dir-Dumper/t/dumper.t

 
     # TEST
     is ($token->{group},
-        scalar(getgrgid($GID)),
+        scalar(getgrgid((stat($t->get_path("$test_dir/a.doc")))[5])),
         "group is OK."
     );
-    
 
     # TEST
     is ($token->{depth}, 1, "Token depth is 1");
 
     # TEST
     is ($token->{group},
-        scalar(getgrgid($GID)),
+        scalar(getgrgid((stat($t->get_path("$test_dir/b/")))[5])),
         "group is OK."
     );