From 25973ee8ef28e2d5b8a9b9ec3de4d6ff340db18b Mon Sep 17 00:00:00 2001
From: Nadrieril
Date: Thu, 23 May 2024 14:41:00 +0200
Subject: Tweak a path
---
tests/fstar/misc/Bitwise.fst | 10 +--
tests/fstar/misc/Constants.fst | 62 +++++++-------
tests/fstar/misc/External.Funs.fst | 4 +-
tests/fstar/misc/Loops.Clauses.Template.fst | 46 +++++-----
tests/fstar/misc/Loops.Funs.fst | 96 ++++++++++-----------
tests/fstar/misc/Loops.Types.fst | 2 +-
tests/fstar/misc/NoNestedBorrows.fst | 126 ++++++++++++++--------------
tests/fstar/misc/Paper.fst | 18 ++--
tests/fstar/misc/PoloniusList.fst | 4 +-
9 files changed, 184 insertions(+), 184 deletions(-)
(limited to 'tests/fstar/misc')
diff --git a/tests/fstar/misc/Bitwise.fst b/tests/fstar/misc/Bitwise.fst
index 11ef6861..b17c9233 100644
--- a/tests/fstar/misc/Bitwise.fst
+++ b/tests/fstar/misc/Bitwise.fst
@@ -6,27 +6,27 @@ open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [bitwise::shift_u32]:
- Source: 'src/bitwise.rs', lines 3:0-3:31 *)
+ Source: 'tests/src/bitwise.rs', lines 3:0-3:31 *)
let shift_u32 (a : u32) : result u32 =
let* t = u32_shr #Usize a 16 in u32_shl #Usize t 16
(** [bitwise::shift_i32]:
- Source: 'src/bitwise.rs', lines 10:0-10:31 *)
+ Source: 'tests/src/bitwise.rs', lines 10:0-10:31 *)
let shift_i32 (a : i32) : result i32 =
let* t = i32_shr #Isize a 16 in i32_shl #Isize t 16
(** [bitwise::xor_u32]:
- Source: 'src/bitwise.rs', lines 17:0-17:37 *)
+ Source: 'tests/src/bitwise.rs', lines 17:0-17:37 *)
let xor_u32 (a : u32) (b : u32) : result u32 =
Ok (u32_xor a b)
(** [bitwise::or_u32]:
- Source: 'src/bitwise.rs', lines 21:0-21:36 *)
+ Source: 'tests/src/bitwise.rs', lines 21:0-21:36 *)
let or_u32 (a : u32) (b : u32) : result u32 =
Ok (u32_or a b)
(** [bitwise::and_u32]:
- Source: 'src/bitwise.rs', lines 25:0-25:37 *)
+ Source: 'tests/src/bitwise.rs', lines 25:0-25:37 *)
let and_u32 (a : u32) (b : u32) : result u32 =
Ok (u32_and a b)
diff --git a/tests/fstar/misc/Constants.fst b/tests/fstar/misc/Constants.fst
index 4fbafb83..78562ae1 100644
--- a/tests/fstar/misc/Constants.fst
+++ b/tests/fstar/misc/Constants.fst
@@ -6,154 +6,154 @@ open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [constants::X0]
- Source: 'src/constants.rs', lines 5:0-5:17 *)
+ Source: 'tests/src/constants.rs', lines 5:0-5:17 *)
let x0_body : result u32 = Ok 0
let x0 : u32 = eval_global x0_body
(** [constants::X1]
- Source: 'src/constants.rs', lines 7:0-7:17 *)
+ Source: 'tests/src/constants.rs', lines 7:0-7:17 *)
let x1_body : result u32 = Ok core_u32_max
let x1 : u32 = eval_global x1_body
(** [constants::X2]
- Source: 'src/constants.rs', lines 10:0-10:17 *)
+ Source: 'tests/src/constants.rs', lines 10:0-10:17 *)
let x2_body : result u32 = Ok 3
let x2 : u32 = eval_global x2_body
(** [constants::incr]:
- Source: 'src/constants.rs', lines 17:0-17:32 *)
+ Source: 'tests/src/constants.rs', lines 17:0-17:32 *)
let incr (n : u32) : result u32 =
u32_add n 1
(** [constants::X3]
- Source: 'src/constants.rs', lines 15:0-15:17 *)
+ Source: 'tests/src/constants.rs', lines 15:0-15:17 *)
let x3_body : result u32 = incr 32
let x3 : u32 = eval_global x3_body
(** [constants::mk_pair0]:
- Source: 'src/constants.rs', lines 23:0-23:51 *)
+ Source: 'tests/src/constants.rs', lines 23:0-23:51 *)
let mk_pair0 (x : u32) (y1 : u32) : result (u32 & u32) =
Ok (x, y1)
(** [constants::Pair]
- Source: 'src/constants.rs', lines 36:0-36:23 *)
+ Source: 'tests/src/constants.rs', lines 36:0-36:23 *)
type pair_t (t1 t2 : Type0) = { x : t1; y : t2; }
(** [constants::mk_pair1]:
- Source: 'src/constants.rs', lines 27:0-27:55 *)
+ Source: 'tests/src/constants.rs', lines 27:0-27:55 *)
let mk_pair1 (x : u32) (y1 : u32) : result (pair_t u32 u32) =
Ok { x = x; y = y1 }
(** [constants::P0]
- Source: 'src/constants.rs', lines 31:0-31:24 *)
+ Source: 'tests/src/constants.rs', lines 31:0-31:24 *)
let p0_body : result (u32 & u32) = mk_pair0 0 1
let p0 : (u32 & u32) = eval_global p0_body
(** [constants::P1]
- Source: 'src/constants.rs', lines 32:0-32:28 *)
+ Source: 'tests/src/constants.rs', lines 32:0-32:28 *)
let p1_body : result (pair_t u32 u32) = mk_pair1 0 1
let p1 : pair_t u32 u32 = eval_global p1_body
(** [constants::P2]
- Source: 'src/constants.rs', lines 33:0-33:24 *)
+ Source: 'tests/src/constants.rs', lines 33:0-33:24 *)
let p2_body : result (u32 & u32) = Ok (0, 1)
let p2 : (u32 & u32) = eval_global p2_body
(** [constants::P3]
- Source: 'src/constants.rs', lines 34:0-34:28 *)
+ Source: 'tests/src/constants.rs', lines 34:0-34:28 *)
let p3_body : result (pair_t u32 u32) = Ok { x = 0; y = 1 }
let p3 : pair_t u32 u32 = eval_global p3_body
(** [constants::Wrap]
- Source: 'src/constants.rs', lines 49:0-49:18 *)
+ Source: 'tests/src/constants.rs', lines 49:0-49:18 *)
type wrap_t (t : Type0) = { value : t; }
(** [constants::{constants::Wrap<T>}::new]:
- Source: 'src/constants.rs', lines 54:4-54:41 *)
+ Source: 'tests/src/constants.rs', lines 54:4-54:41 *)
let wrap_new (t : Type0) (value : t) : result (wrap_t t) =
Ok { value = value }
(** [constants::Y]
- Source: 'src/constants.rs', lines 41:0-41:22 *)
+ Source: 'tests/src/constants.rs', lines 41:0-41:22 *)
let y_body : result (wrap_t i32) = wrap_new i32 2
let y : wrap_t i32 = eval_global y_body
(** [constants::unwrap_y]:
- Source: 'src/constants.rs', lines 43:0-43:30 *)
+ Source: 'tests/src/constants.rs', lines 43:0-43:30 *)
let unwrap_y : result i32 =
Ok y.value
(** [constants::YVAL]
- Source: 'src/constants.rs', lines 47:0-47:19 *)
+ Source: 'tests/src/constants.rs', lines 47:0-47:19 *)
let yval_body : result i32 = unwrap_y
let yval : i32 = eval_global yval_body
(** [constants::get_z1::Z1]
- Source: 'src/constants.rs', lines 62:4-62:17 *)
+ Source: 'tests/src/constants.rs', lines 62:4-62:17 *)
let get_z1_z1_body : result i32 = Ok 3
let get_z1_z1 : i32 = eval_global get_z1_z1_body
(** [constants::get_z1]:
- Source: 'src/constants.rs', lines 61:0-61:28 *)
+ Source: 'tests/src/constants.rs', lines 61:0-61:28 *)
let get_z1 : result i32 =
Ok get_z1_z1
(** [constants::add]:
- Source: 'src/constants.rs', lines 66:0-66:39 *)
+ Source: 'tests/src/constants.rs', lines 66:0-66:39 *)
let add (a : i32) (b : i32) : result i32 =
i32_add a b
(** [constants::Q1]
- Source: 'src/constants.rs', lines 74:0-74:17 *)
+ Source: 'tests/src/constants.rs', lines 74:0-74:17 *)
let q1_body : result i32 = Ok 5
let q1 : i32 = eval_global q1_body
(** [constants::Q2]
- Source: 'src/constants.rs', lines 75:0-75:17 *)
+ Source: 'tests/src/constants.rs', lines 75:0-75:17 *)
let q2_body : result i32 = Ok q1
let q2 : i32 = eval_global q2_body
(** [constants::Q3]
- Source: 'src/constants.rs', lines 76:0-76:17 *)
+ Source: 'tests/src/constants.rs', lines 76:0-76:17 *)
let q3_body : result i32 = add q2 3
let q3 : i32 = eval_global q3_body
(** [constants::get_z2]:
- Source: 'src/constants.rs', lines 70:0-70:28 *)
+ Source: 'tests/src/constants.rs', lines 70:0-70:28 *)
let get_z2 : result i32 =
let* i = get_z1 in let* i1 = add i q3 in add q1 i1
(** [constants::S1]
- Source: 'src/constants.rs', lines 80:0-80:18 *)
+ Source: 'tests/src/constants.rs', lines 80:0-80:18 *)
let s1_body : result u32 = Ok 6
let s1 : u32 = eval_global s1_body
(** [constants::S2]
- Source: 'src/constants.rs', lines 81:0-81:18 *)
+ Source: 'tests/src/constants.rs', lines 81:0-81:18 *)
let s2_body : result u32 = incr s1
let s2 : u32 = eval_global s2_body
(** [constants::S3]
- Source: 'src/constants.rs', lines 82:0-82:29 *)
+ Source: 'tests/src/constants.rs', lines 82:0-82:29 *)
let s3_body : result (pair_t u32 u32) = Ok p3
let s3 : pair_t u32 u32 = eval_global s3_body
(** [constants::S4]
- Source: 'src/constants.rs', lines 83:0-83:29 *)
+ Source: 'tests/src/constants.rs', lines 83:0-83:29 *)
let s4_body : result (pair_t u32 u32) = mk_pair1 7 8
let s4 : pair_t u32 u32 = eval_global s4_body
(** [constants::V]
- Source: 'src/constants.rs', lines 86:0-86:31 *)
+ Source: 'tests/src/constants.rs', lines 86:0-86:31 *)
type v_t (t : Type0) (n : usize) = { x : array t n; }
(** [constants::{constants::V<T, N>#1}::LEN]
- Source: 'src/constants.rs', lines 91:4-91:24 *)
+ Source: 'tests/src/constants.rs', lines 91:4-91:24 *)
let v_len_body (t : Type0) (n : usize) : result usize = Ok n
let v_len (t : Type0) (n : usize) : usize = eval_global (v_len_body t n)
(** [constants::use_v]:
- Source: 'src/constants.rs', lines 94:0-94:42 *)
+ Source: 'tests/src/constants.rs', lines 94:0-94:42 *)
let use_v (t : Type0) (n : usize) : result usize =
Ok (v_len t n)
diff --git a/tests/fstar/misc/External.Funs.fst b/tests/fstar/misc/External.Funs.fst
index 3b99ef25..5a7a9f32 100644
--- a/tests/fstar/misc/External.Funs.fst
+++ b/tests/fstar/misc/External.Funs.fst
@@ -15,12 +15,12 @@ let core_marker_CopyU32 : core_marker_Copy_t u32 = {
}
(** [external::use_get]:
- Source: 'src/external.rs', lines 5:0-5:37 *)
+ Source: 'tests/src/external.rs', lines 5:0-5:37 *)
let use_get (rc : core_cell_Cell_t u32) (st : state) : result (state & u32) =
core_cell_Cell_get u32 core_marker_CopyU32 rc st
(** [external::incr]:
- Source: 'src/external.rs', lines 9:0-9:31 *)
+ Source: 'tests/src/external.rs', lines 9:0-9:31 *)
let incr
(rc : core_cell_Cell_t u32) (st : state) :
result (state & (core_cell_Cell_t u32))
diff --git a/tests/fstar/misc/Loops.Clauses.Template.fst b/tests/fstar/misc/Loops.Clauses.Template.fst
index e43f8170..77f9c3e4 100644
--- a/tests/fstar/misc/Loops.Clauses.Template.fst
+++ b/tests/fstar/misc/Loops.Clauses.Template.fst
@@ -7,144 +7,144 @@ open Loops.Types
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [loops::sum]: decreases clause
- Source: 'src/loops.rs', lines 4:0-14:1 *)
+ Source: 'tests/src/loops.rs', lines 4:0-14:1 *)
unfold let sum_loop_decreases (max : u32) (i : u32) (s : u32) : nat = admit ()
(** [loops::sum_with_mut_borrows]: decreases clause
- Source: 'src/loops.rs', lines 19:0-31:1 *)
+ Source: 'tests/src/loops.rs', lines 19:0-31:1 *)
unfold
let sum_with_mut_borrows_loop_decreases (max : u32) (i : u32) (s : u32) : nat =
admit ()
(** [loops::sum_with_shared_borrows]: decreases clause
- Source: 'src/loops.rs', lines 34:0-48:1 *)
+ Source: 'tests/src/loops.rs', lines 34:0-48:1 *)
unfold
let sum_with_shared_borrows_loop_decreases (max : u32) (i : u32) (s : u32) :
nat =
admit ()
(** [loops::sum_array]: decreases clause
- Source: 'src/loops.rs', lines 50:0-58:1 *)
+ Source: 'tests/src/loops.rs', lines 50:0-58:1 *)
unfold
let sum_array_loop_decreases (n : usize) (a : array u32 n) (i : usize)
(s : u32) : nat =
admit ()
(** [loops::clear]: decreases clause
- Source: 'src/loops.rs', lines 62:0-68:1 *)
+ Source: 'tests/src/loops.rs', lines 62:0-68:1 *)
unfold
let clear_loop_decreases (v : alloc_vec_Vec u32) (i : usize) : nat = admit ()
(** [loops::list_mem]: decreases clause
- Source: 'src/loops.rs', lines 76:0-85:1 *)
+ Source: 'tests/src/loops.rs', lines 76:0-85:1 *)
unfold let list_mem_loop_decreases (x : u32) (ls : list_t u32) : nat = admit ()
(** [loops::list_nth_mut_loop]: decreases clause
- Source: 'src/loops.rs', lines 88:0-98:1 *)
+ Source: 'tests/src/loops.rs', lines 88:0-98:1 *)
unfold
let list_nth_mut_loop_loop_decreases (t : Type0) (ls : list_t t) (i : u32) :
nat =
admit ()
(** [loops::list_nth_shared_loop]: decreases clause
- Source: 'src/loops.rs', lines 101:0-111:1 *)
+ Source: 'tests/src/loops.rs', lines 101:0-111:1 *)
unfold
let list_nth_shared_loop_loop_decreases (t : Type0) (ls : list_t t) (i : u32) :
nat =
admit ()
(** [loops::get_elem_mut]: decreases clause
- Source: 'src/loops.rs', lines 113:0-127:1 *)
+ Source: 'tests/src/loops.rs', lines 113:0-127:1 *)
unfold
let get_elem_mut_loop_decreases (x : usize) (ls : list_t usize) : nat =
admit ()
(** [loops::get_elem_shared]: decreases clause
- Source: 'src/loops.rs', lines 129:0-143:1 *)
+ Source: 'tests/src/loops.rs', lines 129:0-143:1 *)
unfold
let get_elem_shared_loop_decreases (x : usize) (ls : list_t usize) : nat =
admit ()
(** [loops::list_nth_mut_loop_with_id]: decreases clause
- Source: 'src/loops.rs', lines 154:0-165:1 *)
+ Source: 'tests/src/loops.rs', lines 154:0-165:1 *)
unfold
let list_nth_mut_loop_with_id_loop_decreases (t : Type0) (i : u32)
(ls : list_t t) : nat =
admit ()
(** [loops::list_nth_shared_loop_with_id]: decreases clause
- Source: 'src/loops.rs', lines 168:0-179:1 *)
+ Source: 'tests/src/loops.rs', lines 168:0-179:1 *)
unfold
let list_nth_shared_loop_with_id_loop_decreases (t : Type0) (i : u32)
(ls : list_t t) : nat =
admit ()
(** [loops::list_nth_mut_loop_pair]: decreases clause
- Source: 'src/loops.rs', lines 184:0-205:1 *)
+ Source: 'tests/src/loops.rs', lines 184:0-205:1 *)
unfold
let list_nth_mut_loop_pair_loop_decreases (t : Type0) (ls0 : list_t t)
(ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_shared_loop_pair]: decreases clause
- Source: 'src/loops.rs', lines 208:0-229:1 *)
+ Source: 'tests/src/loops.rs', lines 208:0-229:1 *)
unfold
let list_nth_shared_loop_pair_loop_decreases (t : Type0) (ls0 : list_t t)
(ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_mut_loop_pair_merge]: decreases clause
- Source: 'src/loops.rs', lines 233:0-248:1 *)
+ Source: 'tests/src/loops.rs', lines 233:0-248:1 *)
unfold
let list_nth_mut_loop_pair_merge_loop_decreases (t : Type0) (ls0 : list_t t)
(ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_shared_loop_pair_merge]: decreases clause
- Source: 'src/loops.rs', lines 251:0-266:1 *)
+ Source: 'tests/src/loops.rs', lines 251:0-266:1 *)
unfold
let list_nth_shared_loop_pair_merge_loop_decreases (t : Type0) (ls0 : list_t t)
(ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_mut_shared_loop_pair]: decreases clause
- Source: 'src/loops.rs', lines 269:0-284:1 *)
+ Source: 'tests/src/loops.rs', lines 269:0-284:1 *)
unfold
let list_nth_mut_shared_loop_pair_loop_decreases (t : Type0) (ls0 : list_t t)
(ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_mut_shared_loop_pair_merge]: decreases clause
- Source: 'src/loops.rs', lines 288:0-303:1 *)
+ Source: 'tests/src/loops.rs', lines 288:0-303:1 *)
unfold
let list_nth_mut_shared_loop_pair_merge_loop_decreases (t : Type0)
(ls0 : list_t t) (ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_shared_mut_loop_pair]: decreases clause
- Source: 'src/loops.rs', lines 307:0-322:1 *)
+ Source: 'tests/src/loops.rs', lines 307:0-322:1 *)
unfold
let list_nth_shared_mut_loop_pair_loop_decreases (t : Type0) (ls0 : list_t t)
(ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::list_nth_shared_mut_loop_pair_merge]: decreases clause
- Source: 'src/loops.rs', lines 326:0-341:1 *)
+ Source: 'tests/src/loops.rs', lines 326:0-341:1 *)
unfold
let list_nth_shared_mut_loop_pair_merge_loop_decreases (t : Type0)
(ls0 : list_t t) (ls1 : list_t t) (i : u32) : nat =
admit ()
(** [loops::ignore_input_mut_borrow]: decreases clause
- Source: 'src/loops.rs', lines 345:0-349:1 *)
+ Source: 'tests/src/loops.rs', lines 345:0-349:1 *)
unfold let ignore_input_mut_borrow_loop_decreases (i : u32) : nat = admit ()
(** [loops::incr_ignore_input_mut_borrow]: decreases clause
- Source: 'src/loops.rs', lines 353:0-358:1 *)
+ Source: 'tests/src/loops.rs', lines 353:0-358:1 *)
unfold
let incr_ignore_input_mut_borrow_loop_decreases (i : u32) : nat = admit ()
(** [loops::ignore_input_shared_borrow]: decreases clause
- Source: 'src/loops.rs', lines 362:0-366:1 *)
+ Source: 'tests/src/loops.rs', lines 362:0-366:1 *)
unfold let ignore_input_shared_borrow_loop_decreases (i : u32) : nat = admit ()
diff --git a/tests/fstar/misc/Loops.Funs.fst b/tests/fstar/misc/Loops.Funs.fst
index 26cb91d2..0eafeebb 100644
--- a/tests/fstar/misc/Loops.Funs.fst
+++ b/tests/fstar/misc/Loops.Funs.fst
@@ -8,7 +8,7 @@ include Loops.Clauses
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [loops::sum]: loop 0:
- Source: 'src/loops.rs', lines 4:0-14:1 *)
+ Source: 'tests/src/loops.rs', lines 4:0-14:1 *)
let rec sum_loop
(max : u32) (i : u32) (s : u32) :
Tot (result u32) (decreases (sum_loop_decreases max i s))
@@ -18,12 +18,12 @@ let rec sum_loop
else u32_mul s 2
(** [loops::sum]:
- Source: 'src/loops.rs', lines 4:0-4:27 *)
+ Source: 'tests/src/loops.rs', lines 4:0-4:27 *)
let sum (max : u32) : result u32 =
sum_loop max 0 0
(** [loops::sum_with_mut_borrows]: loop 0:
- Source: 'src/loops.rs', lines 19:0-31:1 *)
+ Source: 'tests/src/loops.rs', lines 19:0-31:1 *)
let rec sum_with_mut_borrows_loop
(max : u32) (i : u32) (s : u32) :
Tot (result u32) (decreases (sum_with_mut_borrows_loop_decreases max i s))
@@ -36,12 +36,12 @@ let rec sum_with_mut_borrows_loop
else u32_mul s 2
(** [loops::sum_with_mut_borrows]:
- Source: 'src/loops.rs', lines 19:0-19:44 *)
+ Source: 'tests/src/loops.rs', lines 19:0-19:44 *)
let sum_with_mut_borrows (max : u32) : result u32 =
sum_with_mut_borrows_loop max 0 0
(** [loops::sum_with_shared_borrows]: loop 0:
- Source: 'src/loops.rs', lines 34:0-48:1 *)
+ Source: 'tests/src/loops.rs', lines 34:0-48:1 *)
let rec sum_with_shared_borrows_loop
(max : u32) (i : u32) (s : u32) :
Tot (result u32) (decreases (sum_with_shared_borrows_loop_decreases max i s))
@@ -54,12 +54,12 @@ let rec sum_with_shared_borrows_loop
else u32_mul s 2
(** [loops::sum_with_shared_borrows]:
- Source: 'src/loops.rs', lines 34:0-34:47 *)
+ Source: 'tests/src/loops.rs', lines 34:0-34:47 *)
let sum_with_shared_borrows (max : u32) : result u32 =
sum_with_shared_borrows_loop max 0 0
(** [loops::sum_array]: loop 0:
- Source: 'src/loops.rs', lines 50:0-58:1 *)
+ Source: 'tests/src/loops.rs', lines 50:0-58:1 *)
let rec sum_array_loop
(n : usize) (a : array u32 n) (i : usize) (s : u32) :
Tot (result u32) (decreases (sum_array_loop_decreases n a i s))
@@ -73,12 +73,12 @@ let rec sum_array_loop
else Ok s
(** [loops::sum_array]:
- Source: 'src/loops.rs', lines 50:0-50:52 *)
+ Source: 'tests/src/loops.rs', lines 50:0-50:52 *)
let sum_array (n : usize) (a : array u32 n) : result u32 =
sum_array_loop n a 0 0
(** [loops::clear]: loop 0:
- Source: 'src/loops.rs', lines 62:0-68:1 *)
+ Source: 'tests/src/loops.rs', lines 62:0-68:1 *)
let rec clear_loop
(v : alloc_vec_Vec u32) (i : usize) :
Tot (result (alloc_vec_Vec u32)) (decreases (clear_loop_decreases v i))
@@ -95,12 +95,12 @@ let rec clear_loop
else Ok v
(** [loops::clear]:
- Source: 'src/loops.rs', lines 62:0-62:30 *)
+ Source: 'tests/src/loops.rs', lines 62:0-62:30 *)
let clear (v : alloc_vec_Vec u32) : result (alloc_vec_Vec u32) =
clear_loop v 0
(** [loops::list_mem]: loop 0:
- Source: 'src/loops.rs', lines 76:0-85:1 *)
+ Source: 'tests/src/loops.rs', lines 76:0-85:1 *)
let rec list_mem_loop
(x : u32) (ls : list_t u32) :
Tot (result bool) (decreases (list_mem_loop_decreases x ls))
@@ -111,12 +111,12 @@ let rec list_mem_loop
end
(** [loops::list_mem]:
- Source: 'src/loops.rs', lines 76:0-76:52 *)
+ Source: 'tests/src/loops.rs', lines 76:0-76:52 *)
let list_mem (x : u32) (ls : list_t u32) : result bool =
list_mem_loop x ls
(** [loops::list_nth_mut_loop]: loop 0:
- Source: 'src/loops.rs', lines 88:0-98:1 *)
+ Source: 'tests/src/loops.rs', lines 88:0-98:1 *)
let rec list_nth_mut_loop_loop
(t : Type0) (ls : list_t t) (i : u32) :
Tot (result (t & (t -> result (list_t t))))
@@ -135,7 +135,7 @@ let rec list_nth_mut_loop_loop
end
(** [loops::list_nth_mut_loop]:
- Source: 'src/loops.rs', lines 88:0-88:71 *)
+ Source: 'tests/src/loops.rs', lines 88:0-88:71 *)
let list_nth_mut_loop
(t : Type0) (ls : list_t t) (i : u32) :
result (t & (t -> result (list_t t)))
@@ -143,7 +143,7 @@ let list_nth_mut_loop
list_nth_mut_loop_loop t ls i
(** [loops::list_nth_shared_loop]: loop 0:
- Source: 'src/loops.rs', lines 101:0-111:1 *)
+ Source: 'tests/src/loops.rs', lines 101:0-111:1 *)
let rec list_nth_shared_loop_loop
(t : Type0) (ls : list_t t) (i : u32) :
Tot (result t) (decreases (list_nth_shared_loop_loop_decreases t ls i))
@@ -157,12 +157,12 @@ let rec list_nth_shared_loop_loop
end
(** [loops::list_nth_shared_loop]:
- Source: 'src/loops.rs', lines 101:0-101:66 *)
+ Source: 'tests/src/loops.rs', lines 101:0-101:66 *)
let list_nth_shared_loop (t : Type0) (ls : list_t t) (i : u32) : result t =
list_nth_shared_loop_loop t ls i
(** [loops::get_elem_mut]: loop 0:
- Source: 'src/loops.rs', lines 113:0-127:1 *)
+ Source: 'tests/src/loops.rs', lines 113:0-127:1 *)
let rec get_elem_mut_loop
(x : usize) (ls : list_t usize) :
Tot (result (usize & (usize -> result (list_t usize))))
@@ -180,7 +180,7 @@ let rec get_elem_mut_loop
end
(** [loops::get_elem_mut]:
- Source: 'src/loops.rs', lines 113:0-113:73 *)
+ Source: 'tests/src/loops.rs', lines 113:0-113:73 *)
let get_elem_mut
(slots : alloc_vec_Vec (list_t usize)) (x : usize) :
result (usize & (usize -> result (alloc_vec_Vec (list_t usize))))
@@ -193,7 +193,7 @@ let get_elem_mut
Ok (i, back1)
(** [loops::get_elem_shared]: loop 0:
- Source: 'src/loops.rs', lines 129:0-143:1 *)
+ Source: 'tests/src/loops.rs', lines 129:0-143:1 *)
let rec get_elem_shared_loop
(x : usize) (ls : list_t usize) :
Tot (result usize) (decreases (get_elem_shared_loop_decreases x ls))
@@ -204,7 +204,7 @@ let rec get_elem_shared_loop
end
(** [loops::get_elem_shared]:
- Source: 'src/loops.rs', lines 129:0-129:68 *)
+ Source: 'tests/src/loops.rs', lines 129:0-129:68 *)
let get_elem_shared
(slots : alloc_vec_Vec (list_t usize)) (x : usize) : result usize =
let* ls =
@@ -213,7 +213,7 @@ let get_elem_shared
get_elem_shared_loop x ls
(** [loops::id_mut]:
- Source: 'src/loops.rs', lines 145:0-145:50 *)
+ Source: 'tests/src/loops.rs', lines 145:0-145:50 *)
let id_mut
(t : Type0) (ls : list_t t) :
result ((list_t t) & (list_t t -> result (list_t t)))
@@ -221,12 +221,12 @@ let id_mut
Ok (ls, Ok)
(** [loops::id_shared]:
- Source: 'src/loops.rs', lines 149:0-149:45 *)
+ Source: 'tests/src/loops.rs', lines 149:0-149:45 *)
let id_shared (t : Type0) (ls : list_t t) : result (list_t t) =
Ok ls
(** [loops::list_nth_mut_loop_with_id]: loop 0:
- Source: 'src/loops.rs', lines 154:0-165:1 *)
+ Source: 'tests/src/loops.rs', lines 154:0-165:1 *)
let rec list_nth_mut_loop_with_id_loop
(t : Type0) (i : u32) (ls : list_t t) :
Tot (result (t & (t -> result (list_t t))))
@@ -245,7 +245,7 @@ let rec list_nth_mut_loop_with_id_loop
end
(** [loops::list_nth_mut_loop_with_id]:
- Source: 'src/loops.rs', lines 154:0-154:75 *)
+ Source: 'tests/src/loops.rs', lines 154:0-154:75 *)
let list_nth_mut_loop_with_id
(t : Type0) (ls : list_t t) (i : u32) :
result (t & (t -> result (list_t t)))
@@ -256,7 +256,7 @@ let list_nth_mut_loop_with_id
Ok (x, back1)
(** [loops::list_nth_shared_loop_with_id]: loop 0:
- Source: 'src/loops.rs', lines 168:0-179:1 *)
+ Source: 'tests/src/loops.rs', lines 168:0-179:1 *)
let rec list_nth_shared_loop_with_id_loop
(t : Type0) (i : u32) (ls : list_t t) :
Tot (result t)
@@ -271,13 +271,13 @@ let rec list_nth_shared_loop_with_id_loop
end
(** [loops::list_nth_shared_loop_with_id]:
- Source: 'src/loops.rs', lines 168:0-168:70 *)
+ Source: 'tests/src/loops.rs', lines 168:0-168:70 *)
let list_nth_shared_loop_with_id
(t : Type0) (ls : list_t t) (i : u32) : result t =
let* ls1 = id_shared t ls in list_nth_shared_loop_with_id_loop t i ls1
(** [loops::list_nth_mut_loop_pair]: loop 0:
- Source: 'src/loops.rs', lines 184:0-205:1 *)
+ Source: 'tests/src/loops.rs', lines 184:0-205:1 *)
let rec list_nth_mut_loop_pair_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result ((t & t) & (t -> result (list_t t)) & (t -> result (list_t t))))
@@ -306,7 +306,7 @@ let rec list_nth_mut_loop_pair_loop
end
(** [loops::list_nth_mut_loop_pair]:
- Source: 'src/loops.rs', lines 184:0-188:27 *)
+ Source: 'tests/src/loops.rs', lines 184:0-188:27 *)
let list_nth_mut_loop_pair
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
result ((t & t) & (t -> result (list_t t)) & (t -> result (list_t t)))
@@ -314,7 +314,7 @@ let list_nth_mut_loop_pair
list_nth_mut_loop_pair_loop t ls0 ls1 i
(** [loops::list_nth_shared_loop_pair]: loop 0:
- Source: 'src/loops.rs', lines 208:0-229:1 *)
+ Source: 'tests/src/loops.rs', lines 208:0-229:1 *)
let rec list_nth_shared_loop_pair_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result (t & t))
@@ -333,13 +333,13 @@ let rec list_nth_shared_loop_pair_loop
end
(** [loops::list_nth_shared_loop_pair]:
- Source: 'src/loops.rs', lines 208:0-212:19 *)
+ Source: 'tests/src/loops.rs', lines 208:0-212:19 *)
let list_nth_shared_loop_pair
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) : result (t & t) =
list_nth_shared_loop_pair_loop t ls0 ls1 i
(** [loops::list_nth_mut_loop_pair_merge]: loop 0:
- Source: 'src/loops.rs', lines 233:0-248:1 *)
+ Source: 'tests/src/loops.rs', lines 233:0-248:1 *)
let rec list_nth_mut_loop_pair_merge_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result ((t & t) & ((t & t) -> result ((list_t t) & (list_t t)))))
@@ -369,7 +369,7 @@ let rec list_nth_mut_loop_pair_merge_loop
end
(** [loops::list_nth_mut_loop_pair_merge]:
- Source: 'src/loops.rs', lines 233:0-237:27 *)
+ Source: 'tests/src/loops.rs', lines 233:0-237:27 *)
let list_nth_mut_loop_pair_merge
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
result ((t & t) & ((t & t) -> result ((list_t t) & (list_t t))))
@@ -377,7 +377,7 @@ let list_nth_mut_loop_pair_merge
list_nth_mut_loop_pair_merge_loop t ls0 ls1 i
(** [loops::list_nth_shared_loop_pair_merge]: loop 0:
- Source: 'src/loops.rs', lines 251:0-266:1 *)
+ Source: 'tests/src/loops.rs', lines 251:0-266:1 *)
let rec list_nth_shared_loop_pair_merge_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result (t & t))
@@ -398,13 +398,13 @@ let rec list_nth_shared_loop_pair_merge_loop
end
(** [loops::list_nth_shared_loop_pair_merge]:
- Source: 'src/loops.rs', lines 251:0-255:19 *)
+ Source: 'tests/src/loops.rs', lines 251:0-255:19 *)
let list_nth_shared_loop_pair_merge
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) : result (t & t) =
list_nth_shared_loop_pair_merge_loop t ls0 ls1 i
(** [loops::list_nth_mut_shared_loop_pair]: loop 0:
- Source: 'src/loops.rs', lines 269:0-284:1 *)
+ Source: 'tests/src/loops.rs', lines 269:0-284:1 *)
let rec list_nth_mut_shared_loop_pair_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result ((t & t) & (t -> result (list_t t))))
@@ -428,7 +428,7 @@ let rec list_nth_mut_shared_loop_pair_loop
end
(** [loops::list_nth_mut_shared_loop_pair]:
- Source: 'src/loops.rs', lines 269:0-273:23 *)
+ Source: 'tests/src/loops.rs', lines 269:0-273:23 *)
let list_nth_mut_shared_loop_pair
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
result ((t & t) & (t -> result (list_t t)))
@@ -436,7 +436,7 @@ let list_nth_mut_shared_loop_pair
list_nth_mut_shared_loop_pair_loop t ls0 ls1 i
(** [loops::list_nth_mut_shared_loop_pair_merge]: loop 0:
- Source: 'src/loops.rs', lines 288:0-303:1 *)
+ Source: 'tests/src/loops.rs', lines 288:0-303:1 *)
let rec list_nth_mut_shared_loop_pair_merge_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result ((t & t) & (t -> result (list_t t))))
@@ -461,7 +461,7 @@ let rec list_nth_mut_shared_loop_pair_merge_loop
end
(** [loops::list_nth_mut_shared_loop_pair_merge]:
- Source: 'src/loops.rs', lines 288:0-292:23 *)
+ Source: 'tests/src/loops.rs', lines 288:0-292:23 *)
let list_nth_mut_shared_loop_pair_merge
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
result ((t & t) & (t -> result (list_t t)))
@@ -469,7 +469,7 @@ let list_nth_mut_shared_loop_pair_merge
list_nth_mut_shared_loop_pair_merge_loop t ls0 ls1 i
(** [loops::list_nth_shared_mut_loop_pair]: loop 0:
- Source: 'src/loops.rs', lines 307:0-322:1 *)
+ Source: 'tests/src/loops.rs', lines 307:0-322:1 *)
let rec list_nth_shared_mut_loop_pair_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result ((t & t) & (t -> result (list_t t))))
@@ -493,7 +493,7 @@ let rec list_nth_shared_mut_loop_pair_loop
end
(** [loops::list_nth_shared_mut_loop_pair]:
- Source: 'src/loops.rs', lines 307:0-311:23 *)
+ Source: 'tests/src/loops.rs', lines 307:0-311:23 *)
let list_nth_shared_mut_loop_pair
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
result ((t & t) & (t -> result (list_t t)))
@@ -501,7 +501,7 @@ let list_nth_shared_mut_loop_pair
list_nth_shared_mut_loop_pair_loop t ls0 ls1 i
(** [loops::list_nth_shared_mut_loop_pair_merge]: loop 0:
- Source: 'src/loops.rs', lines 326:0-341:1 *)
+ Source: 'tests/src/loops.rs', lines 326:0-341:1 *)
let rec list_nth_shared_mut_loop_pair_merge_loop
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
Tot (result ((t & t) & (t -> result (list_t t))))
@@ -526,7 +526,7 @@ let rec list_nth_shared_mut_loop_pair_merge_loop
end
(** [loops::list_nth_shared_mut_loop_pair_merge]:
- Source: 'src/loops.rs', lines 326:0-330:23 *)
+ Source: 'tests/src/loops.rs', lines 326:0-330:23 *)
let list_nth_shared_mut_loop_pair_merge
(t : Type0) (ls0 : list_t t) (ls1 : list_t t) (i : u32) :
result ((t & t) & (t -> result (list_t t)))
@@ -534,7 +534,7 @@ let list_nth_shared_mut_loop_pair_merge
list_nth_shared_mut_loop_pair_merge_loop t ls0 ls1 i
(** [loops::ignore_input_mut_borrow]: loop 0:
- Source: 'src/loops.rs', lines 345:0-349:1 *)
+ Source: 'tests/src/loops.rs', lines 345:0-349:1 *)
let rec ignore_input_mut_borrow_loop
(i : u32) :
Tot (result unit) (decreases (ignore_input_mut_borrow_loop_decreases i))
@@ -544,12 +544,12 @@ let rec ignore_input_mut_borrow_loop
else Ok ()
(** [loops::ignore_input_mut_borrow]:
- Source: 'src/loops.rs', lines 345:0-345:56 *)
+ Source: 'tests/src/loops.rs', lines 345:0-345:56 *)
let ignore_input_mut_borrow (_a : u32) (i : u32) : result u32 =
let* _ = ignore_input_mut_borrow_loop i in Ok _a
(** [loops::incr_ignore_input_mut_borrow]: loop 0:
- Source: 'src/loops.rs', lines 353:0-358:1 *)
+ Source: 'tests/src/loops.rs', lines 353:0-358:1 *)
let rec incr_ignore_input_mut_borrow_loop
(i : u32) :
Tot (result unit) (decreases (incr_ignore_input_mut_borrow_loop_decreases i))
@@ -559,14 +559,14 @@ let rec incr_ignore_input_mut_borrow_loop
else Ok ()
(** [loops::incr_ignore_input_mut_borrow]:
- Source: 'src/loops.rs', lines 353:0-353:60 *)
+ Source: 'tests/src/loops.rs', lines 353:0-353:60 *)
let incr_ignore_input_mut_borrow (a : u32) (i : u32) : result u32 =
let* a1 = u32_add a 1 in
let* _ = incr_ignore_input_mut_borrow_loop i in
Ok a1
(** [loops::ignore_input_shared_borrow]: loop 0:
- Source: 'src/loops.rs', lines 362:0-366:1 *)
+ Source: 'tests/src/loops.rs', lines 362:0-366:1 *)
let rec ignore_input_shared_borrow_loop
(i : u32) :
Tot (result unit) (decreases (ignore_input_shared_borrow_loop_decreases i))
@@ -576,7 +576,7 @@ let rec ignore_input_shared_borrow_loop
else Ok ()
(** [loops::ignore_input_shared_borrow]:
- Source: 'src/loops.rs', lines 362:0-362:59 *)
+ Source: 'tests/src/loops.rs', lines 362:0-362:59 *)
let ignore_input_shared_borrow (_a : u32) (i : u32) : result u32 =
let* _ = ignore_input_shared_borrow_loop i in Ok _a
diff --git a/tests/fstar/misc/Loops.Types.fst b/tests/fstar/misc/Loops.Types.fst
index 29f56e1b..534f5df7 100644
--- a/tests/fstar/misc/Loops.Types.fst
+++ b/tests/fstar/misc/Loops.Types.fst
@@ -6,7 +6,7 @@ open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [loops::List]
- Source: 'src/loops.rs', lines 70:0-70:16 *)
+ Source: 'tests/src/loops.rs', lines 70:0-70:16 *)
type list_t (t : Type0) =
| List_Cons : t -> list_t t -> list_t t
| List_Nil : list_t t
diff --git a/tests/fstar/misc/NoNestedBorrows.fst b/tests/fstar/misc/NoNestedBorrows.fst
index 7d965944..340dd293 100644
--- a/tests/fstar/misc/NoNestedBorrows.fst
+++ b/tests/fstar/misc/NoNestedBorrows.fst
@@ -6,54 +6,54 @@ open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [no_nested_borrows::Pair]
- Source: 'src/no_nested_borrows.rs', lines 4:0-4:23 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 4:0-4:23 *)
type pair_t (t1 t2 : Type0) = { x : t1; y : t2; }
(** [no_nested_borrows::List]
- Source: 'src/no_nested_borrows.rs', lines 9:0-9:16 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 9:0-9:16 *)
type list_t (t : Type0) =
| List_Cons : t -> list_t t -> list_t t
| List_Nil : list_t t
(** [no_nested_borrows::One]
- Source: 'src/no_nested_borrows.rs', lines 20:0-20:16 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 20:0-20:16 *)
type one_t (t1 : Type0) = | One_One : t1 -> one_t t1
(** [no_nested_borrows::EmptyEnum]
- Source: 'src/no_nested_borrows.rs', lines 26:0-26:18 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 26:0-26:18 *)
type emptyEnum_t = | EmptyEnum_Empty : emptyEnum_t
(** [no_nested_borrows::Enum]
- Source: 'src/no_nested_borrows.rs', lines 32:0-32:13 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 32:0-32:13 *)
type enum_t = | Enum_Variant1 : enum_t | Enum_Variant2 : enum_t
(** [no_nested_borrows::EmptyStruct]
- Source: 'src/no_nested_borrows.rs', lines 39:0-39:22 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 39:0-39:22 *)
type emptyStruct_t = unit
(** [no_nested_borrows::Sum]
- Source: 'src/no_nested_borrows.rs', lines 41:0-41:20 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 41:0-41:20 *)
type sum_t (t1 t2 : Type0) =
| Sum_Left : t1 -> sum_t t1 t2
| Sum_Right : t2 -> sum_t t1 t2
(** [no_nested_borrows::cast_u32_to_i32]:
- Source: 'src/no_nested_borrows.rs', lines 46:0-46:37 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 46:0-46:37 *)
let cast_u32_to_i32 (x : u32) : result i32 =
scalar_cast U32 I32 x
(** [no_nested_borrows::cast_bool_to_i32]:
- Source: 'src/no_nested_borrows.rs', lines 50:0-50:39 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 50:0-50:39 *)
let cast_bool_to_i32 (x : bool) : result i32 =
scalar_cast_bool I32 x
(** [no_nested_borrows::cast_bool_to_bool]:
- Source: 'src/no_nested_borrows.rs', lines 55:0-55:41 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 55:0-55:41 *)
let cast_bool_to_bool (x : bool) : result bool =
Ok x
(** [no_nested_borrows::test2]:
- Source: 'src/no_nested_borrows.rs', lines 60:0-60:14 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 60:0-60:14 *)
let test2 : result unit =
let* _ = u32_add 23 44 in Ok ()
@@ -61,12 +61,12 @@ let test2 : result unit =
let _ = assert_norm (test2 = Ok ())
(** [no_nested_borrows::get_max]:
- Source: 'src/no_nested_borrows.rs', lines 72:0-72:37 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 72:0-72:37 *)
let get_max (x : u32) (y : u32) : result u32 =
if x >= y then Ok x else Ok y
(** [no_nested_borrows::test3]:
- Source: 'src/no_nested_borrows.rs', lines 80:0-80:14 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 80:0-80:14 *)
let test3 : result unit =
let* x = get_max 4 3 in
let* y = get_max 10 11 in
@@ -77,7 +77,7 @@ let test3 : result unit =
let _ = assert_norm (test3 = Ok ())
(** [no_nested_borrows::test_neg1]:
- Source: 'src/no_nested_borrows.rs', lines 87:0-87:18 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 87:0-87:18 *)
let test_neg1 : result unit =
let* y = i32_neg 3 in if not (y = -3) then Fail Failure else Ok ()
@@ -85,7 +85,7 @@ let test_neg1 : result unit =
let _ = assert_norm (test_neg1 = Ok ())
(** [no_nested_borrows::refs_test1]:
- Source: 'src/no_nested_borrows.rs', lines 94:0-94:19 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 94:0-94:19 *)
let refs_test1 : result unit =
if not (1 = 1) then Fail Failure else Ok ()
@@ -93,7 +93,7 @@ let refs_test1 : result unit =
let _ = assert_norm (refs_test1 = Ok ())
(** [no_nested_borrows::refs_test2]:
- Source: 'src/no_nested_borrows.rs', lines 105:0-105:19 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 105:0-105:19 *)
let refs_test2 : result unit =
if not (2 = 2)
then Fail Failure
@@ -109,7 +109,7 @@ let refs_test2 : result unit =
let _ = assert_norm (refs_test2 = Ok ())
(** [no_nested_borrows::test_list1]:
- Source: 'src/no_nested_borrows.rs', lines 121:0-121:19 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 121:0-121:19 *)
let test_list1 : result unit =
Ok ()
@@ -117,7 +117,7 @@ let test_list1 : result unit =
let _ = assert_norm (test_list1 = Ok ())
(** [no_nested_borrows::test_box1]:
- Source: 'src/no_nested_borrows.rs', lines 126:0-126:18 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 126:0-126:18 *)
let test_box1 : result unit =
let* (_, deref_mut_back) = alloc_boxed_Box_deref_mut i32 0 in
let* b = deref_mut_back 1 in
@@ -128,22 +128,22 @@ let test_box1 : result unit =
let _ = assert_norm (test_box1 = Ok ())
(** [no_nested_borrows::copy_int]:
- Source: 'src/no_nested_borrows.rs', lines 136:0-136:30 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 136:0-136:30 *)
let copy_int (x : i32) : result i32 =
Ok x
(** [no_nested_borrows::test_unreachable]:
- Source: 'src/no_nested_borrows.rs', lines 142:0-142:32 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 142:0-142:32 *)
let test_unreachable (b : bool) : result unit =
if b then Fail Failure else Ok ()
(** [no_nested_borrows::test_panic]:
- Source: 'src/no_nested_borrows.rs', lines 150:0-150:26 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 150:0-150:26 *)
let test_panic (b : bool) : result unit =
if b then Fail Failure else Ok ()
(** [no_nested_borrows::test_copy_int]:
- Source: 'src/no_nested_borrows.rs', lines 157:0-157:22 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 157:0-157:22 *)
let test_copy_int : result unit =
let* y = copy_int 0 in if not (0 = y) then Fail Failure else Ok ()
@@ -151,12 +151,12 @@ let test_copy_int : result unit =
let _ = assert_norm (test_copy_int = Ok ())
(** [no_nested_borrows::is_cons]:
- Source: 'src/no_nested_borrows.rs', lines 164:0-164:38 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 164:0-164:38 *)
let is_cons (t : Type0) (l : list_t t) : result bool =
begin match l with | List_Cons _ _ -> Ok true | List_Nil -> Ok false end
(** [no_nested_borrows::test_is_cons]:
- Source: 'src/no_nested_borrows.rs', lines 171:0-171:21 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 171:0-171:21 *)
let test_is_cons : result unit =
let* b = is_cons i32 (List_Cons 0 List_Nil) in
if not b then Fail Failure else Ok ()
@@ -165,7 +165,7 @@ let test_is_cons : result unit =
let _ = assert_norm (test_is_cons = Ok ())
(** [no_nested_borrows::split_list]:
- Source: 'src/no_nested_borrows.rs', lines 177:0-177:48 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 177:0-177:48 *)
let split_list (t : Type0) (l : list_t t) : result (t & (list_t t)) =
begin match l with
| List_Cons hd tl -> Ok (hd, tl)
@@ -173,7 +173,7 @@ let split_list (t : Type0) (l : list_t t) : result (t & (list_t t)) =
end
(** [no_nested_borrows::test_split_list]:
- Source: 'src/no_nested_borrows.rs', lines 185:0-185:24 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 185:0-185:24 *)
let test_split_list : result unit =
let* p = split_list i32 (List_Cons 0 List_Nil) in
let (hd, _) = p in
@@ -183,7 +183,7 @@ let test_split_list : result unit =
let _ = assert_norm (test_split_list = Ok ())
(** [no_nested_borrows::choose]:
- Source: 'src/no_nested_borrows.rs', lines 192:0-192:70 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 192:0-192:70 *)
let choose
(t : Type0) (b : bool) (x : t) (y : t) : result (t & (t -> result (t & t))) =
if b
@@ -191,7 +191,7 @@ let choose
else let back = fun ret -> Ok (x, ret) in Ok (y, back)
(** [no_nested_borrows::choose_test]:
- Source: 'src/no_nested_borrows.rs', lines 200:0-200:20 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 200:0-200:20 *)
let choose_test : result unit =
let* (z, choose_back) = choose i32 true 0 0 in
let* z1 = i32_add z 1 in
@@ -207,24 +207,24 @@ let choose_test : result unit =
let _ = assert_norm (choose_test = Ok ())
(** [no_nested_borrows::test_char]:
- Source: 'src/no_nested_borrows.rs', lines 212:0-212:26 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 212:0-212:26 *)
let test_char : result char =
Ok 'a'
(** [no_nested_borrows::Tree]
- Source: 'src/no_nested_borrows.rs', lines 217:0-217:16 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 217:0-217:16 *)
type tree_t (t : Type0) =
| Tree_Leaf : t -> tree_t t
| Tree_Node : t -> nodeElem_t t -> tree_t t -> tree_t t
(** [no_nested_borrows::NodeElem]
- Source: 'src/no_nested_borrows.rs', lines 222:0-222:20 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 222:0-222:20 *)
and nodeElem_t (t : Type0) =
| NodeElem_Cons : tree_t t -> nodeElem_t t -> nodeElem_t t
| NodeElem_Nil : nodeElem_t t
(** [no_nested_borrows::list_length]:
- Source: 'src/no_nested_borrows.rs', lines 257:0-257:48 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 257:0-257:48 *)
let rec list_length (t : Type0) (l : list_t t) : result u32 =
begin match l with
| List_Cons _ l1 -> let* i = list_length t l1 in u32_add 1 i
@@ -232,7 +232,7 @@ let rec list_length (t : Type0) (l : list_t t) : result u32 =
end
(** [no_nested_borrows::list_nth_shared]:
- Source: 'src/no_nested_borrows.rs', lines 265:0-265:62 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 265:0-265:62 *)
let rec list_nth_shared (t : Type0) (l : list_t t) (i : u32) : result t =
begin match l with
| List_Cons x tl ->
@@ -241,7 +241,7 @@ let rec list_nth_shared (t : Type0) (l : list_t t) (i : u32) : result t =
end
(** [no_nested_borrows::list_nth_mut]:
- Source: 'src/no_nested_borrows.rs', lines 281:0-281:67 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 281:0-281:67 *)
let rec list_nth_mut
(t : Type0) (l : list_t t) (i : u32) :
result (t & (t -> result (list_t t)))
@@ -260,7 +260,7 @@ let rec list_nth_mut
end
(** [no_nested_borrows::list_rev_aux]:
- Source: 'src/no_nested_borrows.rs', lines 297:0-297:63 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 297:0-297:63 *)
let rec list_rev_aux
(t : Type0) (li : list_t t) (lo : list_t t) : result (list_t t) =
begin match li with
@@ -269,13 +269,13 @@ let rec list_rev_aux
end
(** [no_nested_borrows::list_rev]:
- Source: 'src/no_nested_borrows.rs', lines 311:0-311:42 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 311:0-311:42 *)
let list_rev (t : Type0) (l : list_t t) : result (list_t t) =
let (li, _) = core_mem_replace (list_t t) l List_Nil in
list_rev_aux t li List_Nil
(** [no_nested_borrows::test_list_functions]:
- Source: 'src/no_nested_borrows.rs', lines 316:0-316:28 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 316:0-316:28 *)
let test_list_functions : result unit =
let l = List_Cons 2 List_Nil in
let l1 = List_Cons 1 l in
@@ -312,7 +312,7 @@ let test_list_functions : result unit =
let _ = assert_norm (test_list_functions = Ok ())
(** [no_nested_borrows::id_mut_pair1]:
- Source: 'src/no_nested_borrows.rs', lines 332:0-332:89 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 332:0-332:89 *)
let id_mut_pair1
(t1 t2 : Type0) (x : t1) (y : t2) :
result ((t1 & t2) & ((t1 & t2) -> result (t1 & t2)))
@@ -320,7 +320,7 @@ let id_mut_pair1
Ok ((x, y), Ok)
(** [no_nested_borrows::id_mut_pair2]:
- Source: 'src/no_nested_borrows.rs', lines 336:0-336:88 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 336:0-336:88 *)
let id_mut_pair2
(t1 t2 : Type0) (p : (t1 & t2)) :
result ((t1 & t2) & ((t1 & t2) -> result (t1 & t2)))
@@ -328,7 +328,7 @@ let id_mut_pair2
let (x, x1) = p in Ok ((x, x1), Ok)
(** [no_nested_borrows::id_mut_pair3]:
- Source: 'src/no_nested_borrows.rs', lines 340:0-340:93 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 340:0-340:93 *)
let id_mut_pair3
(t1 t2 : Type0) (x : t1) (y : t2) :
result ((t1 & t2) & (t1 -> result t1) & (t2 -> result t2))
@@ -336,7 +336,7 @@ let id_mut_pair3
Ok ((x, y), Ok, Ok)
(** [no_nested_borrows::id_mut_pair4]:
- Source: 'src/no_nested_borrows.rs', lines 344:0-344:92 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 344:0-344:92 *)
let id_mut_pair4
(t1 t2 : Type0) (p : (t1 & t2)) :
result ((t1 & t2) & (t1 -> result t1) & (t2 -> result t2))
@@ -344,35 +344,35 @@ let id_mut_pair4
let (x, x1) = p in Ok ((x, x1), Ok, Ok)
(** [no_nested_borrows::StructWithTuple]
- Source: 'src/no_nested_borrows.rs', lines 351:0-351:34 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 351:0-351:34 *)
type structWithTuple_t (t1 t2 : Type0) = { p : (t1 & t2); }
(** [no_nested_borrows::new_tuple1]:
- Source: 'src/no_nested_borrows.rs', lines 355:0-355:48 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 355:0-355:48 *)
let new_tuple1 : result (structWithTuple_t u32 u32) =
Ok { p = (1, 2) }
(** [no_nested_borrows::new_tuple2]:
- Source: 'src/no_nested_borrows.rs', lines 359:0-359:48 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 359:0-359:48 *)
let new_tuple2 : result (structWithTuple_t i16 i16) =
Ok { p = (1, 2) }
(** [no_nested_borrows::new_tuple3]:
- Source: 'src/no_nested_borrows.rs', lines 363:0-363:48 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 363:0-363:48 *)
let new_tuple3 : result (structWithTuple_t u64 i64) =
Ok { p = (1, 2) }
(** [no_nested_borrows::StructWithPair]
- Source: 'src/no_nested_borrows.rs', lines 368:0-368:33 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 368:0-368:33 *)
type structWithPair_t (t1 t2 : Type0) = { p : pair_t t1 t2; }
(** [no_nested_borrows::new_pair1]:
- Source: 'src/no_nested_borrows.rs', lines 372:0-372:46 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 372:0-372:46 *)
let new_pair1 : result (structWithPair_t u32 u32) =
Ok { p = { x = 1; y = 2 } }
(** [no_nested_borrows::test_constants]:
- Source: 'src/no_nested_borrows.rs', lines 380:0-380:23 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 380:0-380:23 *)
let test_constants : result unit =
let* swt = new_tuple1 in
let (i, _) = swt.p in
@@ -396,7 +396,7 @@ let test_constants : result unit =
let _ = assert_norm (test_constants = Ok ())
(** [no_nested_borrows::test_weird_borrows1]:
- Source: 'src/no_nested_borrows.rs', lines 389:0-389:28 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 389:0-389:28 *)
let test_weird_borrows1 : result unit =
Ok ()
@@ -404,71 +404,71 @@ let test_weird_borrows1 : result unit =
let _ = assert_norm (test_weird_borrows1 = Ok ())
(** [no_nested_borrows::test_mem_replace]:
- Source: 'src/no_nested_borrows.rs', lines 399:0-399:37 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 399:0-399:37 *)
let test_mem_replace (px : u32) : result u32 =
let (y, _) = core_mem_replace u32 px 1 in
if not (y = 0) then Fail Failure else Ok 2
(** [no_nested_borrows::test_shared_borrow_bool1]:
- Source: 'src/no_nested_borrows.rs', lines 406:0-406:47 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 406:0-406:47 *)
let test_shared_borrow_bool1 (b : bool) : result u32 =
if b then Ok 0 else Ok 1
(** [no_nested_borrows::test_shared_borrow_bool2]:
- Source: 'src/no_nested_borrows.rs', lines 419:0-419:40 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 419:0-419:40 *)
let test_shared_borrow_bool2 : result u32 =
Ok 0
(** [no_nested_borrows::test_shared_borrow_enum1]:
- Source: 'src/no_nested_borrows.rs', lines 434:0-434:52 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 434:0-434:52 *)
let test_shared_borrow_enum1 (l : list_t u32) : result u32 =
begin match l with | List_Cons _ _ -> Ok 1 | List_Nil -> Ok 0 end
(** [no_nested_borrows::test_shared_borrow_enum2]:
- Source: 'src/no_nested_borrows.rs', lines 446:0-446:40 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 446:0-446:40 *)
let test_shared_borrow_enum2 : result u32 =
Ok 0
(** [no_nested_borrows::incr]:
- Source: 'src/no_nested_borrows.rs', lines 457:0-457:24 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 457:0-457:24 *)
let incr (x : u32) : result u32 =
u32_add x 1
(** [no_nested_borrows::call_incr]:
- Source: 'src/no_nested_borrows.rs', lines 461:0-461:35 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 461:0-461:35 *)
let call_incr (x : u32) : result u32 =
incr x
(** [no_nested_borrows::read_then_incr]:
- Source: 'src/no_nested_borrows.rs', lines 466:0-466:41 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 466:0-466:41 *)
let read_then_incr (x : u32) : result (u32 & u32) =
let* x1 = u32_add x 1 in Ok (x, x1)
(** [no_nested_borrows::Tuple]
- Source: 'src/no_nested_borrows.rs', lines 472:0-472:24 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 472:0-472:24 *)
type tuple_t (t1 t2 : Type0) = t1 * t2
(** [no_nested_borrows::use_tuple_struct]:
- Source: 'src/no_nested_borrows.rs', lines 474:0-474:48 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 474:0-474:48 *)
let use_tuple_struct (x : tuple_t u32 u32) : result (tuple_t u32 u32) =
let (_, i) = x in Ok (1, i)
(** [no_nested_borrows::create_tuple_struct]:
- Source: 'src/no_nested_borrows.rs', lines 478:0-478:61 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 478:0-478:61 *)
let create_tuple_struct (x : u32) (y : u64) : result (tuple_t u32 u64) =
Ok (x, y)
(** [no_nested_borrows::IdType]
- Source: 'src/no_nested_borrows.rs', lines 483:0-483:20 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 483:0-483:20 *)
type idType_t (t : Type0) = t
(** [no_nested_borrows::use_id_type]:
- Source: 'src/no_nested_borrows.rs', lines 485:0-485:40 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 485:0-485:40 *)
let use_id_type (t : Type0) (x : idType_t t) : result t =
Ok x
(** [no_nested_borrows::create_id_type]:
- Source: 'src/no_nested_borrows.rs', lines 489:0-489:43 *)
+ Source: 'tests/src/no_nested_borrows.rs', lines 489:0-489:43 *)
let create_id_type (t : Type0) (x : t) : result (idType_t t) =
Ok x
diff --git a/tests/fstar/misc/Paper.fst b/tests/fstar/misc/Paper.fst
index e6b4eb25..2e74e21a 100644
--- a/tests/fstar/misc/Paper.fst
+++ b/tests/fstar/misc/Paper.fst
@@ -6,12 +6,12 @@ open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [paper::ref_incr]:
- Source: 'src/paper.rs', lines 4:0-4:28 *)
+ Source: 'tests/src/paper.rs', lines 4:0-4:28 *)
let ref_incr (x : i32) : result i32 =
i32_add x 1
(** [paper::test_incr]:
- Source: 'src/paper.rs', lines 8:0-8:18 *)
+ Source: 'tests/src/paper.rs', lines 8:0-8:18 *)
let test_incr : result unit =
let* x = ref_incr 0 in if not (x = 1) then Fail Failure else Ok ()
@@ -19,7 +19,7 @@ let test_incr : result unit =
let _ = assert_norm (test_incr = Ok ())
(** [paper::choose]:
- Source: 'src/paper.rs', lines 15:0-15:70 *)
+ Source: 'tests/src/paper.rs', lines 15:0-15:70 *)
let choose
(t : Type0) (b : bool) (x : t) (y : t) : result (t & (t -> result (t & t))) =
if b
@@ -27,7 +27,7 @@ let choose
else let back = fun ret -> Ok (x, ret) in Ok (y, back)
(** [paper::test_choose]:
- Source: 'src/paper.rs', lines 23:0-23:20 *)
+ Source: 'tests/src/paper.rs', lines 23:0-23:20 *)
let test_choose : result unit =
let* (z, choose_back) = choose i32 true 0 0 in
let* z1 = i32_add z 1 in
@@ -43,13 +43,13 @@ let test_choose : result unit =
let _ = assert_norm (test_choose = Ok ())
(** [paper::List]
- Source: 'src/paper.rs', lines 35:0-35:16 *)
+ Source: 'tests/src/paper.rs', lines 35:0-35:16 *)
type list_t (t : Type0) =
| List_Cons : t -> list_t t -> list_t t
| List_Nil : list_t t
(** [paper::list_nth_mut]:
- Source: 'src/paper.rs', lines 42:0-42:67 *)
+ Source: 'tests/src/paper.rs', lines 42:0-42:67 *)
let rec list_nth_mut
(t : Type0) (l : list_t t) (i : u32) :
result (t & (t -> result (list_t t)))
@@ -68,7 +68,7 @@ let rec list_nth_mut
end
(** [paper::sum]:
- Source: 'src/paper.rs', lines 57:0-57:32 *)
+ Source: 'tests/src/paper.rs', lines 57:0-57:32 *)
let rec sum (l : list_t i32) : result i32 =
begin match l with
| List_Cons x tl -> let* i = sum tl in i32_add x i
@@ -76,7 +76,7 @@ let rec sum (l : list_t i32) : result i32 =
end
(** [paper::test_nth]:
- Source: 'src/paper.rs', lines 68:0-68:17 *)
+ Source: 'tests/src/paper.rs', lines 68:0-68:17 *)
let test_nth : result unit =
let l = List_Cons 3 List_Nil in
let l1 = List_Cons 2 l in
@@ -90,7 +90,7 @@ let test_nth : result unit =
let _ = assert_norm (test_nth = Ok ())
(** [paper::call_choose]:
- Source: 'src/paper.rs', lines 76:0-76:44 *)
+ Source: 'tests/src/paper.rs', lines 76:0-76:44 *)
let call_choose (p : (u32 & u32)) : result u32 =
let (px, py) = p in
let* (pz, choose_back) = choose u32 true px py in
diff --git a/tests/fstar/misc/PoloniusList.fst b/tests/fstar/misc/PoloniusList.fst
index c0bc592e..071fd3ef 100644
--- a/tests/fstar/misc/PoloniusList.fst
+++ b/tests/fstar/misc/PoloniusList.fst
@@ -6,13 +6,13 @@ open Primitives
#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
(** [polonius_list::List]
- Source: 'src/polonius_list.rs', lines 3:0-3:16 *)
+ Source: 'tests/src/polonius_list.rs', lines 3:0-3:16 *)
type list_t (t : Type0) =
| List_Cons : t -> list_t t -> list_t t
| List_Nil : list_t t
(** [polonius_list::get_list_at_x]:
- Source: 'src/polonius_list.rs', lines 13:0-13:76 *)
+ Source: 'tests/src/polonius_list.rs', lines 13:0-13:76 *)
let rec get_list_at_x
(ls : list_t u32) (x : u32) :
result ((list_t u32) & (list_t u32 -> result (list_t u32)))
--
cgit v1.2.3