home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / WSC4C21.ZIP / RUNTEST.C < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-22  |  3.2 KB  |  134 lines
  1. /*** runtest ***/
  2.  
  3. #include "windows.h"
  4. #include "wsc.h"
  5. #include "sioerror.h"
  6. #include "paint.h"
  7. #include "line.h"
  8. #include "runtest.h"
  9.  
  10. extern HWND hMainWnd;
  11. extern int  OnLineFlag;
  12. extern char Temp[1024];
  13.  
  14. #define TEST_SIZE 62
  15.  
  16. /* private */
  17.  
  18. static char TestSet[TEST_SIZE+1];
  19. static int  NbrRuns = 16;
  20. static int  TestLength = 0;
  21. static int  TestRun = 0;
  22. int GetChar(int,int);
  23.  
  24. /* public */
  25.  
  26. int RunTest(int Port)
  27. {int i;
  28.  int n;
  29.  int c;
  30.  int rc;
  31.  
  32.  /* initialize */
  33.  if(TestLength==0)
  34.    {/* build TestSet[] array */
  35.     for(i=0;i<26;i++) TestSet[i] = 'A'+i;
  36.     for(i=0;i<26;i++) TestSet[26+i] = 'a'+i;
  37.     for(i=0;i<10;i++) TestSet[52+i] = '0'+i;
  38.     TestSet[62] = '\0';
  39.    }
  40.  
  41.  /* check for loopback adapter */
  42.  SioRxClear(Port);
  43.  SioTxClear(Port);
  44.  SioPutc(Port,'$');
  45.  if( (char)GetChar(Port,500) != '$')
  46.    {DisplayLine("Loopback not detected. See Instructions.");
  47.     return FALSE;
  48.    }
  49.  
  50.  /* run the test */
  51.  wsprintf((LPSTR)Temp,"\n\rTest Run %d\n", ++TestRun);
  52.  DisplayLine(Temp);
  53.  wsprintf((LPSTR)Temp,"Test Set: %s",(LPSTR)TestSet);
  54.  DisplayString(Temp);
  55.  
  56.  /* send test sets */
  57.  DisplayString("\n\r  Sending set: ");
  58.  for(i=0;i<NbrRuns;i++)
  59.     {/* send test set again */
  60.      wsprintf((LPSTR)Temp,"%d ",i);
  61.      DisplayString(Temp);
  62.      for(n=0;n<TEST_SIZE;n++)
  63.         {c = TestSet[n];
  64.          SioPutc(Port,(char)c);
  65.         }
  66.     }
  67.  
  68.  /* receive test sets */
  69.  DisplayString("\n\rReceiving set: ");
  70.  for(i=0;i<NbrRuns;i++)
  71.     {/* receive next test set */
  72.      for(n=0;n<TEST_SIZE;n++)
  73.         {rc = GetChar(Port,1000);
  74.          if(rc<0)
  75.             {SioError(rc,"SioGetc:");
  76.              wsprintf((LPSTR)Temp,"%d bytes in COM%d RX queue\n", SioRxQue(Port),1+Port );
  77.              DisplayLine(Temp);
  78.              wsprintf((LPSTR)Temp,"%d bytes in COM%d TX queue\n", SioTxQue(Port),1+Port );
  79.              DisplayLine(Temp);
  80.              return FALSE;
  81.             }
  82.          /* compare character */
  83.          if((char)rc!=TestSet[n])
  84.            {wsprintf((LPSTR)Temp,"\n\rERROR: Expecting '%c'(0x%x), received '%c'(0x%x)\n",
  85.               (char)rc,(char)rc,TestSet[n],TestSet[n]);
  86.             DisplayLine(Temp);
  87.             return FALSE;
  88.            }
  89.         } /* end-for(n) */
  90.      wsprintf((LPSTR)Temp,"%d ",i);
  91.      DisplayString(Temp);
  92.     } /* end-for(i) */
  93.  
  94.  /* look at results */
  95.  DisplayLine("\n\rSUCCESS: Test AOK !");
  96.  
  97.  /* DTR vs DSR test */
  98.  n = 0;
  99.  SioDTR(Port,'C');
  100.  if(SioDSR(Port)) n++;
  101.  SioDTR(Port,'S');
  102.  if(SioDSR(Port)==0) n++;
  103.  if(n==0) DisplayLine("DTR/DSR test OK");
  104.  else DisplayLine("DTR/DSR test fails [or not connected]");
  105.  
  106.  /* RTS vs CTS test */
  107.  n = 0;
  108.  SioRTS(Port,'C');
  109.  if(SioCTS(Port)) n++;
  110.  SioRTS(Port,'S');
  111.  if(SioCTS(Port)==0) n++;
  112.  if(n==0) DisplayLine("RTS/CTS test OK");
  113.  else DisplayLine("RTS/CTS test fails [or not connected]");
  114.  
  115.  return TRUE;
  116. }
  117.  
  118. int GetChar(int Port, int MilliSecs)
  119. {int   Code;
  120.  int   Flag;
  121.  DWORD Count;
  122.  Flag = 0;
  123.  while(1)
  124.    {Code = SioGetc(Port);
  125.     if(Code!=WSC_NO_DATA) return Code;
  126.     if(Flag==0)
  127.        {Count = GetTickCount() + (DWORD)MilliSecs;
  128.         Flag = 1;
  129.        }
  130.     if(GetTickCount()>Count) break;
  131.    }
  132.  return WSC_NO_DATA;
  133. }
  134.