Enable unittest.l checking.

.travis.yml

@@ -27,7 +27,7 @@ script: # All commands must exit with code 0 on success. Anything else is consid
   - cd jskeus
   - make
   - source bashrc.eus
-  - find irteus/test -iname "*.l" | grep -v unittest.l | xargs -n1 irteusgl
+  - find irteus/test -iname "*.l" | xargs -n1 irteusgl
   # Test Homebrew formula
   - if [ "$TRAVIS_OS_NAME" == "osx" ]; then ruby -e "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/install)"; fi
   - if [ "$TRAVIS_OS_NAME" == "osx" ]; then brew install homebrew/x11/jskeus --HEAD; fi

irteus/test/unittest.l

@@ -22,14 +22,18 @@
   (warning-message 1 "*** This test  fails intentinally ****~%")
   (dotimes (i 10)
     (assert nil "false")
-    ;; force remove trace from expected errored test
-    (setq ((car (*unit-test* . result)) . failures) nil)
     )
   (dotimes (i 10)
     (assert t "ok"))
   )
 
+;; Prevent from exitting from run-all-tests because we intentinally raise failure of unitteset.
+(setf (symbol-function 'org-exit) (symbol-function 'exit))
+(setf (symbol-function 'exit) #'(lambda (a) (print a)))
+;; Test all cases including intentinal failure.
 (run-all-tests)
+;; Revert exit function
+(setf (symbol-function 'exit) (symbol-function 'org-exit))
 
 (setq ret -1)
 (format t "functions = ~A, num-tests =~A, num-failures = ~A, num-successes = ~A~%"