diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 01:34:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 01:34:22 +0000 |
| commit | e8be01ad7283c324fe9db770872318e7652de479 (patch) | |
| tree | cc187bb20444342da0cfcca7a03197cba7a8fa79 /t | |
| parent | f63e93b707c77752519c464662263d14dee84031 (diff) | |
| download | perl-e8be01ad7283c324fe9db770872318e7652de479.tar.gz | |
Another coat of paint but still nowhere finished.
Need to decide on the semantics of strptime(): should
strptime() be a function instead of a method? To do
the week/monthname-strptiming the i18n/l10n bullet needs
to be bitten with gusto.
p4raw-id: //depot/perl@9946
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/time-piece.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/lib/time-piece.t b/t/lib/time-piece.t index fcb64e627b..bf41a7ddd3 100644 --- a/t/lib/time-piece.t +++ b/t/lib/time-piece.t @@ -12,7 +12,7 @@ BEGIN { } } -print "1..85\n"; +print "1..86\n"; use Time::Piece; @@ -314,3 +314,8 @@ print "ok 84\n"; print "not " unless Time::Piece::_is_leap_year(1904); print "ok 85\n"; +my %T = $t->strptime("%T", "12:34:56"); + +print "not " unless keys %T == 3 && $T{H} == 12 && $T{M} == 34 && $T{S} == 56; +print "ok 86\n"; + |