[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv18130

Modified Files:
	slime-c-p-c.el slime-autodoc.el ChangeLog 
Log Message:
	* slime-autodoc.el (autodoc.1 [test]): Add a test case involving
	DEFMETHOD.

	* slime-c-p-c.el (complete-form [test]): New test. Fails for the
	moment.

	Reported by Matthias Koeppe.


--- /project/slime/cvsroot/slime/contrib/slime-c-p-c.el	2009/12/21 16:03:41	1.16
+++ /project/slime/cvsroot/slime/contrib/slime-c-p-c.el	2009/12/23 08:34:17	1.17
@@ -206,4 +206,36 @@
   (let ((completions (slime-completions prefix)))
     (slime-test-expect "Completion set" expected-completions completions)))
 
+(def-slime-test complete-form
+    (buffer-sexpr wished-completion)
+    ""
+    '(("(defmethod swank::arglist-dispatch *HERE*"
+       "(defmethod swank::arglist-dispatch (operator arguments) body...)"))
+  (slime-check-top-level)
+  (with-temp-buffer
+    (setq slime-buffer-package "COMMON-LISP-USER")
+    (lisp-mode)
+    (insert buffer-sexpr)
+    (search-backward "*HERE*")
+    (delete-region (match-beginning 0) (match-end 0))
+    (slime-complete-form)
+    (slime-check-completed-form buffer-sexpr wished-completion)
+
+    ;; Now the same but with trailing `)' for paredit users...
+    (erase-buffer)
+    (insert buffer-sexpr)
+    (search-backward "*HERE*")
+    (delete-region (match-beginning 0) (match-end 0))
+    (insert ")") (backward-char)
+    (slime-complete-form)
+    (slime-check-completed-form (concat buffer-sexpr ")") wished-completion)
+    ))
+
+(defun slime-check-completed-form (buffer-sexpr wished-completion)
+  (slime-test-expect (format "Completed form for `%s' is as expected"
+                              buffer-sexpr)
+                     wished-completion
+                     (buffer-string)
+                     'equal))
+
 (provide 'slime-c-p-c)
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2009/12/21 16:03:41	1.25
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2009/12/23 08:34:17	1.26
@@ -279,6 +279,8 @@
       ("(swank::symbol-status foo *HERE*" 
        "(symbol-status symbol &optional ===> (package (symbol-package symbol)) <===)")
 
+      ("(defmethod swank::arglist-dispatch (*HERE*"
+       "(defmethod arglist-dispatch (===> operator <=== arguments) &body body)")
       ("(apply 'swank::eval-for-emacs*HERE*"
        "(apply 'eval-for-emacs &optional form buffer-package id &rest args)")
 
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/22 09:31:15	1.315
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/23 08:34:17	1.316
@@ -1,3 +1,13 @@
+2009-12-23  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-autodoc.el (autodoc.1 [test]): Add a test case involving
+	DEFMETHOD.
+
+	* slime-c-p-c.el (complete-form [test]): New test. Fails for the
+	moment.
+
+	Reported by Matthias Koeppe.
+
 2009-12-22  Helmut Eller  <heller at common-lisp.net>
 
 	Commands to save&restore image files without disconnecting.