Function: semantic-test-data-cache

semantic-test-data-cache is an interactive and byte-compiled function defined in fw.el.gz.

Signature

(semantic-test-data-cache)

Documentation

Test the data cache.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/fw.el.gz
(defun semantic-test-data-cache ()
  "Test the data cache."
  (interactive)
  (let ((data '(a b c)))
    (save-current-buffer
      (set-buffer (get-buffer-create " *semantic-test-data-cache*"))
      (save-excursion
	(erase-buffer)
	(insert "The Moose is Loose")
	(goto-char (point-min))
	(semantic-cache-data-to-buffer (current-buffer) (point) (+ (point) 5)
				       data 'moose 'exit-cache-zone)
	(if (equal (semantic-get-cache-data 'moose) data)
	    (message "Successfully retrieved cached data.")
	  (error "Failed to retrieve cached data"))
	))))