summaryrefslogtreecommitdiff
path: root/lib/Time
diff options
context:
space:
mode:
authorSteffen Mueller <smueller@cpan.org>2009-09-02 23:11:02 +0200
committerSteffen Mueller <smueller@cpan.org>2009-09-02 23:11:02 +0200
commit8ff19c00d111fa650b32e95778b91c8d7afe47f7 (patch)
treee84590a0d375ea1a7064158df07c15350012618c /lib/Time
parent9748ec9a218546f03f8c9521dcc8292addfb043b (diff)
downloadperl-8ff19c00d111fa650b32e95778b91c8d7afe47f7.tar.gz
Remove useless tests from lib/Time/Local.t
timelocal.pl simply uses Time::Local. No point in testing that.
Diffstat (limited to 'lib/Time')
-rw-r--r--lib/Time/Local.t20
1 files changed, 1 insertions, 19 deletions
diff --git a/lib/Time/Local.t b/lib/Time/Local.t
index 0f3ccbd1f5..3f48404b3c 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');
- }
-}