summaryrefslogtreecommitdiffstats
path: root/tests/pkgMkIndex.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/pkgMkIndex.test')
-rw-r--r--tests/pkgMkIndex.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index 8121377..ad328f8 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -315,7 +315,7 @@ namespace eval pkg2 {
namespace export p2-1
}
proc pkg2::p2-1 { num } {
- return [expr $num * 2]
+ return [expr {$num * 2}]
}
} [file join pkg pkg2_a.tcl]
@@ -328,7 +328,7 @@ namespace eval pkg2 {
namespace export p2-2
}
proc pkg2::p2-2 { num } {
- return [expr $num * 3]
+ return [expr {$num * 3}]
}
} [file join pkg pkg2_b.tcl]
@@ -409,10 +409,10 @@ namespace eval pkg3 {
namespace export p3-1 p3-2
}
proc pkg3::p3-1 { num } {
- return {[expr $num * 2]}
+ return {[expr {$num * 2}]}
}
proc pkg3::p3-2 { num } {
- return {[expr $num * 3]}
+ return {[expr {$num * 3}]}
}
} [file join pkg pkg3.tcl]
@@ -520,10 +520,10 @@ namespace eval circ2 {
namespace export c2-1 c2-2
}
proc circ2::c2-1 { num } {
- return [expr $num * [circ3::c3-1]]
+ return [expr {$num * [circ3::c3-1]}]
}
proc circ2::c2-2 { num } {
- return [expr $num * [circ3::c3-2]]
+ return [expr {$num * [circ3::c3-2]}]
}
} [file join pkg circ2.tcl]