16 lines
466 B
Factor
16 lines
466 B
Factor
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors io io.serial io.serial.unix kernel literals
|
|
math.bitwise tools.test ;
|
|
IN: io.serial.unix
|
|
|
|
: <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
|