From: Jason Etheridge <jason@esilibrary.com>
Date: Tue, 14 Jul 2015 19:10:15 +0000 (-0400)
Subject: LP#1474507: tests for interval_to_seconds
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7a714ae480f238211b37fcdb248aecea93ece234;p=working%2FOpenSRF.git

LP#1474507: tests for interval_to_seconds

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

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);