From 7a714ae480f238211b37fcdb248aecea93ece234 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Tue, 14 Jul 2015 15:10:15 -0400 Subject: [PATCH] LP#1474507: tests for interval_to_seconds Signed-off-by: Galen Charlton --- src/perl/t/09-Utils-interval_to_seconds.t | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 src/perl/t/09-Utils-interval_to_seconds.t diff --git a/src/perl/t/09-Utils-interval_to_seconds.t b/src/perl/t/09-Utils-interval_to_seconds.t new file mode 100644 index 0000000..4328fe2 --- /dev/null +++ b/src/perl/t/09-Utils-interval_to_seconds.t @@ -0,0 +1,16 @@ +#!perl -T + +use Test::More tests => 9; + +BEGIN { + use_ok( 'OpenSRF::Utils' ); +} + +is (OpenSRF::Utils::interval_to_seconds('1 second'), 1); +is (OpenSRF::Utils::interval_to_seconds('1 minute'), 60); +is (OpenSRF::Utils::interval_to_seconds('1 hour'), 3600); +is (OpenSRF::Utils::interval_to_seconds('1 day'), 86400); +is (OpenSRF::Utils::interval_to_seconds('1 week'), 604800); +is (OpenSRF::Utils::interval_to_seconds('1 month'), 2628000); +is (OpenSRF::Utils::interval_to_seconds('1 year'), 31536000); +is (OpenSRF::Utils::interval_to_seconds('1 year 1 second'), 31536001); -- 2.43.2