15 lines
346 B
Factor
15 lines
346 B
Factor
USING: math ui.gadgets.presentations ui.gadgets tools.test
|
|
prettyprint ui.gadgets.buttons io io.streams.string kernel
|
|
classes.tuple accessors ;
|
|
IN: ui.gadgets.presentations.tests
|
|
|
|
{ t } [
|
|
"Hi" \ + <presentation> gadget?
|
|
] unit-test
|
|
|
|
{ "+" } [
|
|
[
|
|
\ + f \ pprint <command-button> dup quot>> call
|
|
] with-string-writer
|
|
] unit-test
|