anchor.diff:          (ensure-equalp (op:reference_to_id user-poa obj) oid ))))
   
   
  +  (define-test "Identity mapping"
  +    (let ((ref (op:create_reference root-poa "IDL:foo:1.0")))
  +      (let ((id (op:reference_to_id root-poa ref)))
  +        (ensure-typep id 'sequence)
  +        (ensure (every (lambda (item) (typep item 'CORBA:Octet)) id)))))
  +
  +
  +;;;; Adapter Activator
     (define-test "Adapter Activator"
       (let* ((poa (op:create_POA root-poa "p" nil
                                  (list (op:create_request_processing_policy root-poa :use_servant_manager)
  
positive.code:                         :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)))
  
  
    (define-test "Hold and activate"
      (let* ((poa-1 (op:create_POA root-poa "a1" nil nil))
  
negative.code:          (ensure-exception   ; only set once
            (op:set_servant_manager poa manager)
             CORBA:BAD_INV_ORDER 'op:minor (std-minor 6)))))
  
  
    (define-test "get_servant"
      (handler-case (progn (op:get_servant root-poa)
                        (ensure nil "get_servant on Wrong Policy POA."))
  