anchor.diff:  ;;; Mock classes
   
   (defclass test-connection (connection)
  -  ((response-func :initarg response-func 
  +  ((response-func :initarg response-func
                     :initform nil
                     :accessor response-func)
      (label :initarg :label  :initform "test"
  
positive.code:                                pattern)))))
  
  
  (defun test-request-response (&key (orb *the-orb*) 
                                         request-type request response)
    (setup-test-in)
    (let ((request-version 
           (if (eql (car request) :version)
             (progn (pop request) (pop request))
             giop-1-0)))
      (test-write-request :orb orb :message request :message-type request-type 
                          :giop-version request-version)
      (orb-work orb nil t)
      (test-read-response :orb orb :message response)))
negative.code:              (list
                :msgtype msgtype
                :version version
                :service-context (unmarshal-service-context buffer)
                :request-id (unmarshal-ulong buffer)
                :response (unmarshal-octet buffer)
                :object-key (unmarshal-osequence buffer)
  