home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / utilitys / chx8012b.arc / TESTCDOS.C < prev    next >
Text File  |  1990-07-21  |  2KB  |  115 lines
  1. /*  testchx.c -- test the Check Register Program under Concurrent DOS 8-16  */
  2.  
  3. #include    "a:bdscio.h"
  4.  
  5. main()
  6. {
  7.     test1();
  8.     test2();
  9.     type1();
  10.     type2();
  11. }
  12.  
  13. test1()
  14. {
  15.     char i, bufout[ BUFSIZ];
  16.  
  17.     puts( "\ntest1:\n");
  18.     reset();
  19.     if ( fcreat( "TEST.$$$", bufout) == ERROR)
  20.         abort( "create");
  21.     puts( "writing TEST.$$$: ");
  22.     for ( i = 0; i < 20; ++i)
  23.     {
  24.         putc( '1', bufout);
  25.         putchar( '1');
  26.     }
  27.     putc( CPMEOF, bufout);
  28.     if ( fclose( bufout) == ERROR)
  29.         abort( "close");
  30.     unlink( "TEST1");
  31.     puts( "\nrenaming TEST1=TEST.$$$\n");
  32.     if ( rename( "TEST.$$$", "TEST1") == ERROR)
  33.         abort( "rename");
  34. }
  35.  
  36. test2()
  37. {
  38.     char i, bufout[ BUFSIZ];
  39.  
  40.     puts( "\ntest2:\n");
  41.     reset();
  42.     if ( fcreat( "TEST.$$$", bufout) == ERROR)
  43.         abort( "create");
  44.     puts( "writing TEST.$$$: ");
  45.     for ( i = 0; i < 20; ++i)
  46.     {
  47.         putc( '2', bufout);
  48.         putchar( '2');
  49.     }
  50.     putc( CPMEOF, bufout);
  51.     if ( fclose( bufout) == ERROR)
  52.         abort( "close");
  53.     unlink( "TEST2");
  54.     puts( "\nrenaming TEST2=TEST.$$$\n");
  55.     if ( rename( "TEST.$$$", "TEST2") == ERROR)
  56.         abort( "rename");
  57. }
  58.  
  59. type1()
  60. {
  61.     char i, bufin[ BUFSIZ];
  62.  
  63.     puts( "\ntype1:\n");
  64.     if ( fopen( "TEST1", bufin) == ERROR)
  65.         abort( "open");
  66.     puts( "reading TEST1: ");
  67.     while (( i = getc( bufin)) != CPMEOF && i != ERROR)
  68.         putchar( i);
  69.     putchar( '\n');
  70.     if ( fclose( bufin) == ERROR)
  71.         abort( "close");
  72. }
  73.  
  74. type2()
  75. {
  76.     char i, bufin[ BUFSIZ];
  77.  
  78.     puts( "\ntype2:\n");
  79.     if ( fopen( "TEST2", bufin) == ERROR)
  80.         abort( "open");
  81.     puts( "reading TEST2: ");
  82.     while (( i = getc( bufin)) != CPMEOF && i != ERROR)
  83.         putchar( i);
  84.     putchar( '\n');
  85.     if ( fclose( bufin) == ERROR)
  86.         abort( "close");
  87. }
  88.  
  89. reset()
  90. {
  91.     int d;
  92.  
  93.     d = bdos( 25, 0) & 0x0f;    /*  currently selected drive  */
  94.     bdos( 13, 0);            /*  reset  */
  95.     bdos( 14, d);            /*  reselect  */
  96. }
  97.  
  98. abort( s)
  99. char *s;
  100. {
  101.     puts( "\nERROR: could not ");
  102.     puts( s);
  103.     puts( " file");
  104.     exit();
  105. }
  106. );            /*  reselect  */
  107. }
  108.  
  109. abort( s)
  110. char *s;
  111. {
  112.     puts( "\nERROR: could not ");
  113.     puts( s);
  114.     puts( " file");
  115.