diff options
Diffstat (limited to 'test/text.tm')
| -rw-r--r-- | test/text.tm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/text.tm b/test/text.tm index 0a34e2a0..450d8ae9 100644 --- a/test/text.tm +++ b/test/text.tm @@ -256,3 +256,20 @@ func main(): >> "Abc":repeat(3) = "AbcAbcAbc" + + do: + !! Testing concatenation-stability: + >> ab := Text.from_codepoint_names(["LATIN SMALL LETTER E", "COMBINING VERTICAL LINE BELOW"]) + >> ab:codepoint_names() + = ["LATIN SMALL LETTER E", "COMBINING VERTICAL LINE BELOW"] + >> ab.length + = 1 + + >> a := Text.from_codepoint_names(["LATIN SMALL LETTER E"]) + >> b := Text.from_codepoint_names(["COMBINING VERTICAL LINE BELOW"]) + >> (a++b):codepoint_names() + = ["LATIN SMALL LETTER E", "COMBINING VERTICAL LINE BELOW"] + >> (a++b) == ab + = yes + >> (a++b).length + = 1 |