2015-08-16 13:41:16 -04:00
|
|
|
USING: accessors sequences tools.test ui.gadgets
|
|
|
|
|
ui.gadgets.labeled ;
|
2009-03-14 01:01:18 -04:00
|
|
|
IN: ui.gadgets.labeled.tests
|
|
|
|
|
|
2015-08-16 13:41:16 -04:00
|
|
|
{ t } [
|
|
|
|
|
<gadget> "Hey" <labeled-gadget>
|
|
|
|
|
children>> first content>> gadget?
|
|
|
|
|
] unit-test
|
