diff options
| author |  fab <fabrice.leal.ch@gmail.com> | 2018-12-06 21:59:47 +0000 |
|---|---|---|
| committer | fab <fabrice.leal.ch@gmail.com> | 2018-12-06 21:59:47 +0000 |
| commit | 8e998f7d96d3236e182ea54cc077f87538651af3 (patch) | |
| tree | 87cc68dc75d1d087591fa0f4da97a9be2147e792 /tests | |
| parent | 0d28aca9aebaf8aab32c96f8477d7121ac16b4e9 (diff) | |
ord
Diffstat (limited to 'tests')
| -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 |