1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;;; Free Software published under an MIT-like license. See LICENSE ;;;
5 ;;; Copyright (c) 2013 Google, Inc. All rights reserved. ;;;
7 ;;; Original author: Alejandro SedeƱo ;;;
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11 (in-package "PROTO-TEST")
13 (define-test case-preservation-test ()
14 (let ((service (proto:find-service 'protobuf-case-preservation-unittest::case-preservation
17 ;; We're reaching into the implementation to verify the objects have
18 ;; been properly constructed.
19 (let ((method (proto-impl:find-method service "QUUXMethod")))
21 (assert-equal (proto-input-name method) "QUUXRequest"
23 (assert-equal (proto-output-name method) "QUUXResponse"
26 (register-test 'case-preservation-test)