tools/editors/emacs/tests/tests-adjust-section.el

   1 ;; Authors: Martin Blais <blais@furius.ca>
   2 ;; Date: $Date: 2005/04/01 23:19:41 $
   3 ;; Copyright: This module has been placed in the public domain.
   4 ;;
   5 ;; Regression tests for rest-adjust-section-title.
   6 ;;
   7
   8 (defvar rest-adjust-section-tests
   9   '(
  10     (simple
  11 "
  12 Some Title@
  13
  14 "
  15 "
  16 Some Title
  17 ==========
  18
  19 ")
  20
  21     (simple-cursor-in-line
  22 "
  23 Some Tit@le
  24
  25 "
  26 "
  27 Some Title
  28 ==========
  29
  30 ")
  31
  32     (simple-cursor-beginning
  33 "
  34 @Some Title
  35
  36 "
  37 "
  38 Some Title
  39 ==========
  40
  41 ")
  42
  43     (simple-at-end-of-buffer
  44 "
  45 Some Title@"
  46 "
  47 Some Title
  48 ==========
  49 ")
  50
  51     (cursor-on-empty-line-under
  52 "
  53 Some Title
  54 @
  55 "
  56 "
  57 Some Title
  58 ==========
  59
  60 ")
  61
  62
  63
  64     (partial
  65 "
  66 Some Title@
  67 ---
  68 "
  69 "
  70 Some Title
  71 ----------
  72
  73 ")
  74
  75     (cursor-on-underline
  76 "
  77 Some Title
  78 ---@
  79 "
  80 "
  81 Some Title
  82 ----------
  83
  84 ")
  85
  86     (cursor-on-underline-one-char
  87 "
  88 Some Title
  89 ~@
  90 "
  91 "
  92 Some Title
  93 ~~~~~~~~~~
  94
  95 ")
  96
  97     (with-previous-text
  98 "
  99 Some Title
 100 **********
 101
 102 Subtitle@
 103
 104 "
 105 "
 106 Some Title
 107 **********
 108
 109 Subtitle
 110 ********
 111
 112 ")
 113
 114     (with-previous-text-rotating
 115 "
 116 Some Title
 117 ==========
 118
 119 Subtitle
 120 --------
 121
 122 Subtitle2@
 123
 124 "
 125 "
 126 Some Title
 127 ==========
 128
 129 Subtitle
 130 --------
 131
 132 Subtitle2
 133 =========
 134
 135 "
 136 2)
 137
 138   )
 139
 140   "A list of regression tests for the section update method.")
 141
 142
 143 (defun regression-test-compare-expect-buffer (testlist fun)
 144   "Run the regression tests for the section adjusting method."
 145
 146   (let ((buf (get-buffer-create "restructuredtext-regression-tests"))
 147         (specchar "@")
 148         )
 149     (dolist (curtest testlist)
 150       ;; prepare a buffer with the starting text, and move the cursor where
 151       ;; the special character is located
 152       (switch-to-buffer buf)
 153       (erase-buffer)
 154       (insert (cadr curtest))
 155       (search-backward specchar)
 156       (delete-char 1)
 157
 158       ;; run the section title update command n times
 159       (dotimes (x (or (cadddr curtest) 1))
 160         (funcall fun))
 161
 162       ;; compare the buffer output with the expected text
 163       (or (string=
 164            (buffer-string)
 165            (caddr curtest))
 166           (progn
 167             (error "Test %s failed." (car curtest))))
 168       )
 169     ))
 170
 171 ;; evaluate this to run the tests, either interactively or in batch
 172 (regression-test-compare-expect-buffer
 173  rest-adjust-section-tests
 174  (lambda ()
 175    (call-interactively 'rest-adjust-section-title)))
 176
 177
 178
 179
 180
 181