diff options
Diffstat (limited to 'tests/010')
| -rw-r--r-- | tests/010/hash.tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/010/hash.tl b/tests/010/hash.tl index d6a8542b..bd37e180 100644 --- a/tests/010/hash.tl +++ b/tests/010/hash.tl @@ -92,3 +92,14 @@ (eql (hash-equal (expt 2 128)) (hash-equal (expt 2 128))) t (eql (hash-eql "abc") (hash-eql "abc")) nil (eql (hash-eql (expt 2 128)) (hash-eql (expt 2 128))) t) + +(let* ((h #H(() (a 1) (b 2) (c 3) (d 4))) + (hi1 (hash-begin h)) + (hi2 (progn (hash-next hi1) (copy-hash-iter hi1)))) + (mvtest + (hash-next hi1) (hash-next hi2) + (hash-next hi2) (hash-next hi1) + (hash-next hi1) (hash-next hi2) + (hash-next hi2) (hash-next hi1) + (hash-next hi1) nil + (hash-next hi2) nil)) |