Remove useless tests from lib/Time/Local.t
authorSteffen Mueller <smueller@cpan.org>
Wed, 2 Sep 2009 21:11:02 +0000 (23:11 +0200)
committerSteffen Mueller <smueller@cpan.org>
Wed, 2 Sep 2009 21:11:02 +0000 (23:11 +0200)
timelocal.pl simply uses Time::Local. No point in testing that.

lib/Time/Local.t

index 0f3ccbd..3f48404 100644 (file)
@@ -80,7 +80,7 @@ my $tests = (@time * 12);
 $tests += @neg_time * 12;
 $tests += @bad_time;
 $tests += @years;
 $tests += @neg_time * 12;
 $tests += @bad_time;
 $tests += @years;
-$tests += 23;
+$tests += 21;
 
 plan tests => $tests;
 
 
 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' );
 }
     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');
-    }
-}