diff options
author | Jan Dubois <jand@activestate.com> | 2012-08-14 16:34:32 -0700 |
---|---|---|
committer | Jan Dubois <jand@activestate.com> | 2012-08-15 00:33:13 -0700 |
commit | c3c06741add2b0081dd06d45d21fdbfd0f45dd1f (patch) | |
tree | 3313a6f5b9a7bd2f09f452ad4ce2fbe234a68c09 /cpan/Win32/t/GuidGen.t | |
parent | fd172611d1f859cac8b24983ce0841e6619e37c3 (diff) | |
download | perl-c3c06741add2b0081dd06d45d21fdbfd0f45dd1f.tar.gz |
Update to Win32-0.45 from CPAN
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); |