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)

0000: 23 20 76 69 6d 3a 20 66 74 3d 74 63 6c 20 74 73  # vim: ft=tcl ts
0010: 3d 34 20 73 77 3d 34 20 65 78 70 61 6e 64 74 61  =4 sw=4 expandta
0020: 62 3a 0a 0a 74 63 6c 74 65 73 74 3a 3a 6c 6f 61  b:..tcltest::loa
0030: 64 54 65 73 74 65 64 43 6f 6d 6d 61 6e 64 73 0a  dTestedCommands.
0040: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 75  .tcltest::test u
0050: 74 66 38 2d 31 2e 31 20 7b 73 74 6f 72 65 20 61  tf8-1.1 {store a
0060: 6e 64 20 72 65 74 72 69 65 76 65 20 67 68 6f 73  nd retrieve ghos
0070: 74 7d 20 2d 73 65 74 75 70 20 7b 0a 20 20 20 20  t} -setup {.    
0080: 73 65 74 20 72 20 5b 72 65 74 63 6c 20 6e 65 77  set r [retcl new
0090: 5d 0a 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 20 20  ].} -body {.    
00a0: 73 65 74 20 72 65 73 75 6c 74 20 7b 7d 0a 20 20  set result {}.  
00b0: 20 20 66 6f 72 65 61 63 68 20 67 68 6f 73 74 20    foreach ghost 
00c0: 5b 6c 69 73 74 20 77 6f 6f 6f 20 5c 55 30 30 30  [list wooo \U000
00d0: 31 46 34 37 42 5d 20 7b 0a 20 20 20 20 20 20 20  1F47B] {.       
00e0: 20 24 72 20 2d 73 79 6e 63 20 73 65 74 20 67 68   $r -sync set gh
00f0: 6f 73 74 20 5b 65 6e 63 6f 64 69 6e 67 20 63 6f  ost [encoding co
0100: 6e 76 65 72 74 74 6f 20 75 74 66 2d 38 20 24 67  nvertto utf-8 $g
0110: 68 6f 73 74 5d 0a 20 20 20 20 20 20 20 20 6c 61  host].        la
0120: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 6e  ppend result [en
0130: 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74 66 72  coding convertfr
0140: 6f 6d 20 75 74 66 2d 38 20 5b 24 72 20 2d 73 79  om utf-8 [$r -sy
0150: 6e 63 20 67 65 74 20 67 68 6f 73 74 5d 5d 0a 20  nc get ghost]]. 
0160: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 72 65 73     }.    set res
0170: 75 6c 74 0a 7d 20 2d 72 65 73 75 6c 74 20 22 77  ult.} -result "w
0180: 6f 6f 6f 20 5c 55 30 30 30 31 46 34 37 42 22 0a  ooo \U0001F47B".