[Emacs-diffs] scratch/merge-cedet-tests e96e309 178/316: Added new subdir and ensure that the base dir

[Edward John Steere]

branch: scratch/merge-cedet-tests
commit e96e30913088a4b7ba136873167054fe5641392b
Author: zappo <address@hidden>
Commit: Edward John Steere <address@hidden>

    Added new subdir and ensure that the base dir
    
    is made first
    
    * test/manual/cedet/cedet-integ-test.el (cedet-integ-base): New, using
     old target value.  (cedet-integ-target): Subdir under base
     (cedet-integ-test): Make the base dir first.
     (cit-srecode-verify-tags): Fix paren typos on error condition.
---
 test/manual/cedet/cedet-integ-test.el |   14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/test/manual/cedet/cedet-integ-test.el 
b/test/manual/cedet/cedet-integ-test.el
index ec74c45..9316b1a 100644
--- a/test/manual/cedet/cedet-integ-test.el
+++ b/test/manual/cedet/cedet-integ-test.el
@@ -67,14 +67,20 @@
 (require 'ede)
 (require 'data-debug)
 (require 'ede-make)
+
+(eval-and-compile
+  (defvar cedet-integ-base "/tmp/CEDET_INTEG"
+    "Root of multiple project integration tests.")
+  )
+
 (require 'cit-cpp)
 (require 'cit-srec)
 (require 'cit-el)
 (require 'cit-texi)
 (require 'cit-gnustep)
 
-(defvar cedet-integ-target "/tmp/CEDET_INTEG"
-  "Root of the integration tests.")
+(defvar cedet-integ-target (expand-file-name "edeproj" cedet-integ-base)
+  "Root of the EDE project integration tests.")
 
 ;;; Code:
 (defun cedet-integ-test ()
@@ -82,6 +88,7 @@
   (interactive)
   ;; 1 a) build directories
   ;;
+  (cit-make-dir cedet-integ-base)
   (cit-make-dir cedet-integ-target)
   ;; 1 c) make src and include directories
   (cit-make-dir (cit-file "src"))
@@ -229,7 +236,6 @@ are found, but don't error if they are not their."
        (data-debug-insert-thing
         (cit-tag-verify-error-debug "Dbg" :actual T1 :expected T2)
         ">" "")
-        )
 
        (error "Tag %s does not match %s"
               (semantic-format-tag-name T1)
@@ -238,7 +244,7 @@ are found, but don't error if they are not their."
        ))
 
     (setq actual (cdr actual))
-    )
+    ))
 
 (defun cit-compile-and-wait ()
   "Compile our current project, but wait for it to finish."