Redis client library for Tcl: 014-utf8.test at [f90952f00b]

File test/014-utf8.test artifact b787eb2ffc part of check-in f90952f00b

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
# 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"