anchor.diff:                                         root-poa :use_default_servant)))))
         (ensure-exception (op:get_servant poa)
                           Portableserver:POA/Noservant)))
  +
   
     (define-test "reference creation"
       (let ((id "IDL:myObj:1.0")
  
positive.code: 
        (let ((obj (op:create_reference_with_id poa (string-to-oid "Foo") "IDL:if:1.0")))
          (ensure-typep obj 'CORBA:Proxy))))
    
    (define-test "Destroy POA"
      (let* ((poa1 (op:create_poa root-poa "p1" nil nil))
             (id1 (poa-poaid poa1))
  
negative.code:                         :adapter poa
                          :expected-oid my-oid )))
        (op:set_servant_manager poa activator)
        (op:activate (op:the_poamanager poa))
        (test-poa-invoke poa :operation "_non_existent" :oid my-oid :args '())
        ;; pattern for etheralize arguments
        (setf (slot-value activator 'etheralize-verifier)
              (sexp-pattern
               `(,(sequence-pattern 18) ,poa ,(slot-value activator 'created-servant) t t)))
        (op:deactivate (op:the_poamanager poa) t t)
        (ensure-eql (slot-value activator 'etheralize-called) 1)
        ;; Again, but with destroy
        (setq poa (op:create_POA root-poa "p2" nil
                                 (list (op:create_request_processing_policy root-poa :use_servant_manager)
                                       (op:create_servant_retention_policy root-poa :retain))))
        (setf (slot-value activator 'adapter) poa)
        (op:set_servant_manager poa activator)
        (op:activate (op:the_poamanager poa))
        (test-poa-invoke poa :operation "_non_existent" :oid my-oid :args '())
        ;; pattern for etheralize arguments
        (setf (slot-value activator 'etheralize-verifier)
              (sexp-pattern
               `(,(sequence-pattern 18) ,poa ,(slot-value activator 'created-servant) t t)))
        (op:destroy poa t t)
        (ensure-eql (slot-value activator 'etheralize-called) 2)))
  
  
  ;;;; State changes
  
    (define-test "Hold and activate"
      (let* ((poa-1 (op:create_POA root-poa "a1" nil nil))
  