diff options
author | Steffen Mueller <smueller@cpan.org> | 2009-09-02 23:11:02 +0200 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2009-09-02 23:11:02 +0200 |
commit | 8ff19c00d111fa650b32e95778b91c8d7afe47f7 (patch) | |
tree | e84590a0d375ea1a7064158df07c15350012618c /lib/Time | |
parent | 9748ec9a218546f03f8c9521dcc8292addfb043b (diff) | |
download | perl-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.t | 20 |
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'); - } -} |