Attachment #150446 for bug #195863

Lines 27-31 Link Here

(-)modules/clock/iso8601.test (-1 / +1 lines)
27	test clock-iso8601-1.1 {parse_date, bad option} -body {	27	test clock-iso8601-1.1 {parse_date, bad option} -body {
28	clock::iso8601 parse_date 1994-11-05 -foo x	28	clock::iso8601 parse_date 1994-11-05 -foo x
29	} -returnCodes error -result {bad switch "-foo", must be -base, -format, -gmt, -locale or -timezone}	29	} -returnCodes error -match regexp -result {bad (option\|switch) "-foo", must be -base, -format, -gmt, -locale or -timezone}
30		30
31	# NOTE: While listed as legal, -format is NOT. This is because the	31	# NOTE: While listed as legal, -format is NOT. This is because the

Lines 51-59 Link Here

(-)modules/json/json.testsuite (-2 / +2 lines)
51	test json-${impl}-3.0 {many-json2dict, wrong args, not enough} -body {	51	test json-${impl}-3.0 {many-json2dict, wrong args, not enough} -body {
52	json::many-json2dict	52	json::many-json2dict
53	} -returnCodes error -result {wrong # args: should be "json::many-json2dict jsonText ?max?"}	53	} -returnCodes error -match glob -result {wrong # args: should be "json::many?json2dict jsonText ?max?"}
54		54
55	test json-${impl}-3.1 {many-json2dict, wrong args, too many} -body {	55	test json-${impl}-3.1 {many-json2dict, wrong args, too many} -body {
56	json::many-json2dict J M X	56	json::many-json2dict J M X
57	} -returnCodes error -result {wrong # args: should be "json::many-json2dict jsonText ?max?"}	57	} -returnCodes error -match glob -result {wrong # args: should be "json::many?json2dict jsonText ?max?"}
58		58
59	test json-${impl}-3.2 {many-json2dict, bad limit, zero} -body {	59	test json-${impl}-3.2 {many-json2dict, bad limit, zero} -body {

Lines 784-788 Link Here

(-)modules/snit/snit.test (-2 / +2 lines)
784	} -returnCodes {	784	} -returnCodes {
785	error	785	error
786	} -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}	786	} -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}
787		787
788	test dtypemethod-1.7 {can't delegate local typemethod: order 1} -body {	788	test dtypemethod-1.7 {can't delegate local typemethod: order 1} -body {
Lines 3340-3344 Link Here
3340	} -cleanup {	3340	} -cleanup {
3341	dog destroy	3341	dog destroy
3342	} -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}	3342	} -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}
3343		3343
3344	test dmethod-1.7 {can't delegate local method: order 1} -body {	3344	test dmethod-1.7 {can't delegate local method: order 1} -body {

Lines 87-91 Link Here

(-)modules/struct/sets.test (-1 / +1 lines)
87	}	87	}
88	tcl {	88	tcl {
89	if {[package vsatisfies [package present Tcl] 8.5]} {	89	if {$tcl_version == 8.5} {
90	# In 8.5 head the alias itself is reported, not what it	90	# In 8.5 head the alias itself is reported, not what it
91	# resolved to.	91	# resolved to.

Return to bug 195863