1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
modules/clock/iso8601.test | 2 +-
modules/multiplexer/multiplexer.test | 2 +-
modules/snit/snit.test | 4 ++--
modules/struct/sets.testsuite | 2 +-
modules/uev/uevent.test | 2 +-
5 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/modules/clock/iso8601.test b/modules/clock/iso8601.test
index 85d6416..f1b478e 100644
--- a/modules/clock/iso8601.test
+++ b/modules/clock/iso8601.test
@@ -26,7 +26,7 @@ test clock-iso8601-1.0.1 {parse_date wrong\#args} -constraints {tcl8.6plus} -bod
test clock-iso8601-1.1 {parse_date, bad option} -body {
clock::iso8601 parse_date 1994-11-05 -foo x
-} -returnCodes error -result {bad switch "-foo", must be -base, -format, -gmt, -locale or -timezone}
+} -returnCodes error -result {bad option "-foo", must be -base, -format, -gmt, -locale or -timezone}
# NOTE: While listed as legal, -format is NOT. This is because the
# command simply hands off to clock scan, and we are seeing its error
diff --git a/modules/multiplexer/multiplexer.test b/modules/multiplexer/multiplexer.test
index d778253..e5dfeff 100644
--- a/modules/multiplexer/multiplexer.test
+++ b/modules/multiplexer/multiplexer.test
@@ -189,7 +189,7 @@ proc DenyAccessFilter {chan clientaddress clientport} {
return -1
}
-test multiplexer-5.2 {add access filter which denies access} {
+test multiplexer-5.2 {add access filter which denies access} {broken without network} {
set ::forever {}
set mp [multiplexer::create]
${mp}::Init 37465
diff --git a/modules/snit/snit.test b/modules/snit/snit.test
index 66d7bd1..00c0769 100644
--- a/modules/snit/snit.test
+++ b/modules/snit/snit.test
@@ -783,7 +783,7 @@ test dtypemethod-1.6a {delegating unknown typemethod to existing typecomponent w
snit2
} -returnCodes {
error
-} -result {unknown or ambiguous subcommand "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}
+} -result {unknown or ambiguous subcommand "foo": must be bytelength, cat, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}
test dtypemethod-1.7 {can't delegate local typemethod: order 1} -body {
type dog {
@@ -3339,7 +3339,7 @@ test dmethod-1.6a {delegating unknown method to existing component with error} -
error
} -cleanup {
dog destroy
-} -result {unknown or ambiguous subcommand "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}
+} -result {unknown or ambiguous subcommand "foo": must be bytelength, cat, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}
test dmethod-1.7 {can't delegate local method: order 1} -body {
type cat {
diff --git a/modules/struct/sets.testsuite b/modules/struct/sets.testsuite
index 29fd3ef..28a9dd6 100644
--- a/modules/struct/sets.testsuite
+++ b/modules/struct/sets.testsuite
@@ -13,7 +13,7 @@
test set-${impl}-1.0 {nothing} {
catch {setop} msg
set msg
-} [Nothing]
+} {wrong # args: should be "::struct::set cmd ?arg ...?"}
test set-${impl}-1.1 {bogus} {
catch {setop foo} msg
diff --git a/modules/uev/uevent.test b/modules/uev/uevent.test
index 91754a7..6544112 100644
--- a/modules/uev/uevent.test
+++ b/modules/uev/uevent.test
@@ -453,7 +453,7 @@ test uevent-10.3 {watch events, watch after bind, glob} {
::uevent::unbind $t4
::uevent::watch::event::remove $tw
set res
-} {bound TAG EX bound TAGX EX bound TAG E bound TAGX E unbound TAGX E unbound TAG E unbound TAGX EX unbound TAG EX}
+} {bound TAGX E bound TAGX EX bound TAG E bound TAG EX unbound TAGX E unbound TAG E unbound TAGX EX unbound TAG EX}
# -------------------------------------------------------------------------
rename EVENT {}
|
GitWeb