You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.8 KiB
61 lines
1.8 KiB
#!/usr/bin/perl
|
|
#
|
|
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 18;
|
|
use Time::Local;
|
|
|
|
require_ok('NGCP::BulkProcessor::Utils');
|
|
|
|
NGCP::BulkProcessor::Utils->import(qw(
|
|
zerofill
|
|
secs_to_years
|
|
timestampdigits
|
|
datestampdigits
|
|
timestamp
|
|
timestamp_fromepochsecs
|
|
datestamp
|
|
get_year
|
|
get_year_month
|
|
get_year_month_day
|
|
));
|
|
|
|
# zerofill()
|
|
is(zerofill(0, 4), '0000');
|
|
is(zerofill(25, 4), '0025');
|
|
is(zerofill(1000, 4), '1000');
|
|
|
|
# secs_to_years()
|
|
is(secs_to_years(1), '1 second');
|
|
is(secs_to_years(59), '59 seconds');
|
|
is(secs_to_years(3661), '1 hour, 1 minute, 1 second');
|
|
is(secs_to_years(7322), '2 hours, 2 minutes, 2 seconds');
|
|
is(secs_to_years(86461), '1 day, 0 hours, 1 minute, 1 second');
|
|
is(secs_to_years(691261), '8 days, 0 hours, 1 minute, 1 second');
|
|
|
|
# time functions
|
|
my $time = timelocal(58, 59, 23, 2, 10, 2042);
|
|
|
|
is(timestampdigits($time), '20421102235958');
|
|
is(datestampdigits($time), '20421102');
|
|
is(timestamp($time), '2042-11-02 23:59:58');
|
|
is(timestamp_fromepochsecs($time), '2042-11-02 23:59:58');
|
|
is(datestamp($time), '2042-11-02');
|
|
is(get_year($time), '2042');
|
|
is_deeply([ get_year_month($time) ], [ '2042', '11' ]);
|
|
is_deeply([ get_year_month_day($time) ], [ '2042', '11', '02' ]);
|