cpan/Win32/t/GuidGen.t

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