1 files changed, 5 insertions, 5 deletions
diff --git a/tests/embed.test b/tests/embed.test
index 92b8be9..8a61baf 100644
--- a/tests/embed.test
+++ b/tests/embed.test
@@ -10,7 +10,7 @@ eval tcltest::configure $argv
 tcltest::loadTestedCommands
 
 
-test embed-1.1 {TkpUseWindow procedure, bad window identifier} -setup {
+test embed-1.1 {Tk_UseWindow procedure, bad window identifier} -setup {
     deleteWindows
 } -body {
     toplevel .t -use xyz
@@ -36,7 +36,7 @@ test embed-1.3 {CreateFrame procedure, both -use and -container is invalid} -set
 } -returnCodes error -result {windows cannot have both the -use and the -container option set}
 
 # testing window embedding for win platforms
-test embed-1.4.win {TkpUseWindow procedure, -container must be set} -constraints {
+test embed-1.4.win {Tk_UseWindow procedure, -container must be set} -constraints {
 	win
 } -setup {
     deleteWindows
@@ -47,7 +47,7 @@ test embed-1.4.win {TkpUseWindow procedure, -container must be set} -constraints
     deleteWindows
 } -returnCodes error -result {the window to use is not a Tk container}
 # testing window embedding for win platforms
-test embed-1.5.win {TkpUseWindow procedure, -container must be set} -constraints {
+test embed-1.5.win {Tk_UseWindow procedure, -container must be set} -constraints {
 	win
 } -setup {
     deleteWindows
@@ -59,7 +59,7 @@ test embed-1.5.win {TkpUseWindow procedure, -container must be set} -constraints
 } -returnCodes error -result {the window to use is not a Tk container}
 
 # testing window embedding for other than win platforms
-test embed-1.4.nonwin {TkpUseWindow procedure, -container must be set} -constraints {
+test embed-1.4.nonwin {Tk_UseWindow procedure, -container must be set} -constraints {
 	nonwin
 } -setup {
     deleteWindows
@@ -70,7 +70,7 @@ test embed-1.4.nonwin {TkpUseWindow procedure, -container must be set} -constrai
     deleteWindows
 } -returnCodes error -result {window ".container" doesn't have -container option set}
 # testing window embedding for other than win platforms
-test embed-1.5.nonwin {TkpUseWindow procedure, -container must be set} -constraints {
+test embed-1.5.nonwin {Tk_UseWindow procedure, -container must be set} -constraints {
 	nonwin
 } -setup {
     deleteWindows