basis/io/unix/unix-tests.factor

   1 USING: io.files io.sockets io kernel threads
   2 namespaces tools.test continuations strings byte-arrays
   3 sequences prettyprint system io.encodings.binary io.encodings.ascii
   4 io.streams.duplex destructors make ;
   5 IN: io.unix.tests
   6
   7 ! Unix domain stream sockets
   8 : socket-server "unix-domain-socket-test" temp-file ;
   9
  10 [
  11     [ socket-server delete-file ] ignore-errors
  12
  13     socket-server <local>
  14     ascii <server> [
  15         accept drop [
  16             "Hello world" print flush
  17             readln "XYZ" = "FOO" "BAR" ? print flush
  18         ] with-stream
  19     ] with-disposal
  20
  21     socket-server delete-file
  22 ] "Test" spawn drop
  23
  24 yield
  25
  26 [ { "Hello world" "FOO" } ] [
  27     [
  28         socket-server <local> ascii [
  29             readln ,
  30             "XYZ" print flush
  31             readln ,
  32         ] with-client
  33     ] { } make
  34 ] unit-test
  35
  36 : datagram-server "unix-domain-datagram-test" temp-file ;
  37 : datagram-client "unix-domain-datagram-test-2" temp-file ;
  38
  39 ! Unix domain datagram sockets
  40 [ datagram-server delete-file ] ignore-errors
  41 [ datagram-client delete-file ] ignore-errors
  42
  43 [
  44     [
  45         datagram-server <local> <datagram> "d" set
  46
  47         "Receive 1" print
  48
  49         "d" get receive >r reverse r>
  50
  51         "Send 1" print
  52         dup .
  53
  54         "d" get send
  55
  56         "Receive 2" print
  57
  58         "d" get receive >r " world" append r>
  59
  60         "Send 1" print
  61         dup .
  62
  63          "d" get send
  64
  65         "d" get dispose
  66
  67         "Done" print
  68
  69         datagram-server delete-file
  70     ] with-scope
  71 ] "Test" spawn drop
  72
  73 yield
  74
  75 [ datagram-client delete-file ] ignore-errors
  76
  77 datagram-client <local> <datagram>
  78 "d" set
  79
  80 [ ] [
  81     "hello" >byte-array
  82     datagram-server <local>
  83     "d" get send
  84 ] unit-test
  85
  86 [ "olleh" t ] [
  87     "d" get receive
  88     datagram-server <local> =
  89     >r >string r>
  90 ] unit-test
  91
  92 [ ] [
  93     "hello" >byte-array
  94     datagram-server <local>
  95     "d" get send
  96 ] unit-test
  97
  98 [ "hello world" t ] [
  99     "d" get receive
 100     datagram-server <local> =
 101     >r >string r>
 102 ] unit-test
 103
 104 [ ] [ "d" get dispose ] unit-test
 105
 106 ! Test error behavior
 107 : another-datagram "unix-domain-datagram-test-3" temp-file ;
 108
 109 [ another-datagram delete-file ] ignore-errors
 110
 111 datagram-client delete-file
 112
 113 [ ] [ datagram-client <local> <datagram> "d" set ] unit-test
 114
 115 [ B{ 1 2 3 } another-datagram <local> "d" get send ] must-fail
 116
 117 [ ] [ "d" get dispose ] unit-test
 118
 119 ! See what happens on send/receive after close
 120
 121 [ "d" get receive ] must-fail
 122
 123 [ B{ 1 2 } datagram-server <local> "d" get send ] must-fail
 124
 125 ! Invalid parameter tests
 126
 127 [
 128     image binary [ input-stream get accept ] with-file-reader
 129 ] must-fail
 130
 131 [
 132     image binary [ input-stream get receive ] with-file-reader
 133 ] must-fail
 134
 135 [
 136     image binary [
 137         B{ 1 2 } datagram-server <local>
 138         input-stream get send
 139     ] with-file-reader
 140 ] must-fail