Mercurial > emacs
view test/cedet/ede-tests.el @ 107319:7a74731f53f0
Fix handling of the multibyte form of raw-bytes in unibyte->multibyte conversion.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 02 Mar 2010 13:55:33 +0900 |
parents | 7f4c7f5c0eba |
children | 51227b0f95e1 |
line wrap: on
line source
;;; From ede-locate: (require 'ede/locate) ;;; TESTS ;; ;; Some testing routines. (defun ede-locate-test-locate (file) "Test EDE Locate on FILE using LOCATE type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-locate "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) (defun ede-locate-test-global (file) "Test EDE Locate on FILE using GNU Global type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-global "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) (defun ede-locate-test-idutils (file) "Test EDE Locate on FILE using ID Utils type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-idutils "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) (defun ede-locate-test-cscope (file) "Test EDE Locate on FILE using CScope type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-cscope "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) ;; arch-tag: 79fae12e-652f-4544-a20e-b24d87b4917d