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
34
35
|
use strict;
use warnings;
use Test::More;
use MyNote;
use vars '@OPTS';
BEGIN {
@OPTS = qw(uuid3 parse unparse type variant);
}
use UUID @OPTS;
my $bin;
my $str = uuid3(dNs => 'www.example.com');
note '';
note $str;
ok defined($str), 'defined';
ok length($str) == 36, 'length';
ok !parse($str, $bin), 'parsable';
# must be v3
my $type = type($bin);
is $type, 3, 'correct type';
# all are variant 1
is variant($bin), 1, 'correct variant';
my $foo;
unparse($bin, $foo);
is $foo, $str, 'unparse';
note $foo;
done_testing;
|
