diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/010/hash.tl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/010/hash.tl b/tests/010/hash.tl index b2e8d891..d6a8542b 100644 --- a/tests/010/hash.tl +++ b/tests/010/hash.tl @@ -86,3 +86,9 @@ (mtest (hash-isec h1 h2) #H(() (b 2) (c 3) (d 4)) [hash-isec h1 h2 +] #H(() (b 0) (c 0) (d 0)))) + +(mtest + (eql (hash-equal "abc") (hash-equal "abc")) t + (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) |