From 8e7d2bf77e631a094d1533a9b2e6eaeff6f1baa4 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 24 Dec 2017 17:25:59 +0100
Subject: [PATCH] avoid using too recent a function in tests

---
 src/Sequence.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Sequence.ml b/src/Sequence.ml
index aa0e350..c60eff9 100644
--- a/src/Sequence.ml
+++ b/src/Sequence.ml
@@ -1106,8 +1106,9 @@ let to_buffer seq buf =
 
 (*$R
   let b = Buffer.create 4 in
+  let upp = function 'a'..'z' as c -> Char.chr (Char.code c - Char.code 'a' + Char.code 'A') | c -> c in
   "hello world"
-    |> of_str |> rev |> map Char.uppercase_ascii
+    |> of_str |> rev |> map upp
     |> (fun seq -> to_buffer seq b);
   OUnit.assert_equal "DLROW OLLEH" (Buffer.contents b);
 *)