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