File: 3compare.t

package info (click to toggle)
libuuid-perl 0.37-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,092 kB
  • sloc: ansic: 2,374; perl: 580; makefile: 5
file content (25 lines) | stat: -rw-r--r-- 435 bytes parent folder | download 
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
 
use strict;
use warnings;
use Test::More;
use MyNote;
use UUID ();


UUID::generate_time(my $bin1);
ok 1, 'generate 1';
UUID::generate_time(my $bin2);
ok 1, 'generate 2';

my $tmp1 = UUID::compare($bin1,$bin2);
my $tmp2 = UUID::compare($bin2,$bin1);

ok $tmp1, 'forward different';
ok $tmp2, 'reverse different';

is $tmp1, -$tmp2, 'compare different';

$bin1 = $bin2;

is UUID::compare($bin1,$bin2), 0, 'compare same';

done_testing;