2008-08-13 16:18:50 -04:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2011-10-08 14:38:43 -04:00
|
|
|
USING: accessors io io.serial io.serial.unix kernel literals
|
|
|
|
|
math.bitwise tools.test ;
|
2009-02-22 18:50:29 -05:00
|
|
|
IN: io.serial.unix
|
2008-08-13 16:18:50 -04:00
|
|
|
|
2011-10-08 14:38:43 -04:00
|
|
|
: <serial-port-test> ( -- serial-port )
|
|
|
|
|
"/dev/ttyS0" 19200 <serial-port> ;
|
|
|
|
|
|
|
|
|
|
: with-serial-port-test ( quot -- )
|
|
|
|
|
[ <serial-port-test> ] dip with-serial-port ; inline
|
|
|
|
|
|
|
|
|
|
! [ ] [
|
|
|
|
|
! [ "hello" over stream-write stream-flush ] with-serial-port-test
|
|
|
|
|
! ] unit-test
|
