anchor.diff:           (qualified-method-name (grpc::get-qualified-method-name method-descriptor)))
       (assert-true (string= expected-qualified-method-name qualified-method-name))))
   
  -(deftest test-start-call-unary-rpc ()
  +(deftest test-start-call-unary-rpc (protobuf-integration-suite)
     "Validate the start-call method properly handles the scenario in which a single request is sent to
   the server and a single response is returned."
     (let ((request (test-proto:make-hello-request :name "Neo"))
  -        (response (test-proto:make-hello-reply :message "Hello, Neo"))
  +        (expected-response (test-proto:make-hello-reply :message "Hello, Neo"))
           (method (make-instance 'cl-protobufs:method-descriptor
                                  :service-name "Greeter"
                                  :name "SayHello"
  
positive.code:                                             (mapcar #'cl-protobufs:serialize-to-bytes request))
                               (assert-eq server-stream t)
                               (assert-eq client-stream t)
                               (loop for message in response
                                     collect (list (cl-protobufs:serialize-to-bytes message)))))
        (assert-equalp (grpc::start-call "channel" method request nil) response))))
  
negative.code:                                             (cl-protobufs:serialize-to-bytes request))
                               (assert-eq server-stream t)
                               (assert-eq client-stream nil)
                               (loop for message in expected-response
                                     collect (list (cl-protobufs:serialize-to-bytes message)))))
        (let ((actual-response (grpc::start-call "channel" method request nil)))
          (assert-equalp actual-response expected-response)))))
  
  (deftest test-start-call-client-streaming-rpc (protobuf-integration-suite)
    "Validate the start-call method properly handles the scenario in which a stream of requests are
  sent to the server and a single response is returned."
    (let ((request (list (test-proto:make-hello-request :name "Neo")
                         (test-proto:make-hello-request :name "Morpheus")
                         (test-proto:make-hello-request :name "Trinity")))
          (expected-response (test-proto:make-hello-reply :message "Hello, Neo Morpheus Trinity"))
          (method (make-instance 'cl-protobufs:method-descriptor
                                 :service-name "Greeter"
                                 :name "SayHelloClientStream"
  