tests/case-preservation-test.lisp

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;;                                                                  ;;;
   3 ;;; Free Software published under an MIT-like license. See LICENSE   ;;;
   4 ;;;                                                                  ;;;
   5 ;;; Copyright (c) 2013 Google, Inc.  All rights reserved.            ;;;
   6 ;;;                                                                  ;;;
   7 ;;; Original author: Alejandro Sedeño                                ;;;
   8 ;;;                                                                  ;;;
   9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10
  11 (in-package "PROTO-TEST")
  12
  13 (define-test case-preservation-test ()
  14   (let ((service (proto:find-service :case-preservation "QUUXService")))
  15     (assert-true service)
  16     ;; We're reaching into the implementation to verify the objects have
  17     ;; been properly constructed.
  18     (let ((method (proto-impl:find-method service "QUUXMethod")))
  19       (assert-true method)
  20       (assert-equal (proto-input-name method) "QUUXRequest"
  21                     :test #'string=)
  22       (assert-equal (proto-output-name method) "QUUXResponse"
  23                     :test #'string=))))
  24
  25 (register-test 'case-preservation-test)