Home
last modified time | relevance | path

Searched refs:keys (Results 1 – 25 of 706) sorted by relevance

12345678910>>...29

/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/t/
H A D02_function.t25 my ( $key) = keys %h;
39 my ( $key) = keys %h;
42 is scalar keys %$ob_reg, 0, "no auto-registry in idhash";
50 is scalar keys %$ob_reg, 0, "object registry empty";
52 is scalar keys %$ob_reg, 1, "object registry nonempty";
57 is scalar keys %hash, 1, "key present in registered hash";
59 is scalar keys %hash, 0, "key collected from registered hash";
60 is scalar keys %$ob_reg, 0, "object registry empty again";
73 is( keys %$ob_reg, 1, "one object registered");
76 is( keys
[all...]
/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util/lib/Hash/
H A DUtil.pm104 my $ref = all_keys(%hash,@keys,@hidden);
114 # Ways to change the restrictions on both keys and values
142 keys. No keys outside of this set can be added. It also introduces
155 lock_keys(%hash, @keys);
157 Restricts the given %hash's set of keys to @keys. If @keys is not
158 given it restricts it to its current keyset. No more keys can be
160 the set of allowed keys
[all...]
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dhash.t24 my @keys = (@testkeys, $utf8_for_258);
26 foreach (@keys) {
29 main_tests (\@keys, \@testkeys, '');
31 foreach (@keys) {
34 main_tests (\@keys, \@testkeys, ' [utf8 hash]');
291 my @keys = sort ( XS::APItest::Hash::test_force_keys(\%hash) );
292 is_deeply(\@keys, [ sort keys %hash ], "check HeSVKEY_force()");
358 my @keys = sort keys %$hash;
359 is ("@keys", join(' ', sort($mapping->(keys %$placebo))),
368 @keys = sort keys %$hash;
[all …]
H A Dsavestack.t18 my $keys= 0+keys %ix;
19 cmp_ok($keys,">",0, "We expect at least one key in %ix for (??{ ... }) test");
20 cmp_ok($keys,"<=", 2, "We expect no more than two keys in %ix if (??{ ... }) does not leak")
25 $keys= 0+keys %ix;
26 cmp_ok($keys,">",0, "We expect at least one key in %ix for (?{ ... }) test");
27 cmp_ok($keys, "<=", 2, "We expect no more than two keys in %ix if (?{ ... }) does not leak")
32 $keys= 0+keys %ix;
33 cmp_ok($keys,">",0, "We expect at least one key in %ix for (?(?{ ... })yes|no) test");
34 cmp_ok($keys, "<=", 2, "We expect no more than two keys in %ix if (?(?{ ... })yes|no) does not leak…
/openbsd-src/gnu/usr.bin/perl/t/comp/
H A Dretainedlines.t47 my @before = grep { /eval/ } keys %::;
63 my @keys = map { $_->[0] }
66 keys %::;
68 is ((scalar @keys), 1, "1 new eval");
70 my @got_lines = @{$::{$keys[0]}};
81 $seen{$_}++ for @keys;
133 my @after = grep { /eval/ } keys %::;
135 is (scalar @after, 0 + keys %seen,
144 my @after = grep { /eval/ } keys %::;
146 is (scalar @after, 0 + keys %seen,
[all …]
/openbsd-src/usr.sbin/mtree/
H A Dcreate.c59 extern u_int keys;
122 if (sflag && keys & F_CKSUM) in cwalk()
158 if (keys & F_UNAME) { in statf()
167 if (keys & F_UID) in statf()
171 if (keys & F_GNAME) { in statf()
180 if (keys & F_GID) in statf()
183 if (keys & F_MODE && (p->fts_statp->st_mode & MBITS) != mode) in statf()
185 if (keys & F_NLINK && p->fts_statp->st_nlink != 1) in statf()
187 if (keys & F_SIZE && S_ISREG(p->fts_statp->st_mode)) in statf()
190 if (keys & F_TIME) in statf()
[all …]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dhash.t27 keys(%h) = 1;
30 is($destroyed, 1, 'Timely hash destruction with lvalue keys');
33 # [perl #79178] Hash keys must not be stringified during compilation
45 'ref hash keys are not stringified during compilation';
50 'undef hash keys are not stringified during compilation, either';
131 # the same as 0+keys %hash;
133 my $count= 0+keys %$h;
135 is($scalar, $count, "$desc scalar() should be the same as 0+keys() as of perl 5.25");
161 # Remove half the keys each time round, until there are only 1 or 2 left
164 while (keys
[all...]
H A Dutfhash.t51 is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff");
52 is(join('',sort { ord $a <=> ord $b } keys %hashu),"\x7f\xff\x{1ff}");
58 is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff\x{1ff}");
72 is(join('',sort keys %hashu),"\x7f\xff");
102 my $keys = scalar @u;
103 $keys .= ($keys == 1) ? " key" : " keys";
105 for (keys %u) {
108 is ($l, $r, "\\w on keys with $keys, key of length " . length $_);
122 is ($l, $r, "\\w on each, with $keys, key of length " . length $_);
129 is ($l, $r, "\\w on hash with $keys, key of length " . length $_);
[all …]
H A Deach.t45 my @keys = keys %h;
54 if ($key eq $keys[$i] && $value eq $values[$i]
63 @keys = ('blurfl', keys(%h), 'dyick');
72 keys %h = $size * 5;
75 keys %h = 1;
95 keys %hash;
111 is (keys(%hash), 10, "keys (%hash)");
118 cmp_ok($size, '>=', keys %hash, 'sanity check - more buckets than keys');
124 is (keys(%hash), 3, "now 3 keys");
129 keys(%hash) = keys(%hash);
[all …]
H A Dupgrade.t35 my @keys = keys %types;
36 plan tests => @keys * @keys;
38 foreach my $source_type (@keys) {
39 foreach my $dest_type (@keys) {
H A Dtiehash.t83 my @want = sort keys %h;
98 keys %h;
132 keys %h;
179 @a = keys %tied;
201 my @keys = qw(bactrianus dromedarius ferus);
204 for @keys;
214 keys %Camelus;
220 my @all = keys %Camelus;
232 is(join(' ', sort keys %have), "@keys", 'Still the correct three keys');
/openbsd-src/regress/sbin/ipsecctl/
H A Dsafail3.ok1 stdin: 4: aesctr is disallowed with static keys
2 stdin: 8: aes-128-ctr is disallowed with static keys
3 stdin: 12: aes-192-ctr is disallowed with static keys
4 stdin: 16: aes-256-ctr is disallowed with static keys
5 stdin: 19: aes-128-gcm is disallowed with static keys
6 stdin: 22: aes-192-gcm is disallowed with static keys
7 stdin: 25: aes-256-gcm is disallowed with static keys
8 stdin: 28: aes-128-gmac is disallowed with static keys
9 stdin: 31: aes-192-gmac is disallowed with static keys
10 stdin: 34: aes-256-gmac is disallowed with static keys
/openbsd-src/gnu/usr.bin/perl/cpan/Tie-RefHash/t/
H A Dstorable.t49 my @keys = keys %$clone;
50 is( scalar(@keys), 2, "two keys in clone");
51 my $key = ref($keys[0]) ? shift @keys : pop @keys;
52 my $reg = $keys[0];
71 my @keys = keys %$clone;
72 is( scalar(@keys), 1, "one key in clone");
73 my $key = $keys[0];
/openbsd-src/gnu/gcc/gcc/
H A Dpointer-set.c198 void **keys; member
212 result->keys = XCNEWVEC (void *, result->n_slots); in pointer_map_create()
220 XDELETEVEC (pmap->keys); in pointer_map_destroy()
236 if (pmap->keys[n] == p) in pointer_map_contains()
238 else if (pmap->keys[n] == 0) in pointer_map_contains()
267 if (pmap->keys[i]) in pointer_map_insert()
269 void *key = pmap->keys[i]; in pointer_map_insert()
275 XDELETEVEC (pmap->keys); in pointer_map_insert()
279 pmap->keys = new_keys; in pointer_map_insert()
283 n = insert_aux (p, pmap->keys, pmap->n_slots, pmap->log_slots); in pointer_map_insert()
[all …]
/openbsd-src/games/tetris/
H A Dtetris.c154 char *keys; in main() local
173 keys = "jkl pq"; in main()
187 if (strlen(keys = optarg) != NUMKEYS) in main()
217 if (keys[i] == keys[j]) in main()
220 if (keys[i] == ' ') in main()
223 key_write[i][0] = keys[i]; in main()
289 if (c == keys[5]) { in main()
293 if (c == keys[4]) { in main()
309 if (c == keys[0]) { in main()
315 if (c == keys[1]) { in main()
[all …]
/openbsd-src/usr.bin/mandoc/
H A Dtbl_opts.c40 static const struct tbl_phrase keys[] = { variable
58 #define KEY_MAXKEYS ((int)(sizeof(keys)/sizeof(keys[0])))
105 "%s", keys[key].name); in arg()
108 "%s want %d have %d", keys[key].name, want, len); in arg()
152 (strncasecmp(p + pos, keys[i].name, len) || in tbl_option()
153 keys[i].name[len] != '\0')) in tbl_option()
166 if (keys[i].key) in tbl_option()
167 tbl->opts.opts |= keys[i].key; in tbl_option()
/openbsd-src/gnu/usr.bin/perl/dist/Storable/t/
H A Ddowngrade.t105 my @keys = keys %$hash;
114 ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
119 my @keys = keys %$hash;
128 ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
190 for (keys %$hash) {
199 for (keys %$hash) {
249 begin 101 Locked keys
254 begin 101 Locked keys placeholder
328 begin 101 Hash with utf8 flag but no utf8 keys
333 begin 101 Hash with utf8 keys
[all …]
H A Dutf8hash.t61 return scalar keys %$href;
75 for my $k (sort keys %$thawed){
88 for my $k (sort keys %$retrieved){
99 for my $k (sort keys %$retrieved){
141 for (keys %hash) {
152 for (keys %$copy) {
168 cmp_ok (scalar keys %$just_utf8, '==', 1, "1 key in utf8?");
179 cmp_ok (scalar keys %$just_bytes, '==', 1, "1 key in bytes?");
193 cmp_ok (scalar keys %$both, '==', 2, "2 keys?");
/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util/t/
H A DUtil.t274 my @keys = qw(small medium large);
282 push @usekeys, $keys[$bits] if $usekeys & (1 << $bits);
286 lock_keys ( %target, @keys ) if $lock;
422 my @keys=sort(keys(%hash));
426 is("@keys","a d f",'lock_keys @keys DDS/t');
441 my @keys=sort numbers_first keys(%hash);
444 is("@keys","0 2 4 6 8",'lock_keys() @keys');
454 my @keys=sort(keys(%hash));
458 is("@keys","a d f",'lock_ref_keys @keys DDS/t 1');
466 my @keys=sort numbers_first keys(%hash);
[all …]
/openbsd-src/gnu/usr.bin/perl/dist/threads-shared/t/
H A D0nothread.t14 is(keys %hash, 0, "hash empty");
16 is(keys %hash,1, "Assign grows hash");
19 is(keys %hash,2, "Assign grows hash");
23 is(keys %hash,3,"Size correct");
24 my @keys = keys %hash;
25 is(join(',',sort @keys),'0,1,2',"Keys correct");
30 is(keys %hash,2,"Size correct");
35 is(keys %hash,0,"Clear hash");
/openbsd-src/gnu/usr.bin/perl/cpan/Digest-SHA/t/
H A Dfips198.t13 my @keys = ("", "", "", "");
15 for (0x00 .. 0x00+63) { $keys[0] .= chr($_) }
16 for (0x30 .. 0x30+19) { $keys[1] .= chr($_) }
17 for (0x50 .. 0x50+99) { $keys[2] .= chr($_) }
18 for (0x70 .. 0x70+48) { $keys[3] .= chr($_) }
25 print "not " unless hmac_sha1_hex(shift @data, shift @keys)
/openbsd-src/regress/usr.bin/ssh/
H A Dagent-timeout.sh15 keys=0
21 keys=$((${keys} + 1))
25 if [ $n -ne $keys ]; then
26 fail "ssh-add -l did not return $keys keys: $n"
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-PrfDB/
H A DPrfDB.pm83 my $keys = OS2::Prf::Get($self->[0]->[0], undef, undef);
84 return undef unless defined $keys;
85 chop($keys);
86 $self->[1] = [split /\0/, $keys];
173 my $keys = OS2::Prf::Get($self->[0]->[0], $self->[3], undef);
174 return undef unless defined $keys;
175 chop($keys);
176 $self->[1] = [split /\0/, $keys];
/openbsd-src/usr.sbin/unbound/testcode/
H A Dsignit.c128 ldns_key_list* keys = ldns_key_list_new(); in read_keys() local
135 if(!keys) fatal_exit("alloc failure"); in read_keys()
155 b = ldns_key_list_push_key(keys, k); in read_keys()
158 return keys; in read_keys()
198 signit(ldns_rr_list* rrs, ldns_key_list* keys) in signit() argument
206 sigs = ldns_sign_public(rrset, keys); in signit()
221 ldns_key_list* keys; in process_keys() local
226 keys = read_keys(1, argv+5, &settings); in process_keys()
228 signit(rrs, keys); in process_keys()
231 ldns_key_list_free(keys); in process_keys()
/openbsd-src/gnu/llvm/libcxx/utils/
H A Dgenerate_feature_test_macro_components.py776 …ders", "libcxx_guard", "test_suite_guard", "unimplemented"] for key in tc.keys()) for tc in featur…
809 if s in d.keys():
817 if s in d.keys():
826 if cand in d.keys():
846 if s in d.keys():
864 if 'test_suite_guard' in tc.keys():
868 assert 'test_suite_guard' not in tc.keys()
873 if 'unimplemented' in tc.keys():
877 if 'test_suite_guard' in tc.keys():
1038 elif 'unimplemented' in tc.keys():
[all …]

12345678910>>...29