diff options
Diffstat (limited to 'tests/fstar/hashmap/Hashmap.Funs.fst')
| -rw-r--r-- | tests/fstar/hashmap/Hashmap.Funs.fst | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/tests/fstar/hashmap/Hashmap.Funs.fst b/tests/fstar/hashmap/Hashmap.Funs.fst index 0e991720..fb77c7ef 100644 --- a/tests/fstar/hashmap/Hashmap.Funs.fst +++ b/tests/fstar/hashmap/Hashmap.Funs.fst @@ -393,31 +393,31 @@ let test1 : result unit = let* hm3 = hashMap_insert u64 hm2 1024 138 in let* hm4 = hashMap_insert u64 hm3 1056 256 in let* i = hashMap_get u64 hm4 128 in - if not (i = 18) - then Fail Failure - else + if i = 18 + then let* (_, get_mut_back) = hashMap_get_mut u64 hm4 1024 in let* hm5 = get_mut_back 56 in let* i1 = hashMap_get u64 hm5 1024 in - if not (i1 = 56) - then Fail Failure - else + if i1 = 56 + then let* (x, hm6) = hashMap_remove u64 hm5 1024 in begin match x with | None -> Fail Failure | Some x1 -> - if not (x1 = 56) - then Fail Failure - else + if x1 = 56 + then let* i2 = hashMap_get u64 hm6 0 in - if not (i2 = 42) - then Fail Failure - else + if i2 = 42 + then let* i3 = hashMap_get u64 hm6 128 in - if not (i3 = 18) - then Fail Failure - else + if i3 = 18 + then let* i4 = hashMap_get u64 hm6 1056 in - if not (i4 = 256) then Fail Failure else Ok () + if i4 = 256 then Ok () else Fail Failure + else Fail Failure + else Fail Failure + else Fail Failure end + else Fail Failure + else Fail Failure |