oclosure-tests.el: Adjust to new `interpreted-function` type

* test/lisp/emacs-lisp/oclosure-tests.el (oclosure-test-gen): Adjust to
new `interpreted-function` type.
(oclosure-test): Tweak accordingly.

(cherry picked from commit 7c835291dde79b39323a4a2623a14cc7564164cb)

diff --git a/test/lisp/emacs-lisp/oclosure-tests.el b/test/lisp/emacs-lisp/oclosure-tests.el
index 4760f4031584feae2726973c867c092e6a25df5f..14c205631e02f874997fffe2e57e484ddce32be1 100644 (file)
--- a/test/lisp/emacs-lisp/oclosure-tests.el
+++ b/test/lisp/emacs-lisp/oclosure-tests.el
@@ -32,7 +32,7 @@
 
 (cl-defmethod oclosure-test-gen ((_x compiled-function)) "#<bytecode>")
 
-(cl-defmethod oclosure-test-gen ((_x cons)) "#<cons>")
+(cl-defmethod oclosure-test-gen ((_x interpreted-function)) "#<interpreted-function>")
 
 (cl-defmethod oclosure-test-gen ((_x oclosure))
   (format "#<oclosure:%s>" (cl-call-next-method)))
@@ -63,7 +63,7 @@
     (should (cl-typep ocl1 'oclosure-test))
     (should (cl-typep ocl1 'oclosure))
     (should (member (oclosure-test-gen ocl1)
-                    '("#<oclosure-test:#<oclosure:#<cons>>>"
+                    '("#<oclosure-test:#<oclosure:#<interpreted-function>>>"
                       "#<oclosure-test:#<oclosure:#<bytecode>>>")))
     (should (stringp (documentation #'oclosure-test--fst)))
     ))