master 2bfea5f 1/3: Prefer skip-unless in one eieio test

[Stefan Kangas]

branch: master
commit 2bfea5fd1fd1335d4b865e5561f8a40596064eae
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

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

diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el 
b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
index 25b36c0..a9e39ea 100644
--- 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