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

[Stefan Monnier]

branch: master
commit 7c835291dde79b39323a4a2623a14cc7564164cb
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    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.
---
 test/lisp/emacs-lisp/oclosure-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lisp/emacs-lisp/oclosure-tests.el 
b/test/lisp/emacs-lisp/oclosure-tests.el
index 4760f403158..14c205631e0 100644
--- 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)))
     ))