home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SHDK_2.ZIP / TESTSHDK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-17  |  1.5 KB  |  79 lines
  1. {$I SHDEFINE.INC}
  2.  
  3. {$IFDEF Gen87}
  4.   {$N+,E+}
  5. {$ELSE}
  6.   {$N-}
  7. {$ENDIF}
  8.  
  9. {$IFNDEF EmulationOK}
  10.   {$E-}
  11. {$ENDIF}
  12.  
  13. {$F+}
  14.  
  15. program TestShdk;
  16. {
  17.                            Test suite driver
  18.                                 for the
  19.                       SkyHawk Developer's ToolKit.
  20.  
  21.                   Copyright 1991 Madison & Associates
  22.                           All Rights Reserved
  23.  
  24.          This program source file and the associated executable
  25.          file may be  used and distributed  only in  accordance
  26.          with the  provisions  described  on  the title page of
  27.                   the accompanying documentation file
  28.                               SKYHAWK.DOC
  29. }
  30. uses
  31. {$IFDEF OverlaysOK}
  32.   OverShdk,
  33.   Overlay,
  34. {$ENDIF}
  35.  
  36.   TestDrvr,   Dos,
  37.  
  38.   TestBetw,   TestCmpx,   TestColr,   TestCrc,    TestDate,
  39.   TestFin,    TestList,   TestUtil,
  40.  
  41.   ShClrDef,   ShCmplx,    ShCrcChk,   ShDatPk,    ShFinanc,
  42.   ShList,     ShUtilPk,
  43.  
  44.   TPString,   TpCrt,      TPCmd,      TpDos,      TpEdit,
  45.   TpMemChk,   TpWindow,   TPMenu,
  46.  
  47.   ShErrMsg,   ExecSwap;
  48.  
  49. {$IFDEF OverlaysOK}
  50.   {$O DOS}
  51.  
  52.   {$O TESTBETW}
  53.   {$O TESTCMPX}
  54.   {$O TESTCOLR}
  55.   {$O TESTCRC}
  56.   {$O TESTDATE}
  57.   {$O TESTFIN}
  58.   {$O TESTLIST}
  59.   {$O TESTUTIL}
  60.  
  61.   {$O SHCLRDEF}
  62.   {$O SHCMPLX}
  63.   {$O SHCRCCHK}
  64.   {$O SHDATPK}
  65.   {$O SHFINANC}
  66.   {$O SHLIST}
  67.  
  68.   {$O TPDOS}
  69.   {$O TPEDIT}
  70.   {$O TPMEMCHK}
  71.   {$O TPWINDOW}
  72. {$ENDIF}
  73.  
  74. begin
  75.   InitExecF := InitExecSwap;
  76.   ExecSwapF := ExecWithSwap;
  77.   DoTests;
  78.   end.
  79.