Bug [e778e3f804]. Fix error message for invalid profile name.

3 files changed, 13 insertions, 1 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]
diff --git a/tests/io.test b/tests/io.test
index 66dee7d..836a9b8 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -7622,7 +7622,7 @@ test io-52.20 {TclCopyChannel & encodings} -setup {
     set out [open $path(kyrillic.txt) w]
 
     # Using "-encoding ascii" means reading the "Á" gives an error
-    fconfigure $in  -encoding ascii -strictencoding 1
+    fconfigure $in  -encoding ascii -encodingprofile strict
     fconfigure $out -encoding koi8-r -translation lf
 
     fcopy $in $out
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 8c9d870..23cd67e 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -390,6 +390,10 @@ test iocmd-8.22 {fconfigure command / -nocomplainencoding 0, no error if -strict
 } -result 0
 
 
+test iocmd-8.21 {fconfigure -encodingprofile badprofile} -body {
+    fconfigure stdin -encodingprofile froboz
+} -returnCodes error -result {bad profile name "froboz": must be replace, strict, or tcl8}
+
 test iocmd-9.1 {eof command} {
     list [catch {eof} msg] $msg $::errorCode
 } {1 {wrong # args: should be "eof channelId"} {TCL WRONGARGS}}