1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#
# test the time() function.
#
use strict;
use warnings;
use Test::More;
use MyNote;
use UUID 'generate_v1';
ok 1, 'loaded';
my $sys_time = time;
generate_v1(my $b0);
my $uid_time = UUID::time($b0);
UUID::unparse($b0, my $s0);
note 'new uuid ', $s0;
note 'sys time ', scalar localtime($sys_time);
note 'uid time ', scalar localtime($uid_time);
note 'sys time ', $sys_time;
note 'uid time ', $uid_time;
# sys time may be larger than actual due to rounding.
cmp_ok $sys_time, '<=' , $uid_time+1, 'compare ok';
cmp_ok $sys_time - $uid_time, '<=', 2, 'interval ok';
# relaxing, this one seems to be a problem on the smokers.
cmp_ok $uid_time - $sys_time, '<=', 20, 'rollover ok';
done_testing;
|
