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:          (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."))
  
negative.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))
  