diff --git a/test/dune b/test/dune
index c10d08f4..af881591 100644
--- a/test/dune
+++ b/test/dune
@@ -7,7 +7,6 @@
   t_futs1
   t_tree_futs
   t_props
-  t_chan_train
   t_resource
   t_unfair
   t_ws_deque
diff --git a/test/effect-based/dune b/test/effect-based/dune
index bf1feb81..faa9254d 100644
--- a/test/effect-based/dune
+++ b/test/effect-based/dune
@@ -3,6 +3,7 @@
   t_fib1
   t_futs1
   t_many
+  t_chan_train
   t_fib_fork_join
   t_fib_fork_join_all
   t_sort
diff --git a/test/t_chan_train.ml b/test/effect-based/t_chan_train.ml
similarity index 94%
rename from test/t_chan_train.ml
rename to test/effect-based/t_chan_train.ml
index 20645a73..09b51987 100644
--- a/test/t_chan_train.ml
+++ b/test/effect-based/t_chan_train.ml
@@ -10,10 +10,10 @@ type event =
   | E_close
 
 let mk_chan (ic : event Chan.t) : event Chan.t =
-  let out = Chan.create () in
+  let out = Chan.create ~max_size:16 () in
 
   let rec loop () =
-    let* ev = Chan.pop ic in
+    let ev = Chan.pop ic in
     Chan.push out ev;
     match ev with
     | E_close -> Fut.return ()
@@ -44,7 +44,7 @@ let run () =
   (* start trains *)
   let trains =
     List.init n_trains (fun _ ->
-        let c = Chan.create () in
+        let c = Chan.create ~max_size:16 () in
         let out = mk_train len_train c in
         c, out)
   in