blob: 95316ad3aa952a80cd71c2dc36376df57e76a8c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
open Utest
let log_out_ch = open_log_out_ch __FILE__
let unicode0 = mk_eq_test "clib-unicode0"
"split_at_first_letter, first letter is character"
None
(Unicode.split_at_first_letter "ident")
let unicode1 = mk_eq_test "clib-unicode1"
"split_at_first_letter, first letter not character"
(Some ("__","ident"))
(Unicode.split_at_first_letter "__ident")
let tests = [ unicode0; unicode1 ]
let _ = run_tests __FILE__ log_out_ch tests
|