Index: tests/contains.test
===================================================================
diff -u -r1790b67dd3db1bcad91a31d97e97509361825f23 -ra2c877c7dd15b66e27dd85c9c17744670474d132
--- tests/contains.test	(.../contains.test)	(revision 1790b67dd3db1bcad91a31d97e97509361825f23)
+++ tests/contains.test	(.../contains.test)	(revision a2c877c7dd15b66e27dd85c9c17744670474d132)
@@ -171,6 +171,21 @@
 C1 create c1
 C1 create c1
 
+c1 destroy
+C1 destroy
+
+
+? {nx::Object create o} ::o
+? {o contains { nx::Object create p}} ::o::p
+? {catch {o contains { return -code error -errorcode {FOO bar baz} somethingwrong}} errorMsg} 1
+set ::errorinfo $::errorInfo
+set ::errorcode $::errorCode
+? {set ::errorMsg} {somethingwrong}
+? {set ::errorinfo} {somethingwrong
+    while executing
+"o contains { return -code error -errorcode {FOO bar baz} somethingwrong}"}
+? {set ::errorcode} {FOO bar baz}
+
 puts stderr "====EXIT [info script]"
 #
 # Local variables: