core/io/streams/memory/memory-tests.factor

   1 ! (c)2011 Joe Groff bsd license
   2 USING: alien.data destructors io io.streams.memory kernel libc
   3 tools.test ;
   4 IN: io.streams.memory.tests
   5
   6 { 1 2 3 } [
   7     B{ 1 2 3 } <memory-stream>
   8     [ stream-read1 ] [ stream-read1 ] [ stream-read1 ] tri
   9 ] unit-test
  10
  11 { 1 2 3 } [
  12     [
  13         B{ 1 2 3 } malloc-byte-array &free <memory-stream>
  14         [ stream-read1 ] [ stream-read1 ] [ stream-read1 ] tri
  15     ] with-destructors
  16 ] unit-test
  17
  18 { B{ 1 2 3 } B{ 4 5 6 7 8 } } [
  19     B{ 1 2 3 4 5 6 7 8 } <memory-stream>
  20     [ 3 swap stream-read ] [ 5 swap stream-read ] bi
  21 ] unit-test
  22
  23 { B{ 1 2 3 } B{ 4 5 6 7 8 } } [
  24     [
  25         B{ 1 2 3 4 5 6 7 8 } malloc-byte-array &free <memory-stream>
  26         [ 3 swap stream-read ] [ 5 swap stream-read ] bi
  27     ] with-destructors
  28 ] unit-test