From 816e08339978e61e2c41445947ac9168d95f7f0e Mon Sep 17 00:00:00 2001 From: Eric Ludlam Date: Sat, 31 May 2014 22:02:48 -0400 Subject: [PATCH] (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 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. -- 2.39.5