diff options
| author | Guillaume Boisseau | 2024-06-05 09:52:44 +0200 |
|---|---|---|
| committer | GitHub | 2024-06-05 09:52:44 +0200 |
| commit | c708fc2556806abc95cd2ca173a94a5fb49d034d (patch) | |
| tree | 7890e9455f983bcd8cb2c16554f5882daac5d510 /tests/fstar/misc/Paper.fst | |
| parent | 5b7fc57cdc6bc5cff8373e6aa8df383278c9cf63 (diff) | |
| parent | 8a1adfb37d2cf295d8caed1dfdd4f7475bb19283 (diff) | |
Merge pull request #231 from Nadrieril/bump-hax
Diffstat (limited to 'tests/fstar/misc/Paper.fst')
| -rw-r--r-- | tests/fstar/misc/Paper.fst | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/tests/fstar/misc/Paper.fst b/tests/fstar/misc/Paper.fst index e2412076..3566c5e2 100644 --- a/tests/fstar/misc/Paper.fst +++ b/tests/fstar/misc/Paper.fst @@ -13,7 +13,7 @@ let ref_incr (x : i32) : result i32 = (** [paper::test_incr]: Source: 'tests/src/paper.rs', lines 11:0-11:18 *) let test_incr : result unit = - let* x = ref_incr 0 in if not (x = 1) then Fail Failure else Ok () + let* x = ref_incr 0 in if x = 1 then Ok () else Fail Failure (** Unit test for [paper::test_incr] *) let _ = assert_norm (test_incr = Ok ()) @@ -31,13 +31,11 @@ let choose let test_choose : result unit = let* (z, choose_back) = choose i32 true 0 0 in let* z1 = i32_add z 1 in - if not (z1 = 1) - then Fail Failure - else + if z1 = 1 + then let* (x, y) = choose_back z1 in - if not (x = 1) - then Fail Failure - else if not (y = 0) then Fail Failure else Ok () + if x = 1 then if y = 0 then Ok () else Fail Failure else Fail Failure + else Fail Failure (** Unit test for [paper::test_choose] *) let _ = assert_norm (test_choose = Ok ()) @@ -84,7 +82,7 @@ let test_nth : result unit = let* x1 = i32_add x 1 in let* l2 = list_nth_mut_back x1 in let* i = sum l2 in - if not (i = 7) then Fail Failure else Ok () + if i = 7 then Ok () else Fail Failure (** Unit test for [paper::test_nth] *) let _ = assert_norm (test_nth = Ok ()) |