From: Magnus H. <leg...@us...> - 2008-06-17 14:49:59
|
Update of /cvsroot/emacs-jabber/emacs-jabber/tests In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv13999/tests Modified Files: nick-change-fail.el Log Message: Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-537 Creator: Magnus Henoch <ma...@fr...> Add timeout to nick-change-fail test Index: nick-change-fail.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/tests/nick-change-fail.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- nick-change-fail.el 17 Jun 2008 14:47:54 -0000 1.1 +++ nick-change-fail.el 17 Jun 2008 14:49:52 -0000 1.2 @@ -68,8 +68,9 @@ (jabberd-connect) -(while (not ncf-done) - (sit-for 0.1)) +(with-timeout (5 (error "Timeout")) + (while (not ncf-done) + (sit-for 0.1))) (when ncf-error (princ (format |