12 lines
308 B
Factor
12 lines
308 B
Factor
|
! Copyright (C) 2007 Adam Wendt.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
!
|
||
|
|
IN: temporary
|
||
|
|
|
||
|
|
USING: kernel mad alien test namespaces ;
|
||
|
|
|
||
|
|
: setup-buffer ( -- )
|
||
|
|
0 <alien> buffer-start set 0 buffer-length set ;
|
||
|
|
|
||
|
|
[ t ] [ 0 "mad_stream" malloc-object setup-buffer input MAD_FLOW_STOP = ] unit-test
|