Fix buttons tests

db4
Slava Pestov 2008-07-11 13:49:00 -05:00
parent bedae67732
commit ba0e227d2d
1 changed files with 1 additions and 1 deletions

View File

@ -16,7 +16,7 @@ TUPLE: foo-gadget ;
T{ foo-gadget } <toolbar> "t" set
[ 2 ] [ "t" get gadget-children length ] unit-test
[ "Foo A" ] [ "t" get gadget-child gadget-child gadget-child label-string ] unit-test
[ "Foo A" ] [ "t" get gadget-child gadget-child label-string ] unit-test
[ ] [
2 <model> {