When TK_NO_DEPRECATED is defined or when Tk is compiled with Tcl 9 headers, no longer support the oldImageType.

1 files changed, 4 insertions, 2 deletions

diff --git a/tests/image.test b/tests/image.test
index da65a66..ee3f3d9 100644
--- a/tests/image.test
+++ b/tests/image.test
@@ -308,11 +308,13 @@ test image-5.7 {Tk_ImageCmd procedure, "type" option} -constraints {
 } -returnCodes error -result {image "myimage" doesn't exist}
 
 
-test image-6.1 {Tk_ImageCmd procedure, "types" option} -body {
+test image-6.1 {Tk_ImageCmd procedure, "types" option} -constraints {
+    testImageType
+} -body {
     image types x
 } -returnCodes error -result {wrong # args: should be "image types"}
 test image-6.2 {Tk_ImageCmd procedure, "types" option} -constraints {
-    testImageType
+    testOldImageType
 } -body {
     lsort [image types]
 } -result {bitmap oldtest photo test}