1use Test; 2BEGIN { plan tests => 4 }; 3use Data::Uniqid qw ( suniqid uniqid luniqid ) ; 4 5print "suniqid -> " . suniqid . "\n"; 6print "uniqid -> " . uniqid . "\n"; 7print "luniqid -> " . luniqid . "\n"; 8 9for (0..100) { 10 $id=suniqid; 11 if ($id{$id}) {;$err++;} 12 $id{$id}++; 13} 14if ($err>0) {;ok(0);} else {;ok(1);} 15 16for (0..100) { 17 $id=uniqid; 18 if ($id{$id}) {;$err++;} 19 $id{$id}++; 20} 21if ($err>0) {;ok(0);} else {;ok(1);} 22 23for (0..100) { 24 $id=luniqid; 25 if ($id{$id}) {;$err++;} 26 $id{$id}++; 27} 28if ($err>0) {;ok(0);} else {;ok(1);} 29 30use Sys::Hostname; 31my($ia,$ib,$ic,$id)=unpack("C4", (gethostbyname(hostname()))[4]); 32 33if ($ia=~/\d+/ && $ia>0 && $ib=~/\d+/ && $ib>0 && 34 $ic=~/\d+/ && $ic>0 && $id=~/\d+/ && $id>0 ) {;ok(1);} 35else {;ok(0);} 36 37 38