Fix stream test

Author: vouillon

compiler/tests-ocaml/match-exception/streams.ml

@@ -29,11 +29,14 @@ let rec iter_stream_match f s =
     end
 ;;
 
-let test_iter_stream =
+let test_iter_stream () =
   let limit = 10000000 in
   try
     iter_stream_match ignore (make_stream_up_to limit);
     print_endline "iter_stream with handler case (match) is tail recursive"
   with Stack_overflow ->
     assert false
 ;;
+
+let () = test_iter_stream ()
+;;