3 (luna-define-class test-riece-url (lunit-test-case))
5 (luna-define-method test-riece-url-replace-match ((case test-riece-url))
7 (insert "111\n222\n333\n")
8 (goto-char (point-min))
9 (re-search-forward "2\\(2\\)2")
12 (equal (save-match-data
13 (riece-url-replace-match "\\&"))
17 (equal (save-match-data
18 (riece-url-replace-match "\\0"))
22 (equal (save-match-data
23 (riece-url-replace-match "\\1"))
27 (equal (save-match-data
28 (riece-url-replace-match "\\\\"))
31 (luna-define-method test-riece-url-regexp-alist ((case test-riece-url))
33 (insert "Bug#12345\n")
34 (let ((riece-url-regexp-alist
35 '(("\\bBug#\\([0-9]+\\)\\b" .
36 "http://bugs.debian.org/\\1")))
39 (riece-url-scan-region (point-min) (point-max))
42 (member "http://bugs.debian.org/12345" riece-urls)))))