[p5sagit/p5-mst-13.2.git] / cpan / Win32 / t / GuidGen.t

use strict;\r
use Test;\r
use Win32;\r
\r
plan tests => 3;\r
\r
my $guid1 = Win32::GuidGen();\r
my $guid2 = Win32::GuidGen();\r
\r
# {FB9586CD-273B-43BE-A20C-485A6BD4FCD6}\r
ok($guid1, qr/^{\w{8}(-\w{4}){3}-\w{12}}$/);\r
ok($guid2, qr/^{\w{8}(-\w{4}){3}-\w{12}}$/);\r
\r
# Every GUID is unique\r
ok($guid1 ne $guid2);\r
Commit	Line	Data
8883bb5a	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