@@ -214,136 +214,150 @@ Mt.from_pair_suites("string_test.ml", /* :: */[
214
214
] ,
215
215
/* :: */ [
216
216
/* tuple */ [
217
- "xsplit " ,
217
+ "File \"string_test.ml\", line 74, characters 2-9 " ,
218
218
( function ( ) {
219
219
return /* Eq */ Block . __ ( 0 , [
220
220
/* :: */ [
221
- "a" ,
222
- /* :: */ [
223
- "b" ,
224
- /* :: */ [
225
- "c" ,
226
- /* [] */ 0
227
- ]
228
- ]
221
+ "aaaa" ,
222
+ /* [] */ 0
229
223
] ,
230
- xsplit ( /* ". " */ 46 , "a.b.c " )
224
+ rev_split_by_char ( /* ", " */ 44 , "aaaa " )
231
225
] ) ;
232
226
} )
233
227
] ,
234
228
/* :: */ [
235
229
/* tuple */ [
236
- "split_empty " ,
230
+ "xsplit " ,
237
231
( function ( ) {
238
232
return /* Eq */ Block . __ ( 0 , [
239
- /* [] */ 0 ,
240
- Ext_string . split ( /* None */ 0 , "" , /* "_" */ 95 )
233
+ /* :: */ [
234
+ "a" ,
235
+ /* :: */ [
236
+ "b" ,
237
+ /* :: */ [
238
+ "c" ,
239
+ /* [] */ 0
240
+ ]
241
+ ]
242
+ ] ,
243
+ xsplit ( /* "." */ 46 , "a.b.c" )
241
244
] ) ;
242
245
} )
243
246
] ,
244
247
/* :: */ [
245
248
/* tuple */ [
246
- "split_empty2 " ,
249
+ "split_empty " ,
247
250
( function ( ) {
248
251
return /* Eq */ Block . __ ( 0 , [
249
- /* :: */ [
250
- "test_unsafe_obj_ffi_ppx.cmi" ,
251
- /* [] */ 0
252
- ] ,
253
- Ext_string . split ( /* Some */ [ /* false */ 0 ] , " test_unsafe_obj_ffi_ppx.cmi" , /* " " */ 32 )
252
+ /* [] */ 0 ,
253
+ Ext_string . split ( /* None */ 0 , "" , /* "_" */ 95 )
254
254
] ) ;
255
255
} )
256
256
] ,
257
257
/* :: */ [
258
258
/* tuple */ [
259
- "rfind " ,
259
+ "split_empty2 " ,
260
260
( function ( ) {
261
261
return /* Eq */ Block . __ ( 0 , [
262
- 7 ,
263
- Ext_string . rfind ( "__" , "__index__js" )
262
+ /* :: */ [
263
+ "test_unsafe_obj_ffi_ppx.cmi" ,
264
+ /* [] */ 0
265
+ ] ,
266
+ Ext_string . split ( /* Some */ [ /* false */ 0 ] , " test_unsafe_obj_ffi_ppx.cmi" , /* " " */ 32 )
264
267
] ) ;
265
268
} )
266
269
] ,
267
270
/* :: */ [
268
271
/* tuple */ [
269
- "rfind_2 " ,
272
+ "rfind " ,
270
273
( function ( ) {
271
274
return /* Eq */ Block . __ ( 0 , [
272
- 0 ,
273
- Ext_string . rfind ( "__" , "__index_js " )
275
+ 7 ,
276
+ Ext_string . rfind ( "__" , "__index__js " )
274
277
] ) ;
275
278
} )
276
279
] ,
277
280
/* :: */ [
278
281
/* tuple */ [
279
- "rfind_3 " ,
282
+ "rfind_2 " ,
280
283
( function ( ) {
281
284
return /* Eq */ Block . __ ( 0 , [
282
- - 1 ,
283
- Ext_string . rfind ( "__" , "_index_js " )
285
+ 0 ,
286
+ Ext_string . rfind ( "__" , "__index_js " )
284
287
] ) ;
285
288
} )
286
289
] ,
287
290
/* :: */ [
288
291
/* tuple */ [
289
- "find " ,
292
+ "rfind_3 " ,
290
293
( function ( ) {
291
294
return /* Eq */ Block . __ ( 0 , [
292
- 0 ,
293
- Ext_string . find ( /* None */ 0 , "__" , "__index__js " )
295
+ - 1 ,
296
+ Ext_string . rfind ( "__" , "_index_js " )
294
297
] ) ;
295
298
} )
296
299
] ,
297
300
/* :: */ [
298
301
/* tuple */ [
299
- "find_2 " ,
302
+ "find " ,
300
303
( function ( ) {
301
304
return /* Eq */ Block . __ ( 0 , [
302
- 6 ,
303
- Ext_string . find ( /* None */ 0 , "__" , "_index__js " )
305
+ 0 ,
306
+ Ext_string . find ( /* None */ 0 , "__" , "__index__js " )
304
307
] ) ;
305
308
} )
306
309
] ,
307
310
/* :: */ [
308
311
/* tuple */ [
309
- "find_3 " ,
312
+ "find_2 " ,
310
313
( function ( ) {
311
314
return /* Eq */ Block . __ ( 0 , [
312
- - 1 ,
313
- Ext_string . find ( /* None */ 0 , "__" , "_index_js " )
315
+ 6 ,
316
+ Ext_string . find ( /* None */ 0 , "__" , "_index__js " )
314
317
] ) ;
315
318
} )
316
319
] ,
317
320
/* :: */ [
318
321
/* tuple */ [
319
- "of_char " ,
322
+ "find_3 " ,
320
323
( function ( ) {
321
324
return /* Eq */ Block . __ ( 0 , [
322
- String . fromCharCode ( /* "0" */ 48 ) ,
323
- Caml_string . bytes_to_string ( Bytes . make ( 1 , /* "0" */ 48 ) )
325
+ - 1 ,
326
+ Ext_string . find ( /* None */ 0 , "__" , "_index_js" )
324
327
] ) ;
325
328
} )
326
329
] ,
327
330
/* :: */ [
328
331
/* tuple */ [
329
- "of_chars " ,
332
+ "of_char " ,
330
333
( function ( ) {
331
334
return /* Eq */ Block . __ ( 0 , [
332
- string_of_chars ( /* :: */ [
333
- /* "0" */ 48 ,
334
- /* :: */ [
335
- /* "1" */ 49 ,
336
- /* :: */ [
337
- /* "2" */ 50 ,
338
- /* [] */ 0
339
- ]
340
- ]
341
- ] ) ,
342
- "012"
335
+ String . fromCharCode ( /* "0" */ 48 ) ,
336
+ Caml_string . bytes_to_string ( Bytes . make ( 1 , /* "0" */ 48 ) )
343
337
] ) ;
344
338
} )
345
339
] ,
346
- /* [] */ 0
340
+ /* :: */ [
341
+ /* tuple */ [
342
+ "of_chars" ,
343
+ ( function ( ) {
344
+ return /* Eq */ Block . __ ( 0 , [
345
+ string_of_chars ( /* :: */ [
346
+ /* "0" */ 48 ,
347
+ /* :: */ [
348
+ /* "1" */ 49 ,
349
+ /* :: */ [
350
+ /* "2" */ 50 ,
351
+ /* [] */ 0
352
+ ]
353
+ ]
354
+ ] ) ,
355
+ "012"
356
+ ] ) ;
357
+ } )
358
+ ] ,
359
+ /* [] */ 0
360
+ ]
347
361
]
348
362
]
349
363
]
0 commit comments