From 779376f2b14eb66b8f99bc36a2b6633f738a3acd Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 22 Aug 2016 09:19:49 +0200 Subject: [PATCH] move test from `cppo.ml` file to `.mli` file --- src/core/CCString.cppo.ml | 5 ----- src/core/CCString.mli | 6 ++++++ 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/core/CCString.cppo.ml b/src/core/CCString.cppo.ml index 6097665a..2f1e02b6 100644 --- a/src/core/CCString.cppo.ml +++ b/src/core/CCString.cppo.ml @@ -398,11 +398,6 @@ let compare_versions a b = in cmp_rec (Split.gen_cpy ~by:"." a) (Split.gen_cpy ~by:"." b) -(*$Q - Q.(pair printable_string printable_string) (fun (a,b) -> \ - CCOrd.equiv (compare_versions a b) (CCOrd.opp (compare_versions b a))) -*) - let repeat s n = assert (n>=0); let len = String.length s in diff --git a/src/core/CCString.mli b/src/core/CCString.mli index d0a2c5c2..b07fa645 100644 --- a/src/core/CCString.mli +++ b/src/core/CCString.mli @@ -484,6 +484,12 @@ val compare_versions : string -> string -> int compare_versions "1.2.3.4" "01.2.4.3" < 0 *) +(*$Q + Q.(pair printable_string printable_string) (fun (a,b) -> \ + CCOrd.equiv (compare_versions a b) (CCOrd.opp compare_versions b a)) +*) + + (** {2 Slices} A contiguous part of a string *) module Sub : sig