Lines Matching refs:total
80 $total = 0;
81 $total += $key while $key = each %hash;
82 ok ($total == 100, "test scalar each");
86 $total = 0;
87 $total += $key while $key = each %hash;
88 ok ($total == 100, "test scalar keys resets iterator");
91 $total = 0;
92 $total += $key while $key = each %hash;
93 ok ($total != 100, "test iterator of each is being maintained");
97 $total = 0;
98 $total += $key while $key = each %hash;
99 ok ($total == 100, "test values keys resets iterator");