ext/Win32/t/GuidGen.t

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