Prefer skip-unless in one eieio test

* test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
(eieio-test-01-mix-alloc-initarg): Use skip-unless to correctly mark
the test as skipped.

diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
index 25b36c0f1cc470a313837d5ea529ecc64ef82ba2..a9e39ea8fb1f44f95dd5c1b1954c7aa2b9794de8 100644 (file)
--- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
+++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
@@ -139,19 +139,19 @@
 
 (ert-deftest eieio-test-01-mix-alloc-initarg ()
   ;; Only run this test if the message framework thingy works.
-  (when (and (message "foo") (string= "foo" (current-message)))
-
-    ;; Defining this class should generate a warning(!) message that
-    ;; you should not mix :initarg with class allocated slots.
-    (defclass class-alloc-initarg ()
-      ((throwwarning :initarg :throwwarning
-                    :allocation :class))
-      "Throw a warning mixing allocation class and an initarg.")
-
-    ;; Check that message is there
-    (should (current-message))
-    (should (string-match "Class allocated slots do not need :initarg"
-                         (current-message)))))
+  (skip-unless (and (message "foo") (string= "foo" (current-message))))
+
+  ;; Defining this class should generate a warning(!) message that
+  ;; you should not mix :initarg with class allocated slots.
+  (defclass class-alloc-initarg ()
+    ((throwwarning :initarg :throwwarning
+                   :allocation :class))
+    "Throw a warning mixing allocation class and an initarg.")
+
+  ;; Check that message is there
+  (should (current-message))
+  (should (string-match "Class allocated slots do not need :initarg"
+                        (current-message))))
 
 (defclass abstract-class ()
   ((some-slot :initarg :some-slot