From 9f435e329a2ce27ae45f8e4bdb0303b257712117 Mon Sep 17 00:00:00 2001 From: ygrek Date: Fri, 8 Jan 2010 17:27:15 +0200 Subject: [PATCH] fix enum_tests.ml to compile --- tests/enum_tests.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/enum_tests.ml b/tests/enum_tests.ml index fbd0353..cc7f895 100644 --- a/tests/enum_tests.ml +++ b/tests/enum_tests.ml @@ -71,10 +71,11 @@ let poly0 = assert (E.pred `T3 = `T2); end - + let t = begin - ListLabels.iter (Enum.Enum_int.enum_from_to (-1000) 1000) + (* Directly access implementation module for basic types *) + ListLabels.iter (Deriving_Enum.Enum_int.enum_from_to (-1000) 1000) ~f:(fun i -> assert (Enum_t.succ i = i+1); assert (Enum_t.pred i = i-1); -- 2.11.4.GIT