anchor.diff:          (OMG.ORG/PORTABLESERVER:POA/ADAPTERNONEXISTENT ()))
         (ensure-eql (gethash id1 *poa-map*) nil)
         (ensure-eql (gethash id2 *poa-map*) nil)
  +      (ensure (not (member poa1 (managed-poas (op:the_poamanager poa1))))
  +              "UnRegistered with the manger")
         (ensure-exception
          (op:create_POA poa1 "p9" nil nil)
          CORBA:BAD_INV_ORDER 'op:minor (std-minor 17))))
  
positive.code: 
  (defclass null-servant (portableserver:servant) ())
  (defmethod interface-name ((self null-servant)) 'CORBA:Object)
  
  (define-test-suite "POA Test"
    (variables 
  
negative.code:             (ensure-equalp (proxy-id obj2) id)))
          (ensure-equalp (op:reference_to_id user-poa obj) oid ))))
  
  
    (define-test "Adapter Activator"
      (let* ((poa (op:create_POA root-poa "p" nil
                                 (list (op:create_request_processing_policy root-poa :use_servant_manager)
                                       (op:create_servant_retention_policy root-poa :retain))))
             (my-oid '(18))
             (activator (make-instance 'mock-activator
                          :adapter poa
                          :expected-oid my-oid )))
        (op:set_servant_manager poa activator)
        (op:activate (omg.org/features: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 (omg.org/features:the_poamanager poa) t t)
        (ensure-eql (slot-value activator 'etheralize-called) 1)))
  
  #| end suite |# )
  