Artifact b787eb2ffc7860f0b2d58fd6ded1452cece3f97c2b809ea67e0fdfbd12a8409c:

• File test/014-utf8.test — part of check-in [f90952f00b] at 2024-04-22 12:36:34 on branch trunk — Add a test for [70c08b5b5d] (user: gahr size: 400)

# vim: ft=tcl ts=4 sw=4 expandtab:

tcltest::loadTestedCommands

tcltest::test utf8-1.1 {store and retrieve ghost} -setup {
    set r [retcl new]
} -body {
    set result {}
    foreach ghost [list wooo \U0001F47B] {
        $r -sync set ghost [encoding convertto utf-8 $ghost]
        lappend result [encoding convertfrom utf-8 [$r -sync get ghost]]
    }
    set result
} -result "wooo \U0001F47B"