1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
use warnings;
use strict;
use File::Temp 0.22 qw(tempdir);
use Test::More tests => 53;
BEGIN { use_ok "Hash::SharedMem", qw(
is_shash shash_open
shash_length shash_get shash_set
shash_occupied shash_count
shash_key_min shash_key_max
shash_key_ge shash_key_gt shash_key_le shash_key_lt
shash_keys_array shash_keys_hash
shash_group_get_hash
); }
my $tmpdir = tempdir(CLEANUP => 1);
my $sh = shash_open("$tmpdir/t0", "rwc");
ok $sh;
ok is_shash($sh);
my %ph;
sub doru($) { defined($_[0]) ? $_[0] : "u" }
sub dorm1($) { defined($_[0]) ? $_[0] : -1 }
sub check_hash_state() {
is shash_occupied($sh), !!keys(%ph);
is shash_count($sh), keys(%ph);
my @sk = sort keys %ph;
is shash_key_min($sh), $sk[0];
is shash_key_max($sh), @sk ? $sk[-1] : undef;
my $ok = 1;
foreach my $k (@sk) {
$ok &&= dorm1(shash_length($sh, $k)) == length($ph{$k});
$ok &&= doru(shash_get($sh, $k)) eq $ph{$k};
}
ok $ok;
$ok = 1;
for(my $i = 0; $i != @sk; $i++) {
$ok &&= doru(shash_key_ge($sh, $sk[$i])) eq $sk[$i];
$ok &&= doru(shash_key_gt($sh, $sk[$i])) eq doru($sk[$i+1]);
$ok &&= doru(shash_key_le($sh, $sk[$i])) eq $sk[$i];
$ok &&= doru(shash_key_lt($sh, $sk[$i])) eq
($i != 0 ? $sk[$i-1] : "u");
}
ok $ok;
$ok = 1;
$ok &&= doru(shash_key_ge($sh, "-")) eq doru($sk[0]);
$ok &&= doru(shash_key_gt($sh, "-")) eq doru($sk[0]);
$ok &&= doru(shash_key_le($sh, "-")) eq "u";
$ok &&= doru(shash_key_lt($sh, "-")) eq "u";
for(my $i = 0; $i < $#sk; $i++) {
$ok &&= doru(shash_key_ge($sh, $sk[$i]."-")) eq doru($sk[$i+1]);
$ok &&= doru(shash_key_gt($sh, $sk[$i]."-")) eq doru($sk[$i+1]);
$ok &&= doru(shash_key_le($sh, $sk[$i]."-")) eq $sk[$i];
$ok &&= doru(shash_key_lt($sh, $sk[$i]."-")) eq $sk[$i];
}
ok $ok;
is_deeply shash_keys_array($sh), \@sk;
is_deeply shash_keys_hash($sh), { map { ($_ => undef) } @sk };
is_deeply shash_group_get_hash($sh), \%ph;
}
my $p = 5;
my $q = 5;
for(my $i = 0; $i != 5; $i++) {
for(my $j = 0; $j != 100; $j++) {
$p = ($p*21+7) % 100000;
$q = ($q*41+17) % 100000;
my $k = join("x", map { $p.$_ } 0..($p % 1000));
my $v = join("x", map { $q.$_ } 0..($q % 1000));
shash_set($sh, $k, $v);
$ph{$k} = $v;
}
check_hash_state();
}
1;
|
