From 855dd739e1407fc2e8da3dbada3de77f35643498 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 5 Feb 2013 09:57:42 +0100
Subject: [PATCH] more tests with sexprs

---
 tests.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests.ml b/tests.ml
index 01528a7..04930a0 100644
--- a/tests.ml
+++ b/tests.ml
@@ -41,7 +41,7 @@ let _ =
         (Sequence.take 5 (Sequence.List.to_seq l3)) (Sequence.List.to_seq l4))));
   (* sum *)
   let n = 100000000 in
-  let sum = Sequence.fold (+) 0 (Sequence.take n (Sequence.Int.repeat 1)) in
+  let sum = Sequence.fold (+) 0 (Sequence.take n (Sequence.repeat 1)) in
   Format.printf "%dx1 = %d@." n sum;
   assert (n=sum);
   let s = Sexpr.of_seq (Sexpr.lex (Sequence.String.to_seq sexpr)) in
@@ -50,4 +50,6 @@ let _ =
     (Sexpr.traverse s))
   in
   Format.printf "@[<hov2>transform @[<h>%s@] into @[<h>%a@]@]@." sexpr (Sexpr.pp_sexpr ~indent:false) s;
+  Format.printf "@[<hv2> cycle:%a@]@." Sexpr.pp_tokens
+    (Sequence.concat (Sequence.take 10 (Sequence.repeat (Sexpr.traverse s))));
   ()