Make the new profile tcl tests work with tcl 8.3

ticket: 6761

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@24282 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/util/profile/prof_test1 b/src/util/profile/prof_test1
index 27ecbb2526b2543d83ff474b641215cb4775cde2..5f8f13b8dc47cf33289903902f5e6d88d099b69c 100644 (file)
--- a/src/util/profile/prof_test1
+++ b/src/util/profile/prof_test1
@@ -156,7 +156,7 @@ proc test4 {} {
     exec echo "include does-not-exist" >$wd/testinc.ini
     catch { profile_init_path $wd/testinc.ini } err
     if $verbose { puts "Got error message $err" }
-    if { $err ne "Included profile file could not be read" } {
+    if ![string equal $err "Included profile file could not be read"] {
        puts stderr "Error: test4: Did not get expected error when including nonexistent file."
        exit 1
     }
@@ -166,7 +166,7 @@ proc test4 {} {
     exec echo "includedir does-not-exist" >$wd/testinc.ini
     catch { profile_init_path $wd/testinc.ini } err
     if $verbose { puts "Got error message $err" }
-    if { $err ne "Included profile directory could not be read" } {
+    if ![string equal $err "Included profile directory could not be read"] {
        puts stderr "Error: test4: Did not get expected error when including nonexistent directory."
        exit 1
     }
@@ -177,7 +177,7 @@ proc test4 {} {
     set p [profile_init_path $wd/testinc.ini]
     set x [profile_get_values $p {{test section 1} bar}]
     if $verbose { puts "Read $x from included profile" }
-    if { [lindex $x 0] ne "foo" } {
+    if ![string equal [lindex $x 0] "foo"] {
        puts stderr "Error: test4: Did not get expected result from included profile."
        exit 1
     }
@@ -194,7 +194,7 @@ proc test4 {} {
     set p [profile_init_path $wd/testinc.ini]
     set x [profile_get_values $p {{test section 1} bar}]
     if $verbose { puts "Read $x from included directory" }
-    if { $x ne "foo foo" } {
+    if ![string equal $x "foo foo"] {
        puts stderr, "Error: test4: Did not get expected result from included directory."
        exit 1
     }