[Emacs-diffs] scratch/merge-cedet-tests 816e083 151/316: (ede-detect-utest-project-list): Add test for generic VC type project. (ede-detect-utest): Add fake autoloader for VC. (ede-detect-utest-generic-vc-p): New.

[Edward John Steere]

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

    (ede-detect-utest-project-list): Add test for generic VC type project. 
(ede-detect-utest): Add fake autoloader for VC. 
(ede-detect-utest-generic-vc-p): New.
---
 test/manual/cedet/cedet/ede/detect-utest.el |   13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/test/manual/cedet/cedet/ede/detect-utest.el 
b/test/manual/cedet/cedet/ede/detect-utest.el
index 6e8ea27..9003370 100644
--- a/test/manual/cedet/cedet/ede/detect-utest.el
+++ b/test/manual/cedet/cedet/ede/detect-utest.el
@@ -41,13 +41,15 @@
     ( "src/generic/gen_make/sub/test.cpp" . ede-detect-utest-generic-p )
     ( "src/generic/gen_scons/sub/test.cpp" . ede-detect-utest-generic-p )
     ( "src/generic/gen_cmake/sub/test.cpp" . ede-detect-utest-generic-p )
+    ;; Generic MADE FOR TEST only case.
+    ( "src/generic/gen_vc/sub/test.cpp" . ede-detect-utest-generic-vc-p )
     ;; these ROOT projects are created by hand in a .emacs file.
     ;; These need to be defined in here to get this test to work.
     ( "src/cpproot/src/main.cpp" . ede-cpp-root-project-p )
     ( "src/cpproot/README" . ede-cpp-root-project-p )
     ( "src/javaroot/com/test/Foo.Java" . ede-java-root-project-p )
     ( "src/javaroot/README" . ede-java-root-project-p )
-     )
+    )
   "List of sources to load in detectable projects.
 Each entry is a cons cell:
   ( SRCFILE . PROJECT-TYPE )")
@@ -91,6 +93,10 @@ Each entry is a cons cell:
     ;; Enable the generic EDE project types so we can test them.
     (ede-enable-generic-projects)
 
+    ;; Create a fake VC style project that we can detect.
+    (ede-generic-new-autoloader "generic-VC" "FAKE VC"
+                               "VC" 'ede-generic-vc-project)
+
     ;; Start Logging
     (cedet-utest-log-setup "EDE DETECT")
 
@@ -256,6 +262,11 @@ Each entry is a cons cell:
              ))
        ))
 
+(defun ede-detect-utest-generic-vc-p (project)
+  "Special predicate for testing a generic VC project was loaded."
+  (and (ede-detect-utest-generic-p project)
+       (ede-generic-vc-project-p project)))
+
 ;;; TEST PROJECT
 ;;
 ;; This project exists to test dirmatch.