27 lines
511 B
Perl
27 lines
511 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestRequest;
|
|
use Apache::TestUtil;
|
|
|
|
##
|
|
## mod_unique_id tests
|
|
##
|
|
|
|
my $iters = 100;
|
|
my $url = "/modules/cgi/unique-id.pl";
|
|
my %idx = ();
|
|
|
|
plan tests => 3 * $iters, need need_cgi, need_module('unique_id');
|
|
|
|
foreach (1..$iters) {
|
|
my $r = GET $url;
|
|
ok t_cmp($r->code, 200, "fetch unique ID");
|
|
my $v = $r->content;
|
|
print "# unique id: $v\n";
|
|
chomp $v;
|
|
ok length($v) >= 20;
|
|
ok !exists($idx{$v});
|
|
$idx{$v} = 1;
|
|
}
|