diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-02 06:41:39 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-02 06:41:39 (GMT) |
commit | 44fdf09f7bf8a1e0ae30d1eaea83d5cd1d2fdca2 (patch) | |
tree | 06fec4df4647eeed2921e41accf58eed100d556f /tests/encoding.test | |
parent | b2cdedcec2bbb94929cef675635c5864db8db8de (diff) | |
download | tcl-44fdf09f7bf8a1e0ae30d1eaea83d5cd1d2fdca2.zip tcl-44fdf09f7bf8a1e0ae30d1eaea83d5cd1d2fdca2.tar.gz tcl-44fdf09f7bf8a1e0ae30d1eaea83d5cd1d2fdca2.tar.bz2 |
Bug [e778e3f804]. Fix error message for invalid profile name.
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 800d93b..a51b6c0 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -105,6 +105,14 @@ test encoding-3.2 {Tcl_GetEncodingName, non-null} -setup { } -cleanup { fconfigure stdout -encoding $old } -result {jis0208} +test encoding-3.3 {fconfigure -encodingprofile} -setup { + set old [fconfigure stdout -encodingprofile] +} -body { + fconfigure stdout -encodingprofile replace + fconfigure stdout -encodingprofile +} -cleanup { + fconfigure stdout -encodingprofile $old +} -result replace test encoding-4.1 {Tcl_GetEncodingNames} -constraints {testencoding} -setup { cd [makeDirectory tmp] |