[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv25625

Modified Files:
	slime.el 
Log Message:
(complete-symbol, arglist): Updated test cases for new completion
code.

Date: Fri Nov 28 18:28:14 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.116 slime/slime.el:1.117
--- slime/slime.el:1.116	Fri Nov 28 15:03:22 2003
+++ slime/slime.el	Fri Nov 28 18:28:13 2003
@@ -4029,14 +4029,18 @@
 (def-slime-test complete-symbol
     (prefix expected-completions)
     "Find the completions of a symbol-name prefix."
-    '(("cl:compile" ("cl:compile" "cl:compile-file" "cl:compile-file-pathname"
-                     "cl:compiled-function" "cl:compiled-function-p"
-                     "cl:compiler-macro" "cl:compiler-macro-function"))
-      ("cl:foobar" nil)
-      ("cl::compile-file" ("cl::compile-file" "cl::compile-file-pathname")))
+    '(("cl:compile" (("cl:compile" "cl:compile-file" "cl:compile-file-pathname"
+                      "cl:compiled-function" "cl:compiled-function-p" "cl:compiler-macro"
+                      "cl:compiler-macro-function")
+                     "cl:compile"))
+      ("cl:foobar" (nil ""))
+      ("cl::compile-file" (("cl::compile-file" "cl::compile-file-pathname")
+                           "cl::compile-file"))
+      ("cl:m-v-l" (("cl:multiple-value-list" "cl:multiple-values-limit")
+                   "cl:multiple-value-li")))
   (let ((completions (slime-completions prefix)))
     (slime-check "Completion set is as expected."
-      (equal expected-completions (sort completions 'string<)))))
+      (equal expected-completions completions))))
 
 (def-slime-test arglist
     (function-name expected-arglist)
@@ -4044,8 +4048,8 @@
 Confirm that EXPECTED-ARGLIST is displayed."
     '(("swank:start-server"
        "(swank:start-server port-file-namestring)")
-      ("swank::string-prefix-p"
-       "(swank::string-prefix-p s1 s2)"))
+      ("swank::compound-string-match"
+       "(swank::compound-string-match string1 string2)"))
   (let ((arglist (slime-get-arglist function-name))) ;
     (slime-check ("Argument list %S is as expected." arglist)
       (string= expected-arglist arglist))))