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-2
  11      case
  12      (equal (save-match-data
  13               (riece-url-replace-match "\\&"))
  14             "222"))
  15     (lunit-assert-2
  16      case
  17      (equal (save-match-data
  18               (riece-url-replace-match "\\0"))
  19             "\\0"))
  20     (lunit-assert-2
  21      case
  22      (equal (save-match-data
  23               (riece-url-replace-match "\\1"))
  24             "2"))
  25     (lunit-assert-2
  26      case
  27      (equal (save-match-data
  28               (riece-url-replace-match "\\\\"))
  29             "\\"))))
  30
  31 (luna-define-method test-riece-url-regexp-alist ((case test-riece-url))
  32   (with-temp-buffer
  33     (insert "Bug#12345\n")
  34     (let ((riece-url-regexp-alist
  35            '(("\\bBug#\\([0-9]+\\)\\b" .
  36               "http://bugs.debian.org/\\1")))
  37           riece-urls
  38           riece-addons)
  39       (riece-url-scan-region (point-min) (point-max))
  40       (lunit-assert-2
  41        case
  42        (member "http://bugs.debian.org/12345" riece-urls)))))