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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
use warnings;
use strict;
use Test::More;
BEGIN {
unless("$]" >= 5.013007) {
plan skip_all => "custom ops not registered on this Perl";
}
unless(eval { require B::Deparse; B::Deparse->VERSION(1.01); 1 }) {
plan skip_all => "B::Deparse unavailable";
}
}
use warnings; # declaing this again works around [perl #123558]
BEGIN { plan tests => 33; }
BEGIN { use_ok "Hash::SharedMem", qw(
is_shash check_shash
shash_open
shash_is_readable shash_is_writable shash_mode
shash_exists shash_getd shash_length shash_get
shash_set shash_gset shash_cset
shash_occupied shash_count shash_size
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
shash_snapshot shash_is_snapshot
shash_idle shash_tidy
shash_tally_get shash_tally_zero shash_tally_gzero
); }
my $deparse = B::Deparse->new;
$deparse->ambient_pragmas(strict => "all", warnings => "all");
sub canon_code($) {
my($s) = @_;
$s =~ s/[ \t\n]//g;
$s =~ s#\{BEGIN\{(?:\$\^H\{'[a-z/]+'\}=undef;)*\}#{#;
return $s;
}
sub depok($$) {
is canon_code($deparse->coderef2text($_[0])), $_[1];
}
my($a0, $a1, $a2, $a3);
depok sub { 1 + is_shash($a0) },
"{1+Hash::SharedMem::is_shash(\$a0);}";
depok sub { check_shash($a1); 123 },
"{Hash::SharedMem::check_shash(\$a1);123;}";
depok sub { shash_open($a0, (rand($a1), $a2)) },
"{Hash::SharedMem::shash_open(\$a0,(rand\$a1,\$a2));}";
depok sub { shash_is_readable($a0) + 1 },
"{Hash::SharedMem::shash_is_readable(\$a0)+1;}";
depok sub { shash_is_writable($a3) },
"{Hash::SharedMem::shash_is_writable(\$a3);}";
depok sub { shash_mode($a0) },
"{Hash::SharedMem::shash_mode(\$a0);}";
depok sub { shash_exists($a0, $a1 = 123) },
"{Hash::SharedMem::shash_exists(\$a0,\$a1=123);}";
depok sub { shash_getd($a0, $a1 = 123) },
"{Hash::SharedMem::shash_exists(\$a0,\$a1=123);}";
depok sub { shash_length($a0, $a1) },
"{Hash::SharedMem::shash_length(\$a0,\$a1);}";
depok sub { shash_get($a0, $a1 && $a2) },
"{Hash::SharedMem::shash_get(\$a0,\$a1&&\$a2);}";
depok sub { shash_set($a0, $a1, $a2) },
"{Hash::SharedMem::shash_set(\$a0,\$a1,\$a2);}";
depok sub { shash_gset($a0, $a1, $a2) },
"{Hash::SharedMem::shash_gset(\$a0,\$a1,\$a2);}";
depok sub { shash_cset($a0, $a1, $a2, $a3) },
"{Hash::SharedMem::shash_cset(\$a0,\$a1,\$a2,\$a3);}";
depok sub { shash_occupied($a0) },
"{Hash::SharedMem::shash_occupied(\$a0);}";
depok sub { shash_count($a0) },
"{Hash::SharedMem::shash_count(\$a0);}";
depok sub { shash_size($a0) },
"{Hash::SharedMem::shash_size(\$a0);}";
depok sub { shash_key_min($a0) },
"{Hash::SharedMem::shash_key_min(\$a0);}";
depok sub { shash_key_max($a0) },
"{Hash::SharedMem::shash_key_max(\$a0);}";
depok sub { shash_key_ge($a0, $a1) },
"{Hash::SharedMem::shash_key_ge(\$a0,\$a1);}";
depok sub { shash_key_gt($a0, $a1) },
"{Hash::SharedMem::shash_key_gt(\$a0,\$a1);}";
depok sub { shash_key_le($a0, $a1) },
"{Hash::SharedMem::shash_key_le(\$a0,\$a1);}";
depok sub { shash_key_lt($a0, $a1) },
"{Hash::SharedMem::shash_key_lt(\$a0,\$a1);}";
depok sub { shash_keys_array($a0) },
"{Hash::SharedMem::shash_keys_array(\$a0);}";
depok sub { shash_keys_hash($a0) },
"{Hash::SharedMem::shash_keys_hash(\$a0);}";
depok sub { shash_group_get_hash($a0) },
"{Hash::SharedMem::shash_group_get_hash(\$a0);}";
depok sub { shash_snapshot($a0) },
"{Hash::SharedMem::shash_snapshot(\$a0);}";
depok sub { shash_is_snapshot($a0) },
"{Hash::SharedMem::shash_is_snapshot(\$a0);}";
depok sub { shash_idle($a0) },
"{Hash::SharedMem::shash_idle(\$a0);}";
depok sub { shash_tidy($a0) },
"{Hash::SharedMem::shash_tidy(\$a0);}";
depok sub { shash_tally_get($a0) },
"{Hash::SharedMem::shash_tally_get(\$a0);}";
depok sub { shash_tally_zero($a0) },
"{Hash::SharedMem::shash_tally_zero(\$a0);}";
depok sub { shash_tally_gzero($a0) },
"{Hash::SharedMem::shash_tally_gzero(\$a0);}";
1;
|
