anchor.diff:                           'op:absolute_name (format nil "::~A" new-name)
                            'op:type (pattern 'op:name new-name))
           (setf (op:name module) "xmod")
  -        (ensure-pattern* sub-obj 'op:absolute_name "::xmod::foo"))))
  +        (ensure-pattern* sub-obj 'op:absolute_name "::xmod::foo"))
  +
  +      ;; Destroy
  +      (op:destroy sub-obj)
  +      (ensure-pattern (op:contents module :dk_all t) (sequence-pattern))
  +      (ensure (null (op:lookup_id repository sub-id)))))
  +  
     
     
     (define-test "Contained Move" ()
  
positive.code:   (define-test "Container"
      (let* ((module (op:create_module repository "my-module" "mod" "1.1"))
             (obj (op:create_enum module "IDL:mod/foo:1.0" "my-enum" "1.0" '("fie" "fum")))
             (obj2 (op:create_enum repository "IDL:foo:1.0" "foo" "1.0" '("fie" "fum"))))
        (ensure-repository
         "mod" module   "foo" obj2   "mod::my-enum" obj   "::mod::my-enum" obj 
         "mod" (def-pattern :dk_module
                 'identity (repository-pattern "my-enum" obj  
                                               "::mod::my-enum" obj "::foo" obj2 )))
        (ensure-equalp (op:lookup module "fie") nil)))
    
    
    (define-test "StructDef" 
  
negative.code:       (setf (op:element_type_def obj) a-string)
        (ensure-typecode (op:element_type obj) :tk_string)
        (setf (op:bound obj) 10)
        (ensure-typecode (op:type obj) (create-sequence-tc 10 CORBA:tc_string))
        (op:destroy obj)))
    
    
    (define-test "ArrayDef"
  