From 3651195a0fb2ffcf9906331efcae899f405fbf78 Mon Sep 17 00:00:00 2001
From: Eric Ludlam <eric@siege-engine.com>
Date: Sat, 11 Apr 2015 21:13:57 -0400
Subject: [PATCH] Added test functions

* test/manual/cedet/cedet/semantic/utest-c.el: (semantic-utest-c-ede):
 New (semantic-utest-c): Add call to
 below. (semantic-utest-c-with-ede): New test function
 (semantic-utest-c-setup-ede): New.
---
 test/manual/cedet/cedet/semantic/utest-c.el | 64 ++++++++++++++++++++-
 1 file changed, 61 insertions(+), 3 deletions(-)

diff --git a/test/manual/cedet/cedet/semantic/utest-c.el b/test/manual/cedet/cedet/semantic/utest-c.el
index a3f324772ed..4f3e482beaa 100644
--- a/test/manual/cedet/cedet/semantic/utest-c.el
+++ b/test/manual/cedet/cedet/semantic/utest-c.el
@@ -1,6 +1,6 @@
 ;;; semantic/utest-c.el --- C based parsing tests.
 
-;; Copyright (C) 2008, 2009, 2010, 2011 Eric M. Ludlam
+;; Copyright (C) 2008, 2009, 2010, 2011, 2015 Eric M. Ludlam
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 
@@ -32,6 +32,10 @@
   '( "testsppcond.cpp" )
   "List of files for testing conditionals.")
 
+(defvar semantic-utest-c-ede
+  '( ( "testede.c" . "testedereplaced.c") )
+  "List of files for testing conditionals.")
+
 ;;; Code:
 ;;;###autoload
 (defun semantic-utest-c ()
@@ -39,6 +43,7 @@
   (interactive)
   (semantic-utest-c-compare)
   (semantic-utest-c-conditionals)
+  (semantic-utest-c-with-ede)
   ;; Passed?
   (message "PASSED!")
   )
@@ -78,8 +83,8 @@ expand to."
 	      (setq tags-expected (cdr tags-expected))
 	    (with-mode-local c-mode
 	      (error "Found: >> %s << Expected: >>  %s <<"
-		     (semantic-format-tag-prototype tag nil t)
-		     (semantic-format-tag-prototype (car tags-expected) nil t)
+		     (semantic-format-tag-prototype tag nil (not noninteractive))
+		     (semantic-format-tag-prototype (car tags-expected) nil (not noninteractive))
 		     )))
 	  ))
       )))
@@ -120,5 +125,58 @@ those with PASS in the name will pass."
 	    )))))
   )
 
+
+;;; WITH EDE
+;;
+;; Some spp tests that include an EDE project, and pulling macros
+;; that were setup via that project.
+
+(defun semantic-utest-c-setup-ede (root)
+  "Set up an ede-cpp-root project at ROOT."
+  (ede-cpp-root-project "TMP" :file (expand-file-name "edeconfig.h" root)
+			:spp-table '( ("EDEPART" . "C")
+				      )
+			:spp-files '( "edeconfig.h" ))
+  )
+
+(defun semantic-utest-c-with-ede ()
+  "Unit tests for spp macros pulled into a file from EDE for parsing."
+  (dolist (fp semantic-utest-c-ede)
+    (let* ((sem (or (locate-library "cedet/semantic/utest-c")
+		    (error "Cannot locate library 'cedet/semantic/utest-c'.")))
+	   (sdir (file-name-directory sem))
+	   (filename1 (expand-file-name (concat "testwithede/" (car fp)) sdir))
+	   (filename2 (expand-file-name (concat "testwithede/" (cdr fp)) sdir))
+	   (tmpede (semantic-utest-c-setup-ede (expand-file-name "testwithede/" sdir)))
+	   (semantic-lex-c-nested-namespace-ignore-second nil)
+	   (tags-actual
+	    (save-excursion
+	      (unless (file-exists-p filename1)
+		(error "Cannot load %s." filename1))
+	      (set-buffer (find-file-noselect filename1))
+	      (semantic-clear-toplevel-cache)
+	      (semantic-fetch-tags)))
+	   (tags-expected
+	    (save-excursion
+	      (unless (file-exists-p filename2)
+		(error "Cannot load %s." filename2))
+	      (set-buffer (find-file-noselect filename2))
+	      (semantic-clear-toplevel-cache)
+	      (semantic-fetch-tags))))
+      ;; Now that we have the tags, compare them for SPP accuracy.
+      (dolist (tag tags-actual)
+	(if (and (semantic-tag-of-class-p tag 'variable)
+		 (semantic-tag-variable-constant-p tag))
+	    nil				; skip the macros.
+	  (if (semantic-tag-similar-with-subtags-p tag (car tags-expected))
+	      (setq tags-expected (cdr tags-expected))
+	    (with-mode-local c-mode
+	      (error "Found: >> %s << Expected: >>  %s <<"
+		     (semantic-format-tag-prototype tag nil (not noninteractive))
+		     (semantic-format-tag-prototype (car tags-expected) nil (not noninteractive))
+		     )))
+	  ))
+      )))
+
 (provide 'cedet/semantic/utest-c)
 ;;; semantic/utest-c.el ends here
-- 
2.39.5