Convert lib/File/stat.t from a complex plan calculation to done_testing().

Also replace use_ok (not in BEGIN) with a simple require. If the require
fails it's not worth trying to test anything else, Test::More's END
handing will automatically report a test failure, so the failure will be
recorded.

Add an editor block.

diff --git a/lib/File/stat.t b/lib/File/stat.t
index 78d57d8..7433de8 100644 (file)
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -42,12 +42,10 @@ BEGIN {
 our @stat = stat $file; # This is the function stat.
 unless (@stat) { plan skip_all => "1..0 # Skip: no file $file"; exit 0 }
 
-plan tests => 19 + 24*2 + 4 + 3 + 7 + 2;
-
-use_ok( 'File::stat' );
+require File::stat;
 
 my $stat = File::stat::stat( $file ); # This is the OO stat.
-ok( ref($stat), 'should build a stat object' );
+isa_ok($stat, 'File::stat', 'should build a stat object' );
 
 is( $stat->dev, $stat[0], "device number in position 0" );
 
@@ -137,7 +135,6 @@ SKIP: {
 }
 
 {   # 111640 - File::stat bogus index check in overload
-    # 7 tests in this block
 
     use filetest "access";
     use warnings;
@@ -177,3 +174,12 @@ $stat = stat '/notafile';
 isnt( $!, '', 'should populate $!, given invalid file' );
 
 # Testing pretty much anything else is unportable.
+
+done_testing;
+
+# Local variables:
+# cperl-indent-level: 4
+# indent-tabs-mode: nil
+# End:
+#
+# ex: set ts=8 sts=4 sw=4 et: