From 50cce19599709886484c01adca76e9a705c9e5cb Mon Sep 17 00:00:00 2001 From: zappo Date: Thu, 15 Oct 2009 02:54:27 +0000 Subject: [PATCH] Added lib dir and make-type argument * test/manual/cedet/cedet-integ-test.el (cedet-integ-test-proj): Add a lib dir. Add make-type arg to cit-remove-and-do-shared-lib call. (cit-compile-and-wait): Accept an optional argument. --- test/manual/cedet/cedet-integ-test.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/test/manual/cedet/cedet-integ-test.el b/test/manual/cedet/cedet-integ-test.el index 71c07b8a028..382794832f0 100644 --- a/test/manual/cedet/cedet-integ-test.el +++ b/test/manual/cedet/cedet-integ-test.el @@ -117,6 +117,7 @@ Optional argument MAKE-TYPE is the style of EDE project to test." (cit-make-dir cedet-integ-target) ;; 1 c) make src and include directories (cit-make-dir (cit-file "src")) + (cit-make-dir (cit-file "lib")) (cit-make-dir (cit-file "include")) (cit-make-dir (cit-file "uml")) ;; @@ -136,7 +137,7 @@ Optional argument MAKE-TYPE is the style of EDE project to test." (cit-remove-add-to-project-cpp) ;; 1 f) remove files from a project - (cit-remove-and-do-shared-lib) + (cit-remove-and-do-shared-lib make-type) ;; 2 e) srecode map manipulation (cit-srecode-map-test) @@ -296,13 +297,15 @@ 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." +(defun cit-compile-and-wait (&optional ARGS) + "Compile our current project, but wait for it to finish. +Optional ARGS are additional arguments to add to the compile command, +such as 'clean'." (let ((bufftokill (find-file (cit-file "Project.ede")))) ;; 1 f) Create a build file. (ede-proj-regenerate) ;; 1 g) build the sources. - (compile ede-make-command) + (compile (concat ede-make-command (or ARGS ""))) (while compilation-in-progress (accept-process-output) -- 2.39.2