This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert lib/File/stat.t from a complex plan calculation to done_testing().
authorNicholas Clark <nick@ccl4.org>
Sat, 2 Jun 2012 20:42:47 +0000 (22:42 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 21 Jun 2012 06:58:59 +0000 (08:58 +0200)
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.

lib/File/stat.t

index 78d57d8..7433de8 100644 (file)
@@ -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: