extra/curses/curses-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors curses kernel threads tools.test ;
   4 IN: curses.tests
   5
   6 : hello-curses ( -- )
   7     [
   8         curses-window new
   9             "mainwin" >>name
  10         add-curses-window
  11
  12         "mainwin" "hi" curses-printf
  13
  14         2000000 sleep
  15     ] with-curses ;
  16
  17 [
  18 ] [ hello-curses ] unit-test