Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

JRM / UUID-0.37 / t / 0ld / 2generate_random.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
use strict;
use warnings;
use Test::More;
use MyNote;
use UUID ();
UUID::generate_random(my $bin);
ok 1, 'generate';
ok defined($bin), 'defined';
is length($bin), 16, 'length';
done_testing;