sandbox/gitpull/web_stylesheet_and_menu/tools/editors/emacs/tests/font-lock.el

   1 ;; Tests for font-locking code
   2
   3 (add-to-list 'load-path ".")
   4 (load "init" nil t)
   5 (init-rst-ert t)
   6
   7 (ert-deftest font-lock--asserts ()
   8   "Check some assertions."
   9   (should (equal ert-Buf-point-char "\^@"))
  10   (should (equal ert-Buf-mark-char "\^?"))
  11   )
  12
  13 (ert-deftest rst-forward-indented-block ()
  14   "Tests `rst-forward-indented-block'."
  15   (should (ert-equal-buffer-return
  16            (rst-forward-indented-block)
  17            "\^@abc"
  18            t
  19            nil))
  20   (should (ert-equal-buffer-return
  21            (rst-forward-indented-block)
  22            (concat "  \^@abc
  23
  24 def")
  25            (concat "  abc
  26 \^@
  27 def")
  28            7))
  29   )
  30
  31 (defun extend-region (beg end)
  32   "Wrapper for `rst-font-lock-extend-region-internal'.
  33 Uses and sets region and returns t if region has been changed."
  34   (interactive "r")
  35   (let ((r (rst-font-lock-extend-region-internal beg end)))
  36     (when r
  37       (goto-char (car r))
  38       (set-mark (cdr r))
  39       t)))
  40
  41 (ert-deftest rst-font-lock-extend-region-internal-indent ()
  42   "Tests `rst-font-lock-extend-region-internal'."
  43   (should (ert-equal-buffer-return
  44            (extend-region)
  45            "\^@abc\^?"
  46            t
  47            nil
  48            t))
  49   (should (ert-equal-buffer-return
  50            (extend-region)
  51            "\^@  abc\^?"
  52            t
  53            nil
  54            t))
  55   (should (ert-equal-buffer-return
  56            (extend-region)
  57            "  abc
  58 \^@  def\^?"
  59            "\^@  abc
  60   def\^?"
  61            t
  62            t))
  63   (should (ert-equal-buffer-return
  64            (extend-region)
  65            "  abc
  66 \^@  def
  67 \^?  ghi
  68 uvw"
  69            "\^@  abc
  70   def
  71   ghi
  72 \^?uvw"
  73            t
  74            t))
  75   (should (ert-equal-buffer-return
  76            (extend-region)
  77            "xyz
  78 abc
  79 \^@  def
  80 \^?  ghi"
  81            "xyz
  82 \^@abc
  83   def
  84   ghi\^?"
  85            t
  86            t))
  87   (should (ert-equal-buffer-return
  88            (extend-region)
  89            "xyz
  90   abc::
  91 \^@  def
  92 \^?  ghi
  93 uvw"
  94            "xyz
  95 \^@  abc::
  96   def
  97   ghi
  98 \^?uvw"
  99            t
 100            t))
 101   (should (ert-equal-buffer-return
 102            (extend-region)
 103            "xyz
 104   .. abc
 105 \^@     def
 106 \^?uvw"
 107            "xyz
 108 \^@  .. abc
 109      def
 110 \^?uvw"
 111            t
 112            t))
 113   (should (ert-equal-buffer-return
 114            (extend-region)
 115            "xyz
 116   .. abc
 117      123
 118 \^@       def
 119 \^?
 120 uvw"
 121            "xyz
 122 \^@  .. abc
 123      123
 124        def
 125 \^?
 126 uvw"
 127            t
 128            t))
 129   (should (ert-equal-buffer-return
 130            (extend-region)
 131            "xyz
 132
 133   .. abc
 134
 135      123
 136
 137 \^@       def
 138 \^?
 139 uvw"
 140            "xyz
 141
 142 \^@  .. abc
 143
 144      123
 145
 146        def
 147 \^?
 148 uvw"
 149            t
 150            t))
 151   )
 152
 153 (ert-deftest rst-font-lock-extend-region-internal-adornment ()
 154   "Tests `rst-font-lock-extend-region-internal'."
 155   (should (ert-equal-buffer-return
 156            (extend-region)
 157            "\^@===\^?"
 158            t
 159            nil
 160            t))
 161   (should (ert-equal-buffer-return
 162            (extend-region)
 163            "abc
 164 \^@===\^?"
 165            "\^@abc
 166 ===\^?"
 167            t
 168            t))
 169   (should (ert-equal-buffer-return ; Quite complicated without the trailing newline
 170            (extend-region)
 171            "\^@abc
 172 \^?==="
 173            t
 174            nil
 175            t))
 176   (should (ert-equal-buffer-return
 177            (extend-region)
 178            "\^@abc
 179 \^?===
 180 "
 181            "\^@abc
 182 ===
 183 \^?"
 184            t
 185            t))
 186   (should (ert-equal-buffer-return
 187            (extend-region)
 188            "===
 189 abc
 190 \^@===
 191 \^?"
 192            "\^@===
 193 abc
 194 ===
 195 \^?"
 196            t
 197            t))
 198   (should (ert-equal-buffer-return
 199            (extend-region)
 200            "\^@===
 201 \^?abc
 202 ===
 203 "
 204            "\^@===
 205 abc
 206 ===
 207 \^?"
 208            t
 209            t))
 210   (should (ert-equal-buffer-return
 211            (extend-region)
 212            "def
 213
 214 ===
 215 \^@abc
 216 ===
 217 \^?"
 218            "def
 219
 220 \^@===
 221 abc
 222 ===
 223 \^?"
 224            t
 225            t))
 226   (should (ert-equal-buffer-return
 227            (extend-region)
 228            "def
 229
 230 \^@===
 231 abc
 232 \^?===
 233
 234 xyz"
 235            "def
 236
 237 \^@===
 238 abc
 239 ===
 240 \^?
 241 xyz"
 242            t
 243            t))
 244   )