test/seqUtil.ml test/walksTest.ml walks.ml @@ -7,24 +7,9 @@ Tests examples: Tests.run "Name of the suite" *) -let rec _cmp_to_list_end seq lst = - match lst with - | [] -> - OUnit.assert_equal Seq.Nil seq - | h::[] -> - OUnit.assert_equal (Some h) (Seq.head seq); - OUnit.assert_equal None (Seq.head (Seq.tail seq)) - | h::q -> - OUnit.assert_equal (Some h) (Seq.head seq); - _cmp_to_list_end (Seq.tail seq) q - -let rec _cmp_to_list_cont seq lst = - match lst with - | [] -> - () - | h::q -> - OUnit.assert_equal (Some h) (Seq.head seq); - _cmp_to_list_cont (Seq.tail seq) q +(* Functions hqve been moved to external module ... redirecting *) +let _cmp_to_list_end = SeqUtil.cmp_to_list_end +let _cmp_to_list_cont = SeqUtil.cmp_to_list_cont let _ = Tests.register "Base: head, tail" (fun () -> test/seqTest.ml 72a5930860dacb415e2ffa1f3fffe8a326c4d26c Ludovic Coquelle lcoquelle@gmail.com http://github.com/khigia/ocaml-anneal/commit/70ff50f1b4dc28875f1246822dbd1b8d1fbff912 70ff50f1b4dc28875f1246822dbd1b8d1fbff912 2008-06-20T21:32:49-07:00 2008-06-20T21:32:49-07:00 Added Walk module: create specialized sequence like dichotomy over aray, all possible pairs of 2 array etc. 03468eae0b435ef7caf2555fa461a7987458700f Ludovic Coquelle lcoquelle@gmail.com