From: Ben Morrow <ben@morrow.me.uk>
Date: Tue, 20 Jan 2009 03:01:37 +0000 (+0000)
Subject: Tests for -X overload on File::stat.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd22a09c8c81e5e4c639c15ad19704a0d1e0c842;p=p5sagit%2Fp5-mst-13.2.git

Tests for -X overload on File::stat.
---

diff --git a/lib/File/stat.t b/lib/File/stat.t
index 2359453..b1c4b9f 100644
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -19,7 +19,7 @@ BEGIN {
     unless (@stat) { plan skip_all => "1..0 # Skip: no file TEST"; exit 0 }
 }
 
-plan tests => 19;
+plan tests => 19 + 24*2 + 3;
 
 use_ok( 'File::stat' );
 
@@ -56,6 +56,23 @@ is( $stat->blksize, $stat[11], "IO block size in position 11" );
 
 is( $stat->blocks, $stat[12], "number of blocks in position 12" );
 
+for (split //, "rwxoRWXOezsfdlpSbcugkMCA") {
+    SKIP: {
+        $^O eq "VMS" and index "rwxRWX", $_
+            and skip "File::stat ignores VMS ACLs", 1;
+
+        my $rv = eval "-$_ \$stat";
+        ok( !$@,                            "-$_ overload succeeds" )
+            or diag( $@ );
+        is( $rv, eval "-$_ 'TEST'",         "correct -$_ overload" );
+    }
+}
+
+for (split //, "tTB") {
+    eval "-$_ \$stat";
+    like( $@, qr/\Q-$_ is not implemented/, "-$_ overload fails" );
+}
+
 SKIP: {
 	local *STAT;
 	skip("Could not open file: $!", 2) unless open(STAT, 'TEST');
@@ -81,8 +98,9 @@ SKIP: {
 	main::is( "@$stat", "@$stat3", '... and must match normal stat' );
 }
 
+
 local $!;
 $stat = stat '/notafile';
-isn't( $!, '', 'should populate $!, given invalid file' );
+isnt( $!, '', 'should populate $!, given invalid file' );
 
 # Testing pretty much anything else is unportable.