src/perl/t/09-Utils-interval_to_seconds.t

   1 #!perl -T
   2
   3 use Test::More tests => 9;
   4
   5 BEGIN {
   6         use_ok( 'OpenSRF::Utils' );
   7 }
   8
   9 is (OpenSRF::Utils::interval_to_seconds('1 second'), 1);
  10 is (OpenSRF::Utils::interval_to_seconds('1 minute'), 60);
  11 is (OpenSRF::Utils::interval_to_seconds('1 hour'), 3600);
  12 is (OpenSRF::Utils::interval_to_seconds('1 day'), 86400);
  13 is (OpenSRF::Utils::interval_to_seconds('1 week'), 604800);
  14 is (OpenSRF::Utils::interval_to_seconds('1 month'), 2628000);
  15 is (OpenSRF::Utils::interval_to_seconds('1 year'), 31536000);
  16 is (OpenSRF::Utils::interval_to_seconds('1 year 1 second'), 31536001);