File tree 1 file changed +8
-3
lines changed
1 file changed +8
-3
lines changed Original file line number Diff line number Diff line change @@ -280,18 +280,23 @@ eq ~printer:CCFun.id "" (unlines []);;
280
280
eq ~printer: CCFun. id " ab\n c\n " (unlines [ " ab" ; " c" ]);;
281
281
q Q. printable_string (fun s -> trim (unlines (lines s)) = trim s);;
282
282
q Q. printable_string (fun s -> trim (unlines_gen (lines_gen s)) = trim s);;
283
-
284
283
eq ~printer: CCFun. id " " (take_while (Char. equal 'c' ) " heloo_cc" );;
285
284
eq ~printer: CCFun. id " " (take_while (Char. equal 'c' ) " " );;
286
285
eq ~printer: CCFun. id " c" (take_while (Char. equal 'c' ) " c" );;
287
286
eq ~printer: CCFun. id " ccc" (take_while (Char. equal 'c' ) " cccujsuy" );;
288
- eq ~printer: CCFun. id " THIS" (take_while (fun c -> Char. code c < 91 ) " THISisNotWHAtIwANTED" );;
287
+
288
+ eq ~printer: CCFun. id " THIS"
289
+ (take_while (fun c -> Char. code c < 91 ) " THISisNotWHAtIwANTED" )
290
+ ;;
289
291
290
292
eq ~printer: CCFun. id " cc" (rtake_while (Char. equal 'c' ) " heloo_cc" );;
291
293
eq ~printer: CCFun. id " " (rtake_while (Char. equal 'c' ) " " );;
292
294
eq ~printer: CCFun. id " c" (rtake_while (Char. equal 'c' ) " c" );;
293
295
eq ~printer: CCFun. id " " (rtake_while (Char. equal 'c' ) " cccujsuy" );;
294
- eq ~printer: CCFun. id " ANTED" (rtake_while (fun c -> Char. code c < 91 ) " THISisNotWHAtIwANTED" );;
296
+
297
+ eq ~printer: CCFun. id " ANTED"
298
+ (rtake_while (fun c -> Char. code c < 91 ) " THISisNotWHAtIwANTED" )
299
+ ;;
295
300
296
301
q
297
302
Q. (small_list small_string)
You can’t perform that action at this time.
0 commit comments