+(require 'riece-url)
+
+(luna-define-class test-riece-url (lunit-test-case))
+
+(luna-define-method test-riece-url-replace-match ((case test-riece-url))
+ (with-temp-buffer
+ (insert "111\n222\n333\n")
+ (goto-char (point-min))
+ (re-search-forward "2\\(2\\)2")
+ (lunit-assert
+ (equal (save-match-data
+ (riece-url-replace-match "\\&"))
+ "222"))
+ (lunit-assert
+ (equal (save-match-data
+ (riece-url-replace-match "\\0"))
+ "\\0"))
+ (lunit-assert
+ (equal (save-match-data
+ (riece-url-replace-match "\\1"))
+ "2"))
+ (lunit-assert
+ (equal (save-match-data
+ (riece-url-replace-match "\\\\"))
+ "\\"))))
+
+(luna-define-method test-riece-url-regexp-alist ((case test-riece-url))
+ (with-temp-buffer
+ (insert "Bug#12345\n")
+ (let ((riece-url-regexp-alist
+ '(("\\bBug#\\([0-9]+\\)\\b" .
+ "http://bugs.debian.org/\\1")))
+ riece-urls
+ riece-addons)
+ (riece-url-scan-region (point-min) (point-max))
+ (lunit-assert
+ (member "http://bugs.debian.org/12345" riece-urls)))))