Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-496
Creator: Magnus Henoch <mange@freemail.hu> s/insert-file-literally/insert-file-contents-literally/
This commit is contained in:
parent
38552928ab
commit
afcd7ec834
|
@ -11,7 +11,7 @@
|
||||||
(progn
|
(progn
|
||||||
(jabber-history-log-message "in" "romeo@montague.net/Balcony" nil "hi" our-time)
|
(jabber-history-log-message "in" "romeo@montague.net/Balcony" nil "hi" our-time)
|
||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
(insert-file-literally jabber-global-history-filename)
|
(insert-file-contents-literally jabber-global-history-filename)
|
||||||
(let ((expected "\\[\"\\([^\"]+\\)\" \"in\" \"romeo@montague.net/Balcony\" \"me\" \"hi\"]\n")
|
(let ((expected "\\[\"\\([^\"]+\\)\" \"in\" \"romeo@montague.net/Balcony\" \"me\" \"hi\"]\n")
|
||||||
(actual (buffer-string)))
|
(actual (buffer-string)))
|
||||||
(unless (string-match expected actual)
|
(unless (string-match expected actual)
|
||||||
|
|
Loading…
Reference in New Issue