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