From: David Engster <dengste@eml.cc>
Date: Thu, 1 Dec 2011 19:13:55 +0000 (+0100)
Subject: Fix unit testing for several tests and do better error checking.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa72e439160f990c9c1646b32366449842fdfc85;p=emacs.git

Fix unit testing for several tests and do better error checking.

* semantic/lex-spp-utests.el (semantic-lex-spp-write-utest):
* tests/cedet-utests.el (cedet-utest-eieio-classloader): Throw
  error if we cannot locate test files.

* semantic/utest-c.el (semantic-utest-c-compare)
  (semantic-utest-c-conditionals):
* semantic/lex-spp-utest.el (semantic-lex-spp-write-utest): Adapt
  to new directory structure and do better error checking to avoid
  silent failures in the future.
---

diff --git a/test/manual/cedet/cedet-utests.el b/test/manual/cedet/cedet-utests.el
index f9d6e5f9843..ecfc4c32e31 100644
--- a/test/manual/cedet/cedet-utests.el
+++ b/test/manual/cedet/cedet-utests.el
@@ -197,10 +197,14 @@ of just logging the error."
 (defun cedet-utest-eieio-classloader ()
   "Try out the EIEIO tests, which just requires loading the test file."
   (let ((lib (locate-library "eieio/eieio-tests.el" t)))
+    (unless lib
+      (error "Could not locate 'eieio/eieio-tests.el'"))
     (message "EIEIO Base tests loading from: %S" lib)
     (load-file lib)
     )
   (let ((lib (locate-library "eieio/eieio-test-methodinvoke.el" t)))
+    (unless lib
+      (error "Could not locate 'eieio/eieio-test-methodinvoke.el'"))
     (message "EIEIO MethodInvoke tests loading from: %S" lib)
     (load-file lib)
     ))