factor/extra/curses/curses-tests.factor

19 lines
384 B
Factor

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors curses kernel threads tools.test ;
IN: curses.tests
: hello-curses ( -- )
[
curses-window new
"mainwin" >>name
add-curses-window
"mainwin" "hi" curses-printf
2000000 sleep
] with-curses ;
[
] [ hello-curses ] unit-test