[Emacs-diffs] scratch/merge-cedet-tests 4730d02 197/316: Refactor tests

[Edward John Steere]

branch: scratch/merge-cedet-tests
commit 4730d022fb9f60aa8b637e958d6a91015deb475c
Author: Eric Ludlam <address@hidden>
Commit: Edward John Steere <address@hidden>

    Refactor tests
    
    * test/manual/cedet/cedet-utests.el: (cedet-uutil): New require, plus
     all other unit test files. (cedet-utest-test-alist): eieio now has
     loader test fcn (below) Re-order srecode
     tests. (cedet-running-master-tests): Move to cedet-uutil.
     (cedet-utest): Fix symbol names for initializing the test suite.
     (cedet-utest-noninteractive): Move to
     cedet-uutil. (cedet-utest-batch): Init semantic the new
     way. (cedet-utest-frame, cedet-utest-last-log-item,
     cedet-utest-log-timer) (cedet-utest-log-setup,
     cedet-utest-elapsed-time) (cedet-utest-log-shutdown,
     cedet=utest-log-shutdown-msg) (cedet-utest-show-log-end,
     cedet-utest-post-command-hook) (cedet-utest-add-log-item-start,
     cedet-utest-add-log-item-done) (cedet-utest-log-start,
     cedet-utest-log): Moved to cedet-util.el
     (cedet-utest-eieio-classloader): New loader for the EIEIO tests.
---
 test/manual/cedet/cedet-utests.el |  387 ++++---------------------------------
 1 file changed, 40 insertions(+), 347 deletions(-)

diff --git a/test/manual/cedet/cedet-utests.el 
b/test/manual/cedet/cedet-utests.el
index b8396b8..18a18f8 100644
--- a/test/manual/cedet/cedet-utests.el
+++ b/test/manual/cedet/cedet-utests.el
@@ -26,6 +26,26 @@
 ;; into one command.
 
 (require 'cedet)
+(require 'cedet-uutil)
+(require 'inversion-utest)
+(require 'pulse-utest)
+(require 'cedet-files-utests)
+(require 'cedet-compat)
+(require 'cedet/semantic/lex-utest)
+(require 'cedet/semantic/lex-spp-utest)
+(require 'cedet/semantic/utest-parse)
+(require 'cedet/semantic/utest-c)
+(require 'cedet/semantic/ia-utest)
+(require 'cedet/semantic/utest-fw)
+(require 'cedet/semantic/gcc-utest)
+(require 'semantic/wisent/calc)
+(require 'cedet/srecode/test)
+(require 'cedet/srecode/fields-utest)
+(require 'cedet/srecode/test-getset)
+(require 'cedet/cogre/utest)
+(require 'cedet/cogre/periodic-utest)
+(require 'cedet/cogre/convert-utest)
+
 ;;; Code:
 (defvar cedet-utest-test-alist
   '(
@@ -49,9 +69,7 @@
     ;;
     ;; EIEIO
     ;;
-    ("eieio" . (lambda () (let ((lib (locate-library "eieio-tests.el"
-                                                    t)))
-                           (load-file lib))))
+    ("eieio" . cedet-utest-eieio-classloader)
     ("eieio: browser" . eieio-browse)
     ("eieio: custom" . (lambda ()
                         (require 'eieio-custom)
@@ -85,24 +103,23 @@
     ;;
     ;; SRECODE
     ;;
-    ("srecode: fields" . srecode-field-utest)
+    ("srecode: show maps" . srecode-utest-map-reset)
     ("srecode: templates" . srecode-utest-template-output)
-    ("srecode: show maps" . srecode-get-maps)
+    ("srecode: fields" . srecode-field-utest)
+    ("srecode: project" . srecode-utest-project)
     ("srecode: getset" . srecode-utest-getset-output)
    )
   "Alist of all the tests in CEDET we should run.")
 
-(defvar cedet-running-master-tests nil
-  "Non-nil when CEDET-utest is running all the tests.")
-
+;;;###autoload
 (defun cedet-utest (&optional exit-on-error)
   "Run the CEDET unit tests.
 EXIT-ON-ERROR causes the test suite to exit on an error, instead
 of just logging the error."
   (interactive)
-  (if (or (not (featurep 'semanticdb-mode))
+  (if (or (not (featurep 'semantic/db-mode))
          (not (semanticdb-minor-mode-p)))
-      (error "CEDET Tests require: M-x semantic-load-enable-minimum-features"))
+      (error "CEDET Tests require: M-x semantic-mode"))
   (cedet-utest-log-setup "ALL TESTS")
   (let ((tl cedet-utest-test-alist)
        (notes nil)
@@ -143,12 +160,6 @@ of just logging the error."
     (cedet-utest-log-shutdown-msg "ALL TESTS" start end)
     nil))
 
-(defun cedet-utest-noninteractive ()
-  "Return non-nil if running non-interactively."
-  (if (featurep 'xemacs)
-      (noninteractive)
-    noninteractive))
-
 ;;;###autoload
 (defun cedet-utest-batch ()
   "Run the CEDET unit test in BATCH mode."
@@ -157,7 +168,10 @@ of just logging the error."
   (condition-case err
       (when (catch 'cedet-utest-exit-on-error
              ;; Get basic semantic features up.
-             (semantic-load-enable-minimum-features)
+              ;; OLD (semantic-load-enable-minimum-features)
+              ;; NEW
+              (semantic-mode 1)
+              ;(global-semanticdb-minor-mode 1)
              ;; Disables all caches related to semantic DB so all
              ;; tests run as if we have bootstrapped CEDET for the
              ;; first time.
@@ -177,339 +191,18 @@ of just logging the error."
     )
   )
 
-;;; Logging utility.
-;;
-(defvar cedet-utest-frame nil
-  "Frame used during cedet unit test logging.")
-(defvar cedet-utest-buffer nil
-  "Frame used during cedet unit test logging.")
-(defvar cedet-utest-frame-parameters
-  '((name . "CEDET-UTEST")
-    (width . 80)
-    (height . 25)
-    (minibuffer . t))
-  "Frame parameters used for the cedet utest log frame.")
-
-(defvar cedet-utest-last-log-item nil
-  "Remember the last item we were logging for.")
-
-(defvar cedet-utest-log-timer nil
-  "During a test, track the start time.")
-
-(defun cedet-utest-log-setup (&optional title)
-  "Setup a frame and buffer for unit testing.
-Optional argument TITLE is the title of this testing session."
-  (setq cedet-utest-log-timer (current-time))
-  (if (cedet-utest-noninteractive)
-      (message "\n>> Setting up %s tests to run @ %s\n"
-              (or title "")
-              (current-time-string))
-
-    ;; Interactive mode needs a frame and buffer.
-    (when (or (not cedet-utest-frame) (not (frame-live-p cedet-utest-frame)))
-      (setq cedet-utest-frame (make-frame cedet-utest-frame-parameters)))
-    (when (or (not cedet-utest-buffer) (not (buffer-live-p 
cedet-utest-buffer)))
-      (setq cedet-utest-buffer (get-buffer-create "*CEDET utest log*")))
-    (save-excursion
-      (set-buffer cedet-utest-buffer)
-      (setq cedet-utest-last-log-item nil)
-      (when (not cedet-running-master-tests)
-       (erase-buffer))
-      (insert "\n\nSetting up "
-             (or title "")
-             " tests to run @ " (current-time-string) "\n\n"))
-    (let ((oframe (selected-frame)))
-      (unwind-protect
-         (progn
-           (select-frame cedet-utest-frame)
-           (switch-to-buffer cedet-utest-buffer t))
-       (select-frame oframe)))
-    ))
-
-(defun cedet-utest-elapsed-time (start end)
-  "Copied from elp.el.  Was elp-elapsed-time.
-Argument START and END bound the time being calculated."
-  (+ (* (- (car end) (car start)) 65536.0)
-     (- (car (cdr end)) (car (cdr start)))
-     (/ (- (car (cdr (cdr end))) (car (cdr (cdr start)))) 1000000.0)))
-
-(defun cedet-utest-log-shutdown (title &optional errorcondition)
-  "Shut-down a larger test suite.
-TITLE is the section that is done.
-ERRORCONDITION is some error that may have occurred during testing."
-  (let ((endtime (current-time))
-       )
-    (cedet-utest-log-shutdown-msg title cedet-utest-log-timer endtime)
-    (setq cedet-utest-log-timer nil)
-    ))
-
-(defun cedet-utest-log-shutdown-msg (title startime endtime)
-  "Show a shutdown message with TITLE, STARTIME, and ENDTIME."
-  (if (cedet-utest-noninteractive)
-      (progn
-       (message "\n>> Test Suite %s ended at @ %s"
-                title
-                (format-time-string "%c" endtime))
-       (message "     Elapsed Time %.2f Seconds\n"
-                (cedet-utest-elapsed-time startime endtime)))
-
-    (save-excursion
-      (set-buffer cedet-utest-buffer)
-      (goto-char (point-max))
-      (insert "\n>> Test Suite " title " ended at @ "
-             (format-time-string "%c" endtime) "\n"
-             "     Elapsed Time "
-             (number-to-string
-              (cedet-utest-elapsed-time startime endtime))
-             " Seconds\n * "))
-    ))
-
-(defun cedet-utest-show-log-end ()
-  "Show the end of the current unit test log."
-  (unless (cedet-utest-noninteractive)
-    (let* ((cb (current-buffer))
-          (cf (selected-frame))
-          (bw (or (get-buffer-window cedet-utest-buffer t)
-                  (get-buffer-window (switch-to-buffer cedet-utest-buffer) t)))
-          (lf (window-frame bw))
-          )
-      (select-frame lf)
-      (select-window bw)
-      (goto-char (point-max))
-      (select-frame cf)
-      (set-buffer cb)
-      )))
-
-(defun cedet-utest-post-command-hook ()
-  "Hook run after the current log command was run."
-    (if (cedet-utest-noninteractive)
-       (message "")
-      (save-excursion
-       (set-buffer cedet-utest-buffer)
-       (goto-char (point-max))
-       (insert "\n\n")))
-    (setq cedet-utest-last-log-item nil)
-    (remove-hook 'post-command-hook 'cedet-utest-post-command-hook)
+;;; HELPER FUNCTIONS FOR SOME TESTS
+(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)))
+    (message "EIEIO Base tests loading from: %S" lib)
+    (load-file lib)
     )
-
-(defun cedet-utest-add-log-item-start (item)
-  "Add ITEM into the log as being started."
-  (unless (equal item cedet-utest-last-log-item)
-    (setq cedet-utest-last-log-item item)
-    ;; This next line makes sure we clear out status during logging.
-    (add-hook 'post-command-hook 'cedet-utest-post-command-hook)
-
-    (if (cedet-utest-noninteractive)
-       (message " - Running %s ..." item)
-      (save-excursion
-       (set-buffer cedet-utest-buffer)
-       (goto-char (point-max))
-       (when (not (bolp)) (insert "\n"))
-       (insert "Running " item " ... ")
-       (sit-for 0)
-       ))
-    (cedet-utest-show-log-end)
-    ))
-
-(defun cedet-utest-add-log-item-done (&optional notes err precr)
-  "Add into the log that the last item is done.
-Apply NOTES to the doneness of the log.
-Apply ERR if there was an error in previous item.
-Optional argument PRECR indicates to prefix the done msg w/ a newline."
-  (if (cedet-utest-noninteractive)
-      ;; Non-interactive-mode - show a message.
-      (if notes
-         (message "   * %s {%s}" (or err "done") notes)
-       (message "   * %s" (or err "done")))
-    ;; Interactive-mode - insert into the buffer.
-    (save-excursion
-      (set-buffer cedet-utest-buffer)
-      (goto-char (point-max))
-      (when precr (insert "\n"))
-      (if err
-         (insert err)
-       (insert "done")
-       (when notes (insert " (" notes ")")))
-      (insert "\n")
-      (setq cedet-utest-last-log-item nil)
-      (sit-for 0)
-      )))
-
-;;; INDIVIDUAL TEST API
-;;
-;; Use these APIs to start and log information.
-;;
-;; The other fcns will be used to log across all the tests at once.
-(defun cedet-utest-log-start (testname)
-  "Setup the log for the test TESTNAME."
-  ;; Make sure we have a log buffer.
-  (save-window-excursion
-    (when (or (not cedet-utest-buffer)
-             (not (buffer-live-p cedet-utest-buffer))
-             (not (get-buffer-window cedet-utest-buffer t))
-             )
-      (cedet-utest-log-setup))
-    ;; Add our startup message.
-    (cedet-utest-add-log-item-start testname)
+  (let ((lib (locate-library "eieio/eieio-test-methodinvoke.el" t)))
+    (message "EIEIO MethodInvoke tests loading from: %S" lib)
+    (load-file lib)
     ))
 
-(defun cedet-utest-log(format &rest args)
-  "Log the text string FORMAT.
-The rest of the ARGS are used to fill in FORMAT with `format'."
-  (if (cedet-utest-noninteractive)
-      (apply 'message format args)
-    (save-excursion
-      (set-buffer cedet-utest-buffer)
-      (goto-char (point-max))
-      (when (not (bolp)) (insert "\n"))
-      (insert (apply 'format format args))
-      (insert "\n")
-      (sit-for 0)
-      ))
-  (cedet-utest-show-log-end)
-  )
-
-;;; Inversion tests
-
-(defun inversion-unit-test ()
-  "Test inversion to make sure it can identify different version strings."
-  (interactive)
-  (let ((c1 (inversion-package-version 'inversion))
-       (c1i (inversion-package-incompatibility-version 'inversion))
-       (c2 (inversion-decode-version  "1.3alpha2"))
-       (c3 (inversion-decode-version  "1.3beta4"))
-       (c4 (inversion-decode-version  "1.3 beta5"))
-       (c5 (inversion-decode-version  "1.3.4"))
-       (c6 (inversion-decode-version  "2.3alpha"))
-       (c7 (inversion-decode-version  "1.3"))
-       (c8 (inversion-decode-version  "1.3pre1"))
-       (c9 (inversion-decode-version  "2.4 (patch 2)"))
-       (c10 (inversion-decode-version "2.4 (patch 3)"))
-       (c11 (inversion-decode-version "2.4.2.1"))
-       (c12 (inversion-decode-version "2.4.2.2"))
-       )
-    (if (not (and
-             (inversion-= c1 c1)
-             (inversion-< c1i c1)
-             (inversion-< c2 c3)
-             (inversion-< c3 c4)
-             (inversion-< c4 c5)
-             (inversion-< c5 c6)
-             (inversion-< c2 c4)
-             (inversion-< c2 c5)
-             (inversion-< c2 c6)
-             (inversion-< c3 c5)
-             (inversion-< c3 c6)
-             (inversion-< c7 c6)
-             (inversion-< c4 c7)
-             (inversion-< c2 c7)
-             (inversion-< c8 c6)
-             (inversion-< c8 c7)
-             (inversion-< c4 c8)
-             (inversion-< c2 c8)
-             (inversion-< c9 c10)
-             (inversion-< c10 c11)
-             (inversion-< c11 c12)
-             ;; Negatives
-             (not (inversion-< c3 c2))
-             (not (inversion-< c4 c3))
-             (not (inversion-< c5 c4))
-             (not (inversion-< c6 c5))
-             (not (inversion-< c7 c2))
-             (not (inversion-< c7 c8))
-             (not (inversion-< c12 c11))
-             ;; Test the tester on inversion
-             (not (inversion-test 'inversion inversion-version))
-             ;; Test that we throw an error
-             (inversion-test 'inversion "0.0.0")
-             (inversion-test 'inversion "1000.0")
-             ))
-       (error "Inversion tests failed")
-      (message "Inversion tests passed."))))
-
-;;; cedet-files unit test
-
-(defvar cedet-files-utest-list
-  '(
-    ( "/home/me/src/myproj/src/foo.c" . "!home!me!src!myproj!src!foo.c" )
-    ( "c:/work/myproj/foo.el" . "!drive_c!work!myproj!foo.el" )
-    ( "//windows/proj/foo.java" . "!!windows!proj!foo.java" )
-    ( "/home/me/proj!bang/foo.c" . "!home!me!proj!!bang!foo.c" )
-    )
-  "List of different file names to test.
-Each entry is a cons cell of ( FNAME . CONVERTED )
-where FNAME is some file name, and CONVERTED is what it should be
-converted into.")
-
-(defun cedet-files-utest ()
-  "Test out some file name conversions."
-  (interactive)
-  (let ((idx 0))
-    (dolist (FT cedet-files-utest-list)
-
-      (setq idx (+ idx 1))
-
-      (let ((dir->file (cedet-directory-name-to-file-name (car FT) t))
-           (file->dir (cedet-file-name-to-directory-name (cdr FT) t))
-           )
-
-       (unless (string= (cdr FT) dir->file)
-         (error "Failed: %d.  Found: %S Wanted: %S"
-                idx dir->file (cdr FT))
-         )
-
-       (unless (string= file->dir (car FT))
-         (error "Failed: %d.  Found: %S Wanted: %S"
-                idx file->dir (car FT)))))))
-
-;;; pulse test
-
-(defun pulse-test (&optional no-error)
-  "Test the lightening function for pulsing a line.
-When optional NO-ERROR don't throw an error if we can't run tests."
-  (interactive)
-  (if (or (not pulse-flag) (not (pulse-available-p)))
-      (if no-error
-         nil
-       (error (concat "Pulse test only works on versions of Emacs"
-                      " that support pulsing")))
-    ;; Run the tests
-    (when (interactive-p)
-      (message "<Press a key> Pulse one line.")
-      (read-char))
-    (pulse-momentary-highlight-one-line (point))
-    (when (interactive-p)
-      (message "<Press a key> Pulse a region.")
-      (read-char))
-    (pulse-momentary-highlight-region (point)
-                                     (save-excursion
-                                       (condition-case nil
-                                           (forward-char 30)
-                                         (error nil))
-                                       (point)))
-    (when (interactive-p)
-      (message "<Press a key> Pulse line a specific color.")
-      (read-char))
-    (pulse-momentary-highlight-one-line (point) 'modeline)
-    (when (interactive-p)
-      (message "<Press a key> Pulse a pre-existing overlay.")
-      (read-char))
-    (let* ((start (point-at-bol))
-          (end (save-excursion
-                 (end-of-line)
-                 (when (not (eobp))
-                   (forward-char 1))
-                 (point)))
-          (o (make-overlay start end))
-          )
-      (pulse-momentary-highlight-overlay o)
-      (if (overlay-buffer o)
-         (delete-overlay o)
-       (error "Non-temporary overlay was deleted!"))
-      )
-    (when (interactive-p)
-      (message "Done!"))))
-
 (provide 'cedet-utests)
 
 ;;; cedet-utests.el ends here