home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TSPAS19.ZIP / TSUNTH.TST < prev    next >
Encoding:
Text File  |  1990-03-21  |  1.2 KB  |  57 lines
  1. (* This is a test program for the TSUNTH.TPU unit 25-Feb-89
  2.    Updated 21-Mar-90 *)
  3.  
  4. uses TSUNTH;
  5.  
  6. procedure LOGO;
  7. begin
  8.   writeln;
  9.   writeln ('TSUNTH unit test by Prof. Timo Salmi, 21-Mar-90');
  10.   writeln ('University of Vaasa, Finland, ts@chyde.uwasa.fi');
  11.   writeln;
  12. end;  (* logo *)
  13.  
  14. (* Testing if graftabl is loaded *)
  15. procedure TEST1;
  16. begin
  17.   if GRTABLFN then
  18.      writeln ('GRAFTABL has been loaded')
  19.    else
  20.      writeln ('GRAFTABL has not been loaded');
  21. end;  (* test1 *)
  22.  
  23. (* Testing if c:\util is a directory *)
  24. procedure TEST2;
  25. var name : string;
  26. begin
  27.   name := 'c:\util';
  28.   writeln (name, ' is directory: ', ISDIRFN (name));
  29.   Flush (output);
  30. end;  (* test2 *)
  31.  
  32. (* Testing copy *)
  33. procedure TEST3;
  34. var file1, file2 : string;
  35.     status       : byte;
  36. begin
  37.   file1 := 'c:\command.com';
  38.   file2 := 'f:\command.com';
  39.   COPYFILE (file1, file2, status);
  40.   if status = 0 then
  41.      writeln (file1, ' copied to ', file2)
  42.    else
  43.      begin
  44.        writeln ('Error in copying ', file1, ' to ', file2);
  45.        writeln ('Status = ', status);
  46.      end;
  47. end;  (* test3 *)
  48.  
  49. (* Main program *)
  50. begin
  51.   LOGO;
  52.   TEST1;
  53.   TEST2;
  54.   TEST3;
  55.   write ('Press <═╝'); readln;
  56. end.  (* tsunth.tst *)
  57.