blob: 7011e2f14925ba124368afe65ed70986e8da31f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
use strict;
use Test;
use Win32;
plan tests => 3;
my $guid1 = Win32::GuidGen();
my $guid2 = Win32::GuidGen();
# {FB9586CD-273B-43BE-A20C-485A6BD4FCD6}
ok($guid1, qr/^{\w{8}(-\w{4}){3}-\w{12}}$/);
ok($guid2, qr/^{\w{8}(-\w{4}){3}-\w{12}}$/);
# Every GUID is unique
ok($guid1 ne $guid2);
|