make fft and nucleic last longer

OCamlPro · Oct 24, 2024 · c9dfdf3 · c9dfdf3
1 parent bf13da4
commit c9dfdf3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/wasm/test/fft.ml b/wasm/test/fft.ml
@@ -176,7 +176,7 @@ let test np =
 
 let () =
   let np = ref 16 in
-  for _i = 1 to 16 do
+  for _i = 1 to 18 do
     test !np;
     np := !np * 2
   done
diff --git a/wasm/test/nucleic.ml b/wasm/test/nucleic.ml
@@ -7270,7 +7270,7 @@ let check () = List.length (pseudoknot ())
 let run () = most_distant_atom (pseudoknot ())
 
 let main () =
-  for _ = 1 to 50 do
+  for _ = 1 to 350 do
     ignore (run ())
   done;
   assert (abs_float (run () -. 33.7976) < 0.0002)