! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: accessors calendar curses kernel threads tools.test strings sequences random ; IN: curses.tests : hello-curses ( -- ) [ "Hello Curses!" [ dup cmove addch ] each-index crefresh 2 seconds sleep ] with-curses ; : hello-curses-color ( -- ) [ "Hello Curses!" [ 8 random 8 random ccolor addch ] each crefresh 2 seconds sleep ] with-curses ; curses-ok? [ [ ] [ hello-curses ] unit-test [ ] [ hello-curses-color ] unit-test ] when