Update of /project/mcclim/cvsroot/mcclim/Tests In directory common-lisp.net:/tmp/cvs-serv25896/Tests

Modified Files: commands.lisp Log Message: Whoops. Fix obvious thinko

Date: Fri Sep 30 18:02:40 2005 Author: crhodes

Index: mcclim/Tests/commands.lisp diff -u mcclim/Tests/commands.lisp:1.1 mcclim/Tests/commands.lisp:1.2 --- mcclim/Tests/commands.lisp:1.1 Fri Sep 30 18:01:32 2005 +++ mcclim/Tests/commands.lisp Fri Sep 30 18:02:33 2005 @@ -35,7 +35,7 @@ (lambda (menu-name gesture item) (incf count) (assert - (and (equal menu-name nil) + (and (equal menu-name "Test") (equal gesture '(:keyboard #\u 0)) (equal (command-menu-item-value item) (lookup-keystroke-command-item gesture 'menu-test-table)))))