From: Eric Ludlam <zappo@gnu.org>
Date: Sun, 1 Jun 2014 02:02:48 +0000 (-0400)
Subject: (ede-detect-utest-project-list): Add test for generic VC type project. (ede-detect... 
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=816e08339978e61e2c41445947ac9168d95f7f0e;p=emacs.git

(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.
---

diff --git a/test/manual/cedet/cedet/ede/detect-utest.el b/test/manual/cedet/cedet/ede/detect-utest.el
index 6e8ea272e97..9003370a483 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.