From 1e06423e8759cc29e9c7de84cfab3e177ff2d08d Mon Sep 17 00:00:00 2001 From: Alexander Lucas Date: Wed, 1 Jan 2025 10:33:05 -0500 Subject: [PATCH] Fixed formatting of `t_string.ml` tests for `take_while`, etc. --- tests/core/t_string.ml | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/tests/core/t_string.ml b/tests/core/t_string.ml index f1747f1d..47f1f00b 100644 --- a/tests/core/t_string.ml +++ b/tests/core/t_string.ml @@ -280,18 +280,23 @@ eq ~printer:CCFun.id "" (unlines []);; eq ~printer:CCFun.id "ab\nc\n" (unlines [ "ab"; "c" ]);; q Q.printable_string (fun s -> trim (unlines (lines s)) = trim s);; q Q.printable_string (fun s -> trim (unlines_gen (lines_gen s)) = trim s);; - eq ~printer:CCFun.id "" (take_while (Char.equal 'c') "heloo_cc");; eq ~printer:CCFun.id "" (take_while (Char.equal 'c') "");; eq ~printer:CCFun.id "c" (take_while (Char.equal 'c') "c");; eq ~printer:CCFun.id "ccc" (take_while (Char.equal 'c') "cccujsuy");; -eq ~printer:CCFun.id "THIS" (take_while (fun c -> Char.code c < 91) "THISisNotWHAtIwANTED");; + +eq ~printer:CCFun.id "THIS" + (take_while (fun c -> Char.code c < 91) "THISisNotWHAtIwANTED") +;; eq ~printer:CCFun.id "cc" (rtake_while (Char.equal 'c') "heloo_cc");; eq ~printer:CCFun.id "" (rtake_while (Char.equal 'c') "");; eq ~printer:CCFun.id "c" (rtake_while (Char.equal 'c') "c");; eq ~printer:CCFun.id "" (rtake_while (Char.equal 'c') "cccujsuy");; -eq ~printer:CCFun.id "ANTED" (rtake_while (fun c -> Char.code c < 91) "THISisNotWHAtIwANTED");; + +eq ~printer:CCFun.id "ANTED" + (rtake_while (fun c -> Char.code c < 91) "THISisNotWHAtIwANTED") +;; q Q.(small_list small_string)