Index: tests/contains.test
===================================================================
diff -u -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 -rf5bba52ec263179be12a65a00a7d4f2282c445d2
--- tests/contains.test	(.../contains.test)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
+++ tests/contains.test	(.../contains.test)	(revision f5bba52ec263179be12a65a00a7d4f2282c445d2)
@@ -145,6 +145,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: