[mcclim-cvs] CVS update: mcclim/Tests/commands.lisp

[Christophe Rhodes]

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