From df3a3de2ae42472a5f00357435f719c1beaf39db Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 19 Apr 2023 21:17:00 -0400
Subject: [PATCH] test: add regression test for #38

---
 tests/unit/t_iter.ml | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/tests/unit/t_iter.ml b/tests/unit/t_iter.ml
index d90e6fc..beaf8d6 100644
--- a/tests/unit/t_iter.ml
+++ b/tests/unit/t_iter.ml
@@ -328,6 +328,22 @@ let () =
   OUnit.assert_bool "not empty" (not (is_empty s));
   ()
 
+let with_tmp_file f =
+  let path = Filename.temp_file "test_iter" "data" in
+  try
+    let x = f path in
+    (try Sys.remove path with _ -> ());
+    x
+  with e ->
+    (try Sys.remove path with _ -> ());
+    raise e
+
+let () =
+  with_tmp_file @@ fun path ->
+  Iter.IO.write_lines path Iter.empty;
+  let l = Iter.IO.lines_of path |> Iter.to_list in
+  OUnit.assert_equal ~printer:Q.Print.(list @@ Printf.sprintf "%S") [] l
+
 let () =
   let errcode = QCheck_base_runner.run_tests ~colors:false !qchecks in
   if errcode <> 0 then exit errcode