Blame smp-test/collision.t
|
Packit |
fc16e3 |
#!/usr/bin/perl -w
|
|
Packit |
fc16e3 |
|
|
Packit |
fc16e3 |
my $cnt = shift || 1000;
|
|
Packit |
fc16e3 |
|
|
Packit |
fc16e3 |
my $collision = 0;
|
|
Packit |
fc16e3 |
|
|
Packit |
fc16e3 |
for (1..$cnt) {
|
|
Packit |
fc16e3 |
my $foo = `$^X -l -Mblib smp-test/uuid-fork.pl`;
|
|
Packit |
fc16e3 |
my @ret = ($foo =~ m/^(.*)$/mg);
|
|
Packit |
fc16e3 |
++$collision#, print "==> collision ($foo)\n"
|
|
Packit |
fc16e3 |
if $ret[0] eq $ret[1];
|
|
Packit |
fc16e3 |
}
|
|
Packit |
fc16e3 |
|
|
Packit |
fc16e3 |
print sprintf("%5.3f %% collision\n", $collision*100/$cnt);
|