diff options
Diffstat (limited to 'cpan/Win32/t/GuidGen.t')
-rw-r--r-- | cpan/Win32/t/GuidGen.t | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/cpan/Win32/t/GuidGen.t b/cpan/Win32/t/GuidGen.t index 9ee8ede934..7011e2f149 100644 --- a/cpan/Win32/t/GuidGen.t +++ b/cpan/Win32/t/GuidGen.t @@ -1,15 +1,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);
+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); |