8.3.1. test/faio/win-1.01.01

Start felix section to test/faio/win-1.01.01-0.flx[1 /1 ]
     1: #line 865 "./lpsrc/flx_faio.pak"
     2: #import <flx.flxh>
     3: include "flx_faio_win32";
     4: open Faio_win32;
     5: 
     6: var port = 1234;  // can't yet get os to choose the port. should fix that.
     7: var listener: SOCKET;
     8: mk_listener(&listener, &port, 1);
     9: 
    10: print "spawning connector\n";
    11: // not printing in thread to make output repeatable in
    12: // the face of scheduler changes.
    13: spawn_fthread{
    14:   {
    15:     var c: SOCKET;
    16:     Connect(&c, c"127.0.0.1", port);
    17:   };
    18: };
    19: 
    20: var s: SOCKET;
    21: var success: bool;
    22: mk_socket(&s);    // for async accept on win32 you create the accept socket yourself
    23: Accept(&success, listener, s);
    24: 
    25: if success then {
    26:   print "successful accept!\n";
    27:   System::exit 0;
    28: } else {
    29:   print "accept failed!\n";
    30:   System::exit 1;
    31: } endif;
End felix section to test/faio/win-1.01.01-0.flx[1]
Start data section to test/faio/win-1.01.01-0.expect[1 /1 ]
     1: spawning connector
     2: successful accept!
End data section to test/faio/win-1.01.01-0.expect[1]