diff options
Diffstat (limited to 'testsuite/tests/parallel')
24 files changed, 89 insertions, 68 deletions
diff --git a/testsuite/tests/parallel/atomics.ml b/testsuite/tests/parallel/atomics.ml index 823fb32dc2..b2c36f6765 100644 --- a/testsuite/tests/parallel/atomics.ml +++ b/testsuite/tests/parallel/atomics.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) type u = U of unit let () = diff --git a/testsuite/tests/parallel/backup_thread.ml b/testsuite/tests/parallel/backup_thread.ml index 05b06cc47c..9804c5b99c 100644 --- a/testsuite/tests/parallel/backup_thread.ml +++ b/testsuite/tests/parallel/backup_thread.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** bytecode -** native + include unix; + hasunix; + { + bytecode; + }{ + native; + } *) diff --git a/testsuite/tests/parallel/backup_thread_pipe.ml b/testsuite/tests/parallel/backup_thread_pipe.ml index 41fd101c1f..471e075eb3 100644 --- a/testsuite/tests/parallel/backup_thread_pipe.ml +++ b/testsuite/tests/parallel/backup_thread_pipe.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** bytecode -** native + include unix; + hasunix; + { + bytecode; + }{ + native; + } *) diff --git a/testsuite/tests/parallel/constpromote.ml b/testsuite/tests/parallel/constpromote.ml index 9bf7ede7a3..2b6bdf075b 100644 --- a/testsuite/tests/parallel/constpromote.ml +++ b/testsuite/tests/parallel/constpromote.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) (* when run with the bytecode debug runtime, this test used to trigger a bug where the constant [13] diff --git a/testsuite/tests/parallel/deadcont.ml b/testsuite/tests/parallel/deadcont.ml index fcdfbec210..5faae5f726 100644 --- a/testsuite/tests/parallel/deadcont.ml +++ b/testsuite/tests/parallel/deadcont.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) (* Test handling of continuations created by a domain that has since terminated. diff --git a/testsuite/tests/parallel/domain_dls.ml b/testsuite/tests/parallel/domain_dls.ml index 72f4ddf0bd..47751aca0e 100644 --- a/testsuite/tests/parallel/domain_dls.ml +++ b/testsuite/tests/parallel/domain_dls.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) let check_dls () = let k1 = Domain.DLS.new_key (fun () -> 10) in diff --git a/testsuite/tests/parallel/domain_dls2.ml b/testsuite/tests/parallel/domain_dls2.ml index ae301bda36..2900ec03a8 100644 --- a/testsuite/tests/parallel/domain_dls2.ml +++ b/testsuite/tests/parallel/domain_dls2.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) let _ = let key_array = diff --git a/testsuite/tests/parallel/domain_id.ml b/testsuite/tests/parallel/domain_id.ml index 540ca905fd..21236277b3 100644 --- a/testsuite/tests/parallel/domain_id.ml +++ b/testsuite/tests/parallel/domain_id.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) open Domain diff --git a/testsuite/tests/parallel/domain_parallel_spawn_burn.ml b/testsuite/tests/parallel/domain_parallel_spawn_burn.ml index ecc9d0b78f..85f09bd98b 100644 --- a/testsuite/tests/parallel/domain_parallel_spawn_burn.ml +++ b/testsuite/tests/parallel/domain_parallel_spawn_burn.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) open Domain diff --git a/testsuite/tests/parallel/domain_parallel_spawn_burn_gc_set.ml b/testsuite/tests/parallel/domain_parallel_spawn_burn_gc_set.ml index 883ab1a5ab..6b8a2c6fa4 100644 --- a/testsuite/tests/parallel/domain_parallel_spawn_burn_gc_set.ml +++ b/testsuite/tests/parallel/domain_parallel_spawn_burn_gc_set.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) open Domain diff --git a/testsuite/tests/parallel/domain_serial_spawn_burn.ml b/testsuite/tests/parallel/domain_serial_spawn_burn.ml index aeac4f71f7..7355b2550a 100644 --- a/testsuite/tests/parallel/domain_serial_spawn_burn.ml +++ b/testsuite/tests/parallel/domain_serial_spawn_burn.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** bytecode -** native + include unix; + hasunix; + { + bytecode; + }{ + native; + } *) open Domain diff --git a/testsuite/tests/parallel/fib_threads.ml b/testsuite/tests/parallel/fib_threads.ml index f6005729b7..c6a28081c4 100644 --- a/testsuite/tests/parallel/fib_threads.ml +++ b/testsuite/tests/parallel/fib_threads.ml @@ -1,8 +1,11 @@ (* TEST -* hassysthreads -include systhreads -** bytecode -** native + include systhreads; + hassysthreads; + { + bytecode; + }{ + native; + } *) diff --git a/testsuite/tests/parallel/join.ml b/testsuite/tests/parallel/join.ml index ee85838527..05cc4ea882 100644 --- a/testsuite/tests/parallel/join.ml +++ b/testsuite/tests/parallel/join.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) let test_size = try int_of_string (Sys.getenv "OCAML_TEST_SIZE") diff --git a/testsuite/tests/parallel/major_gc_wait_backup.ml b/testsuite/tests/parallel/major_gc_wait_backup.ml index e418500774..7c11863047 100644 --- a/testsuite/tests/parallel/major_gc_wait_backup.ml +++ b/testsuite/tests/parallel/major_gc_wait_backup.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** native -** bytecode + include unix; + hasunix; + { + native; + }{ + bytecode; + } *) type 'a tree = Empty | Node of 'a tree * 'a tree diff --git a/testsuite/tests/parallel/mctest.ml b/testsuite/tests/parallel/mctest.ml index c5d82d2dbd..ea339e31ed 100644 --- a/testsuite/tests/parallel/mctest.ml +++ b/testsuite/tests/parallel/mctest.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** bytecode -** native + include unix; + hasunix; + { + bytecode; + }{ + native; + } *) (* diff --git a/testsuite/tests/parallel/multicore_systhreads.ml b/testsuite/tests/parallel/multicore_systhreads.ml index 2f0fcf20b0..a2e1130a7b 100644 --- a/testsuite/tests/parallel/multicore_systhreads.ml +++ b/testsuite/tests/parallel/multicore_systhreads.ml @@ -1,8 +1,11 @@ (* TEST -* hassysthreads -include systhreads -** bytecode -** native + include systhreads; + hassysthreads; + { + bytecode; + }{ + native; + } *) diff --git a/testsuite/tests/parallel/pingpong.ml b/testsuite/tests/parallel/pingpong.ml index 1f29cb6b8b..8f900d6de3 100644 --- a/testsuite/tests/parallel/pingpong.ml +++ b/testsuite/tests/parallel/pingpong.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) let r = ref (Some 0) diff --git a/testsuite/tests/parallel/poll.ml b/testsuite/tests/parallel/poll.ml index 4248ba10cf..e0774ec642 100644 --- a/testsuite/tests/parallel/poll.ml +++ b/testsuite/tests/parallel/poll.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** bytecode -** native + include unix; + hasunix; + { + bytecode; + }{ + native; + } *) let continue = Atomic.make true diff --git a/testsuite/tests/parallel/prodcons_domains.ml b/testsuite/tests/parallel/prodcons_domains.ml index 2e2c09756c..34e5612fda 100644 --- a/testsuite/tests/parallel/prodcons_domains.ml +++ b/testsuite/tests/parallel/prodcons_domains.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) (* Classic producer-consumer *) diff --git a/testsuite/tests/parallel/recommended_domain_count.ml b/testsuite/tests/parallel/recommended_domain_count.ml index 8aedeba202..ec08a2c457 100644 --- a/testsuite/tests/parallel/recommended_domain_count.ml +++ b/testsuite/tests/parallel/recommended_domain_count.ml @@ -1,5 +1,5 @@ (* TEST -modules = "recommended_domain_count_cstubs.c" + modules = "recommended_domain_count_cstubs.c"; *) external get_max_domains : unit -> int = "caml_get_max_domains" diff --git a/testsuite/tests/parallel/recommended_domain_count_unix.ml b/testsuite/tests/parallel/recommended_domain_count_unix.ml index f26038a765..d25d54856a 100644 --- a/testsuite/tests/parallel/recommended_domain_count_unix.ml +++ b/testsuite/tests/parallel/recommended_domain_count_unix.ml @@ -1,8 +1,11 @@ (* TEST -* hasunix -include unix -** bytecode -** native + include unix; + hasunix; + { + bytecode; + }{ + native; + } *) let try_ext cmd = diff --git a/testsuite/tests/parallel/tak.ml b/testsuite/tests/parallel/tak.ml index a9b6874c4f..85bccf4007 100644 --- a/testsuite/tests/parallel/tak.ml +++ b/testsuite/tests/parallel/tak.ml @@ -1,5 +1,4 @@ -(* TEST -*) +(* TEST *) (* filling minor heaps in parallel to trigger minor heap exhaustion codepath organically *) diff --git a/testsuite/tests/parallel/test_c_thread_register.ml b/testsuite/tests/parallel/test_c_thread_register.ml index 352424a377..71af40f146 100644 --- a/testsuite/tests/parallel/test_c_thread_register.ml +++ b/testsuite/tests/parallel/test_c_thread_register.ml @@ -1,9 +1,12 @@ (* TEST - modules = "test_c_thread_register_cstubs.c" - * hassysthreads - include systhreads - ** bytecode - ** native + modules = "test_c_thread_register_cstubs.c"; + include systhreads; + hassysthreads; + { + bytecode; + }{ + native; + } *) (* spins a external thread from C and register it to the OCaml runtime *) diff --git a/testsuite/tests/parallel/test_issue_11094.ml b/testsuite/tests/parallel/test_issue_11094.ml index ffc6d4bedd..b2e2411767 100644 --- a/testsuite/tests/parallel/test_issue_11094.ml +++ b/testsuite/tests/parallel/test_issue_11094.ml @@ -1,6 +1,9 @@ (* TEST -* bytecode -* native + { + bytecode; + }{ + native; + } *) open Effect |