summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2024-02-07 16:59:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2024-02-07 16:59:30 (GMT)
commit8898237b3b4fab799f16012963ba0c017474ff1e (patch)
tree073c7be94b971c0ee26b3d7be3450002b0779cd0 /tests
parented243429255787ebabfa9bfd2bb1da480955c973 (diff)
parenta57f0adecb810b7124ac5cb9b0780224c3b272e6 (diff)
downloadtcl-8898237b3b4fab799f16012963ba0c017474ff1e.zip
tcl-8898237b3b4fab799f16012963ba0c017474ff1e.tar.gz
tcl-8898237b3b4fab799f16012963ba0c017474ff1e.tar.bz2
merge 8.6
Diffstat (limited to 'tests')
-rw-r--r--tests/history.test28
1 files changed, 14 insertions, 14 deletions
diff --git a/tests/history.test b/tests/history.test
index 557c856..68f3c94 100644
--- a/tests/history.test
+++ b/tests/history.test
@@ -54,10 +54,10 @@ test history-1.7 {event option} history {
test history-1.8 {event option} history {history event} \
{set b [format {A test %s} string]}
test history-1.9 {event option} history {catch {history event 123 456} msg} 1
-test history-1.10 {event option} history {
+test history-1.10 {event option} -constraints history -body {
catch {history event 123 456} msg
set msg
-} {wrong # args: should be "history event ?event?"}
+} -match glob -result {wrong # args: should be "*history event \?event\?"}
# "history redo"
@@ -72,10 +72,10 @@ if {[testConstraint history]} {
}
test history-2.2 {redo option} history {set b} {A test string}
test history-2.3 {redo option} history {catch {history redo -3 -4}} 1
-test history-2.4 {redo option} history {
+test history-2.4 {redo option} -constraints history -body {
catch {history redo -3 -4} msg
set msg
-} {wrong # args: should be "history redo ?event?"}
+} -match glob -result {wrong # args: should be "*history redo \?event\?"}
# "history add"
@@ -102,10 +102,10 @@ if {[testConstraint history]} {
}
test history-3.7 {add option} history {set a} 555
test history-3.8 {add option} history {catch {history add "set a 666" e f} msg} 1
-test history-3.9 {add option} history {
+test history-3.9 {add option} -constraints history -body {
catch {history add "set a 666" e f} msg
set msg
-} {wrong # args: should be "history add event ?exec?"}
+} -match glob -result {wrong # args: should be "*history add event \?exec\?"}
# "history change"
@@ -121,10 +121,10 @@ test history-4.2 {change option} history {history e} "Another test"
test history-4.3 {change option} history {history event [expr {[history n]-1}]} \
"A test value"
test history-4.4 {change option} history {catch {history change Foo 4 10}} 1
-test history-4.5 {change option} history {
+test history-4.5 {change option} -constraints history -body {
catch {history change Foo 4 10} msg
set msg
-} {wrong # args: should be "history change newValue ?event?"}
+} -match glob -result {wrong # args: should be "*history change newValue \?event\?"}
test history-4.6 {change option} history {
catch {history change Foo [expr {[history n]-4}]}
} 1
@@ -155,10 +155,10 @@ test history-5.2 {info option} history {history i 2} [format {%6d set b 1234
b
c}} [expr {$num+1}] [expr {$num+2}]]
test history-5.3 {info option} history {catch {history i 2 3}} 1
-test history-5.4 {info option} history {
+test history-5.4 {info option} -constraints history -body {
catch {history i 2 3} msg
set msg
-} {wrong # args: should be "history info ?count?"}
+} -match glob -result {wrong # args: should be "*history info \?count\?"}
test history-5.5 {info option} history {history} [format {%6d set a {b
c d e}
%6d set b 1234
@@ -192,10 +192,10 @@ test history-6.7 {keep option} history {history event -3} {}
test history-6.8 {keep option} history {history event -4} {}
test history-6.9 {keep option} history {catch {history event -5}} 1
test history-6.10 {keep option} history {catch {history keep 4 6}} 1
-test history-6.11 {keep option} history {
+test history-6.11 {keep option} -constraints history -body {
catch {history keep 4 6} msg
set msg
-} {wrong # args: should be "history keep ?count?"}
+} -match glob -result {wrong # args: should be "*history keep \?count\?"}
test history-6.12 {keep option} history {catch {history keep}} 0
test history-6.13 {keep option} history {
history keep
@@ -220,10 +220,10 @@ if {[testConstraint history]} {
test history-7.1 {nextid option} history {history event} "Testing"
test history-7.2 {nextid option} history {history next} [expr {$num+2}]
test history-7.3 {nextid option} history {catch {history nextid garbage}} 1
-test history-7.4 {nextid option} history {
+test history-7.4 {nextid option} -constraints history -body {
catch {history nextid garbage} msg
set msg
-} {wrong # args: should be "history nextid"}
+} -match glob -result {wrong # args: should be "*history nextid"}
# "history clear"