tests for hashing strings

This commit is contained in:
Simon Cruanes 2025-05-06 10:01:10 -04:00
parent 4613aafb30
commit b55d3cfe6a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -11,6 +11,8 @@ t @@ fun () -> char 'c' >= 0;;
t @@ fun () -> int 152352 = int 152352;; t @@ fun () -> int 152352 = int 152352;;
t @@ fun () -> list_comm int [ 1; 2 ] = list_comm int [ 2; 1 ];; t @@ fun () -> list_comm int [ 1; 2 ] = list_comm int [ 2; 1 ];;
t @@ fun () -> list_comm int [ 1; 2 ] <> list_comm int [ 2; 3 ];; t @@ fun () -> list_comm int [ 1; 2 ] <> list_comm int [ 2; 3 ];;
t @@ fun () -> string "abcd" >= 0;;
t @@ fun () -> string "abc" <> string "abcd";;
q Q.int (fun i -> q Q.int (fun i ->
Q.assume (i >= 0); Q.assume (i >= 0);