Change how protobuf schemas and classes are recorded and found

[cl-protobufs.git] / tests / case-preservation-test.lisp

diff --git a/tests/case-preservation-test.lisp b/tests/case-preservation-test.lisp
index 51ecaf5ea7b1fb8fc7f79d2194bed8f5b480760d..bdd74a65f27f5e2ab2ae48f582bde6ff70916a1d 100644 (file)
--- a/tests/case-preservation-test.lisp
+++ b/tests/case-preservation-test.lisp
@@ -11,7 +11,8 @@
 (in-package "PROTO-TEST")
 
 (define-test case-preservation-test ()
-  (let ((service (proto:find-service :case-preservation "QUUXService")))
+  (let ((service (proto:find-service 'protobuf-case-preservation-unittest::case-preservation
+                                     "QUUXService")))
     (assert-true service)
     ;; We're reaching into the implementation to verify the objects have
     ;; been properly constructed.