diff options
Diffstat (limited to 'tests/utf8.ur')
| -rw-r--r-- | tests/utf8.ur | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/utf8.ur b/tests/utf8.ur index b1507285..b519b615 100644 --- a/tests/utf8.ur +++ b/tests/utf8.ur @@ -68,6 +68,12 @@ fun highencode () : transaction page = {test_fn_cside (fn _ => strindex "๐๐๐๐" (strsub "๐" 0)) (strindex "๐๐๐๐" (strsub "๐" 0)) "high encode - strindex 3"} {test_fn_cside (fn _ => strindex "๐๐๐๐" (strsub "๐" 0)) (strindex "๐๐๐๐" (strsub "๐" 0)) "high encode - strindex 4"} {test_fn_cside (fn _ => strindex "๐๐๐๐" (strsub "๐" 0)) (strindex "๐๐๐๐" (strsub "๐" 0)) "high encode - strindex 5"} + + {test_fn_cside (fn _ => ord (strsub "๐๐๐๐" 0)) (ord (strsub "๐๐๐๐" 0)) "high encode - ord 1"} + {test_fn_cside (fn _ => ord (strsub "๐๐๐๐" 1)) (ord (strsub "๐๐๐๐" 1)) "high encode - ord 2"} + {test_fn_cside (fn _ => ord (strsub "๐๐๐๐" 2)) (ord (strsub "๐๐๐๐" 2)) "high encode - ord 3"} + {test_fn_cside (fn _ => ord (strsub "๐๐๐๐" 3)) (ord (strsub "๐๐๐๐" 3)) "high encode - ord 4"} + </body> </xml> @@ -471,6 +477,11 @@ fun test_ords () : transaction page = return <xml> <body> {test_fn_cside (ord_of (strsub "a" 0)) (ord_of (strsub "a" 0) ()) "test ord 1"} + {test_fn_cside (ord_of (strsub "รก" 0)) (ord_of (strsub "รก" 0) ()) "test ord 2"} + {test_fn_cside (ord_of (strsub "5" 0)) (ord_of (strsub "5" 0) ()) "test ord 3"} + {test_fn_cside (ord_of (strsub "ใ" 0)) (ord_of (strsub "ใ" 0) ()) "test ord 4"} + {test_fn_cside (ord_of (strsub "ๆผข" 0)) (ord_of (strsub "ๆผข" 0) ()) "test ord 5"} + {test_fn_cside (ord_of (strsub "ใซ" 0)) (ord_of (strsub "ใซ" 0) ()) "test ord 6"} </body> </xml> end |