unmaintained/mad/mad-tests.factor

   1 ! Copyright (C) 2007 Adam Wendt.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 !
   4 IN: temporary
   5
   6 USING: kernel mad mad.api alien alien.c-types tools.test
   7 namespaces ;
   8
   9 : setup-buffer ( -- )
  10   0 <alien> buffer-start set 0 buffer-length set ;
  11
  12 [ t ] [ 0 "mad_stream" malloc-object setup-buffer input MAD_FLOW_STOP = ] unit-test