factor/extra/curses/curses-tests.factor

! 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 ( -- )
    <curses-window> [
        "Hello Curses!" [
            dup cmove addch
        ] each-index
        crefresh

        2 seconds sleep
    ] with-curses ;

: hello-curses-color ( -- )
    <curses-window> [
        "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