浏览代码

Remove ido-cr+ prefix from test functions

Ryan C. Thompson 8 年之前
父节点
当前提交
9c9da050b7
共有 1 个文件被更改,包括 7 次插入7 次删除
  1. 7 7
      tests/test-ido-completing-read+.el

+ 7 - 7
tests/test-ido-completing-read+.el

@@ -12,7 +12,7 @@ The returned function will work equivalently to COLLECTION when
 passed to `all-completions' and `try-completion'."
   (completion-table-dynamic (lambda (string) (all-completions string collection))))
 
-(defun ido-cr+-test-save-custom-vars (vars)
+(defun test-save-custom-vars (vars)
   (cl-loop
    for var in vars
    if (not (custom-variable-p var))
@@ -23,29 +23,29 @@ passed to `all-completions' and `try-completion'."
    do
    (progn
      ;; Save the current value
-     (put var 'ido-cr+-test-saved-value curval)
+     (put var 'test-saved-value curval)
      ;; Set it to the standard value, using it's custom setter
      ;; function
      (funcall setter var stdval))))
 
-(defun ido-cr+-test-restore-custom-vars (vars)
+(defun test-restore-custom-vars (vars)
   (cl-loop
    for var in vars
-   for savedval = (get var 'ido-cr+-test-saved-value)
+   for savedval = (get var 'test-saved-value)
    for setter = (or (get var 'custom-set) 'set-default)
    do
    (progn
      ;; Set it to the saved value, using it's custom setter function
      (funcall setter var savedval)
      ;; Delete the saved value from the symbol plist
-     (put var 'ido-cr+-test-saved-value nil))))
+     (put var 'test-saved-value nil))))
 
 (describe "Within the `ido-completing-read+' package"
 
   ;; Reset all of these variables to their standard values before each
   ;; test
   (before-each
-    (ido-cr+-test-save-custom-vars
+    (test-save-custom-vars
      '(ido-mode
        ido-ubiquitous-mode
        ido-cr+-debug-mode
@@ -63,7 +63,7 @@ passed to `all-completions' and `try-completion'."
 
   ;; Restore the saved value after each test
   (after-each
-    (ido-cr+-test-restore-custom-vars
+    (test-restore-custom-vars
      '(ido-mode
        ido-ubiquitous-mode
        ido-cr+-debug-mode