diff options
Diffstat (limited to 'ocaml-binary-annot/testsuite/tests/lib-threads/test6.ml')
| -rw-r--r-- | ocaml-binary-annot/testsuite/tests/lib-threads/test6.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ocaml-binary-annot/testsuite/tests/lib-threads/test6.ml b/ocaml-binary-annot/testsuite/tests/lib-threads/test6.ml new file mode 100644 index 0000000000..9573a66108 --- /dev/null +++ b/ocaml-binary-annot/testsuite/tests/lib-threads/test6.ml @@ -0,0 +1,15 @@ +open Event + +let ch = (new_channel() : string channel) + +let rec f tag msg = + select [ + send ch msg; + wrap (receive ch) (fun x -> print_string(tag ^ ": " ^ x); print_newline()) + ]; + f tag msg + +let _ = + Thread.create (f "A") "hello"; + f "B" "world"; + exit 0 |