t/normalize_duration.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 10;
   4 use DateTime::Duration;
   5
   6 BEGIN {
   7     use_ok('WWW::OrangeHRM::Client', qw(normalize_duration));
   8 }
   9
  10 is(
  11     normalize_duration('12:34'),
  12     '12:34',
  13     '12:34'
  14 );
  15
  16 is(
  17     normalize_duration('12'),
  18     '12:00',
  19     '12 hours'
  20 );
  21
  22 is(
  23     normalize_duration('01:02'),
  24     '01:02',
  25     '01:02'
  26 );
  27
  28 is(
  29     normalize_duration('1:2'),
  30     '01:02',
  31     '1:2'
  32 );
  33
  34 is(
  35     normalize_duration('x1:2'),
  36     'x1:2',
  37     'x1:2'
  38 );
  39
  40 is(
  41     normalize_duration('1:x2'),
  42     '1:x2',
  43     '1:x2'
  44 );
  45
  46 is(
  47     normalize_duration('x'),
  48     'x',
  49     'x'
  50 );
  51
  52 is(
  53     normalize_duration(''),
  54     '00:00',
  55     'empty string'
  56 );
  57
  58 is(
  59     normalize_duration(undef),
  60     undef,
  61     'undef'
  62 );
  63