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)))