blob: 9ae405977b160296c048ede6d664a2786b3ed87c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
open Utest
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__ tests
|