cgit.sxemacs.org Git - riece/blob - lisp/test/test-riece-url.el

   1 (require 'riece-url)
   2
   3 (luna-define-class test-riece-url (lunit-test-case))
   4
   5 (luna-define-method test-riece-url-replace-match ((case test-riece-url))
   6   (with-temp-buffer
   7     (insert "111\n222\n333\n")
   8     (goto-char (point-min))
   9     (re-search-forward "2\\(2\\)2")
  10     (lunit-assert
  11      (equal (save-match-data
  12               (riece-url-replace-match "\\&"))
  13             "222"))
  14     (lunit-assert
  15      (equal (save-match-data
  16               (riece-url-replace-match "\\0"))
  17             "\\0"))
  18     (lunit-assert
  19      (equal (save-match-data
  20               (riece-url-replace-match "\\1"))
  21             "2"))
  22     (lunit-assert
  23      (equal (save-match-data
  24               (riece-url-replace-match "\\\\"))
  25             "\\"))))
  26
  27 (luna-define-method test-riece-url-regexp-alist ((case test-riece-url))
  28   (with-temp-buffer
  29     (insert "Bug#12345\n")
  30     (let ((riece-url-regexp-alist
  31            '(("\\bBug#\\([0-9]+\\)\\b" .
  32               "http://bugs.debian.org/\\1")))
  33           riece-urls
  34           riece-addons)
  35       (riece-url-scan-region (point-min) (point-max))
  36       (lunit-assert
  37        (member "http://bugs.debian.org/12345" riece-urls)))))