[mcclim-cvs] CVS mcclim/Tests

[varkesteijn]

Update of /project/mcclim/cvsroot/mcclim/Tests
In directory clnet:/tmp/cvs-serv2336/Tests

Modified Files:
	commands.lisp 
Log Message:
* fix remove-command-from-command-table
* add relevant test


--- /project/mcclim/cvsroot/mcclim/Tests/commands.lisp	2005/09/30 16:02:33	1.2
+++ /project/mcclim/cvsroot/mcclim/Tests/commands.lisp	2006/03/23 17:03:40	1.3
@@ -41,3 +41,12 @@
                   (lookup-keystroke-command-item gesture 'menu-test-table)))))
    'menu-test-table)
   (assert (= count 1)))
+
+(define-command-table removal-test-table)
+(add-command-to-command-table 'com-test-command 'removal-test-table)
+(remove-command-from-command-table 'com-test-command 'removal-test-table)
+(assert (handler-case
+            (remove-command-from-command-table 'com-test-command
+                                               'removal-test-table)
+          (command-not-present () t)
+          (:no-error (x) (declare (ignore x)) nil)))