This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test that File::stat exports stat by default, overriding the builtin.
authorNicholas Clark <nick@ccl4.org>
Wed, 13 Jun 2012 16:01:48 +0000 (18:01 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 21 Jun 2012 07:00:36 +0000 (09:00 +0200)
Also, add a test that the array produced by File::stat::stat is identical to
the list produced by the builtin.

lib/File/stat.t

index 5a66b46..641cfad 100644 (file)
@@ -11,7 +11,7 @@ use Test::More;
 use Config qw( %Config );
 use File::Temp qw( tempfile tempdir );
 
-require File::stat;
+use File::stat;
 
 my (undef, $file) = tempfile();
 
@@ -19,6 +19,7 @@ my (undef, $file) = tempfile();
     my @stat = CORE::stat $file;
     my $stat = File::stat::stat($file);
     isa_ok($stat, 'File::stat', 'should build a stat object');
+    is_deeply($stat, \@stat, '... and matches the builtin');
 
     my $i = 0;
     foreach ([dev => 'device number'],
@@ -43,6 +44,11 @@ my (undef, $file) = tempfile();
         }
         ++$i;
     }
+
+    my $stat2 = stat $file;
+    isa_ok($stat2, 'File::stat',
+           'File::stat exports stat, overriding the builtin');
+    is_deeply($stat2, $stat, '... and matches the direct call');
 }
 
 sub test_X_ops {