core/ui/test/panes.factor

   1 IN: temporary
   2 USING: alien gadgets-panes gadgets freetype namespaces kernel
   3 sequences io test prettyprint ;
   4
   5 : #children "pane" get gadget-children length ;
   6
   7 [
   8     <pane> "pane" set
   9
  10     #children "num-children" set
  11
  12     "pane" get <pane-stream> [ 10000 [ . ] each ] with-stream*
  13
  14     [ t ] [ #children "num-children" get = ] unit-test
  15 ] with-freetype