From d2ceb0e306fe970421d083682025457397e7286d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw=20Czerpak?= <druzus@poczta.onet.pl>
Date: Tue, 25 Mar 2014 00:38:18 +0100
Subject: [PATCH] 2014-03-25 00:38 UTC+0100 Przemyslaw Czerpak
 (druzus/at/poczta.onet.pl)   * tests/iotcp.prg     ! fixed typo in macro name
 - thanks to Itamar for the info

---
 ChangeLog.txt   |  4 ++++
 tests/iotcp.prg | 10 +++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/ChangeLog.txt b/ChangeLog.txt
index 192224c23c..b5cf92f736 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -10,6 +10,10 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2014-03-25 00:38 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * tests/iotcp.prg
+    ! fixed typo in macro name - thanks to Itamar for the info
+
 2014-03-24 22:19 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * include/Makefile
   + include/hbiousr.ch
diff --git a/tests/iotcp.prg b/tests/iotcp.prg
index 6f38d04c29..410eec51b5 100644
--- a/tests/iotcp.prg
+++ b/tests/iotcp.prg
@@ -54,7 +54,7 @@
 
 ANNOUNCE HB_IOTCP
 
-#define IOTCP_SCOKET          1
+#define IOTCP_SOCKET          1
 #define IOTCP_EOF             2
 #define IOTCP_TIMEOUT         3
 
@@ -144,7 +144,7 @@ RETURN aFile /* if aFile == NIL indicates error */
 
 
 STATIC FUNCTION IOTCP_Close( aFile )
-   hb_socketClose( aFile[ IOTCP_SCOKET ] )
+   hb_socketClose( aFile[ IOTCP_SOCKET ] )
    IOUSR_SetError( hb_socketGetError(), IOTCP_ERRORBASE )
 RETURN NIL
 
@@ -156,7 +156,7 @@ STATIC FUNCTION IOTCP_Read( aFile, /*@*/ cData, nLen, nTimeout )
       IF nTimeout == -1
          nTimeout := aFile[ IOTCP_TIMEOUT ]
       ENDIF
-      nRead := hb_socketRecv( aFile[ IOTCP_SCOKET ], @cData, nLen, 0, nTimeout )
+      nRead := hb_socketRecv( aFile[ IOTCP_SOCKET ], @cData, nLen, 0, nTimeout )
       nError := hb_socketGetError()
       IF nRead <= 0
          SWITCH nError
@@ -178,7 +178,7 @@ STATIC FUNCTION IOTCP_Write( aFile, cData, nLen, nTimeout )
    IF nTimeout == -1
       nTimeout := aFile[ IOTCP_TIMEOUT ]
    ENDIF
-   nLen := hb_socketSend( aFile[ IOTCP_SCOKET ], cData, nLen, 0, nTimeout )
+   nLen := hb_socketSend( aFile[ IOTCP_SOCKET ], cData, nLen, 0, nTimeout )
    IOUSR_SetError( hb_socketGetError(), IOTCP_ERRORBASE )
 RETURN iif( nLen < 0, 0, nLen )
 
@@ -196,7 +196,7 @@ RETURN .F.
 
 STATIC FUNCTION IOTCP_Handle( aFile )
    IOUSR_SetError( 0, IOTCP_ERRORBASE )
-RETURN hb_socketGetFD( aFile[ IOTCP_SCOKET ] )
+RETURN hb_socketGetFD( aFile[ IOTCP_SOCKET ] )
 
 
 INIT PROCEDURE CLIPINIT