Searched refs:each (Results 1 - 25 of 46) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dhashassign.t22 # Some of these tests are (effectively) duplicated in each.t
38 @temp = each %comma;
39 ok (eq_array (\@comma, \@temp), 'first each from comma hash');
40 @temp = each %comma;
41 ok (eq_array ([], \@temp), 'last each from comma hash');
56 @temp = each %temp;
57 ok (eq_array (\@temp, \@temp), 'first each from copy of comma hash');
58 @temp = each %temp;
59 ok (eq_array ([], \@temp), 'last each from copy of comma hash');
78 @temp = each
[all...]
H A Deach.t50 while (($key,$value) = each(%h)) {
58 ok ($i == 30, "each count");
78 # test scalar each
81 $total += $key while $key = each %hash;
82 ok ($total == 100, "test scalar each");
84 for (1..3) { @foo = each %hash }
87 $total += $key while $key = each %hash;
90 for (1..3) { @foo = each %hash }
92 $total += $key while $key = each %hash;
93 ok ($total != 100, "test iterator of each i
[all...]
H A Ddefins.t125 while (my $name = each %hash)
134 while (($seen ? $dummy : $name) = each %hash)
142 while ($where{$seen} = each %hash)
H A Davhv.t50 while (my ($key,$value) = each %$a) {
H A Dinc.t101 while (my ($key, $value) = each %$suspect) {
H A Dutfhash.t115 # The first time each will return key and value at the start of the hash.
116 # each will return () after we've done the last pair. $more won't get
118 for (each %u) {
122 is ($l, $r, "\\w on each, with $keys, key of length " . length $_);
148 is ($l, $r, "\\w on each, bytes");
156 is ($l, $r, "\\w on each, bytes now utf8");
164 is ($l, $r, "\\w on each, utf8");
172 is ($l, $r, "\\w on each, utf8 now bytes");
/osnet-11/usr/src/tools/onbld/Checks/
H A DRti.py14 # When distributing Covered Code, include this CDDL HEADER in each
53 """Return True iff each of the specified bugids has an approved RTI.
153 for each in rtiNumber:
154 message += " the RTI " + each + " is of "
155 message += rtiType[rtiNumber.index(each)] + " type "
166 for each in rtiNumber:
167 message = "Error: RTI " + each + " for CR " + cr + " is not in "
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DConfig.t17 ok(each %Config);
26 while( my($new, $old) = each %grandfathers ) {
H A DAnyDBM_File.t42 while (($key,$value) = each(%h)) {
98 while (($key,$value) = each(%h)) {
H A DBenchmark.t562 while( my($name, $code) = each %cmpthese ) {
572 while( my($name, $code) = each %timethese ) {
578 while( my($func, $usage) = each %usage ) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dexit.t75 while( my($test_name, $exit_codes) = each %Tests ) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dtied.t55 return each %{$self};
60 return each %{$self};
H A Dtied_hook.t55 return each %{$self};
60 return each %{$self};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/
H A DAPItest.xs114 sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
115 sub NEXTKEY { each %{$_[0]} }
/osnet-11/usr/src/lib/libc/i386/fp/
H A D__xgetRD.s18 / When distributing Covered Code, include this CDDL HEADER in each
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DRefHash.t90 while (my ($k, $v) = each %h) {
176 # Returns: list of [R, W, E] tuples, one for each test.
234 # and 'each' is the same. You can't reasonably expect that.
239 # Library of standard tests on keys, values and each
243 { my ($v, %tmp); $tmp{$v}++ while (defined($v = each %h)); dumph(\%tmp) }
244 { my ($k, $v, %tmp); $tmp{"$k$;$v"}++ while (($k, $v) = each %h); dumph(\%tmp) }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/
H A DUtil.t240 while (my ($k, $v) = each %clean) {
253 # values, each) depends on the addition order in the hash. And locking
264 while (my ($k, $v) = each %clean) {
267 while (my ($k, $v) = each %target) {
272 "iterating with each for $message");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/
H A Dfields.t60 while(my($k,$v) = each %test) {
/osnet-11/usr/src/lib/libbsm/
H A Dmkhdr.sh14 # When distributing Covered Code, include this CDDL HEADER in each
44 * When distributing Covered Code, include this CDDL HEADER in each
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/NDBM_File/t/
H A Dndbm.t52 while (my ($key,$value) = each(%h)) {
107 while (my ($key,$value) = each(%h)) {
423 # When iterating over a tied hash using "each", the key passed to FETCH
447 while (($k, $v) = each %h) {}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ODBM_File/t/
H A Dodbm.t52 while (my ($key,$value) = each(%h)) {
107 while (my ($key,$value) = each(%h)) {
429 # When iterating over a tied hash using "each", the key passed to FETCH
453 while (($k, $v) = each %h) {}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/SDBM_File/t/
H A Dsdbm.t52 while (my ($key,$value) = each(%h)) {
107 while (my ($key,$value) = each(%h)) {
432 # When iterating over a tied hash using "each", the key passed to FETCH
456 while (($k, $v) = each %h) {}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/
H A DSelfStubber.t126 while (my ($key, $val) = each %$left) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DINST_PREFIX.t114 while( my($type, $vars) = each %Install_Vars) {
/osnet-11/usr/src/lib/libc/i386_hwcap1/gen/
H A Dmemset.s13 * When distributing Covered Code, include this CDDL HEADER in each
40 / entry conditions: %eax each byte is set to desired byte.
50 imul $0x01010101, %eax / extend low byte to each byte
93 movl %eax,(%esp) / copy eax into each of 4 bytes

Completed in 336 milliseconds

12