basis/ui/gadgets/presentations/presentations-tests.factor

   1 USING: math ui.gadgets.presentations ui.gadgets tools.test
   2 prettyprint ui.gadgets.buttons io io.streams.string kernel
   3 classes.tuple accessors ;
   4 IN: ui.gadgets.presentations.tests
   5
   6 { t } [
   7     "Hi" \ + <presentation> gadget?
   8 ] unit-test
   9
  10 { "+" } [
  11     [
  12         \ + f \ pprint <command-button> dup quot>> call
  13     ] with-string-writer
  14 ] unit-test