From: Steffen Mueller <smueller@cpan.org>
Date: Wed, 2 Sep 2009 21:11:02 +0000 (+0200)
Subject: Remove useless tests from lib/Time/Local.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ff19c00d111fa650b32e95778b91c8d7afe47f7;p=p5sagit%2Fp5-mst-13.2.git

Remove useless tests from lib/Time/Local.t

timelocal.pl simply uses Time::Local. No point in testing that.
---

diff --git a/lib/Time/Local.t b/lib/Time/Local.t
index 0f3ccbd..3f48404 100644
--- a/lib/Time/Local.t
+++ b/lib/Time/Local.t
@@ -80,7 +80,7 @@ my $tests = (@time * 12);
 $tests += @neg_time * 12;
 $tests += @bad_time;
 $tests += @years;
-$tests += 23;
+$tests += 21;
 
 plan tests => $tests;
 
@@ -256,21 +256,3 @@ SKIP:
     is( ( localtime( timelocal( 0, 0, 2, 27, 2, 2005 ) ) )[2], 2,
         'hour is 2 when given 2:00 AM on Europe/London date change' );
 }
-
-SKIP:
-{
-    skip 'These tests are only run when $ENV{PERL_CORE} is true.', 2
-        unless $ENV{PERL_CORE};
-
-    {
-        package test;
-        require 'timelocal.pl';
-
-        # need to get ok() from main package
-        ::is(timegm(0,0,0,1,0,80), main::timegm(0,0,0,1,0,80),
-             'timegm in timelocal.pl');
-
-        ::is(timelocal(1,2,3,4,5,88), main::timelocal(1,2,3,4,5,88),
-             'timelocal in timelocal.pl');
-    }
-}