Index: tests/properties.test =================================================================== diff -u -rfc11b2380eef48346410636908936e9468c74807 -r13ac2740ff99a0438d547250401ac9ed981c58bf --- tests/properties.test (.../properties.test) (revision fc11b2380eef48346410636908936e9468c74807) +++ tests/properties.test (.../properties.test) (revision 13ac2740ff99a0438d547250401ac9ed981c58bf) @@ -1222,6 +1222,27 @@ # +# See bug report at: +# https://groups.google.com/forum/#!topic/comp.lang.tcl/F9cn_Ah4js4 +# +nx::test case bug-clt-configurable-false-cget { + nx::Class create D; + D property -configurable false "nix"; + D create d; + # Provide for a shared parameter name Tcl_Obj, to enable intrep + # sharing between "cget" and "configure". The original bug report + # ran into the critical path using an interactive shell, with intrep + # sharing occurring via literals. + set flag "-nix"; + catch {d cget $flag} + catch {d configure $flag anix} msg opts + ? [list string match "invalid non-positional argument '-nix', *" [dict get $opts -errorinfo]] 1 +} + + + + +# # Local variables: # mode: tcl # tcl-indent-level: 2