1  #include <mcheck.h>
       2  #include <stdio.h>
       3  #include <stdlib.h>
       4  
       5  
       6  #ifndef CHAR_T
       7  # define CHAR_T char
       8  # define W(o) o
       9  # define OPEN_MEMSTREAM open_memstream
      10  #endif
      11  
      12  #define S(s) S1 (s)
      13  #define S1(s) #s
      14  
      15  
      16  static void
      17  mcheck_abort (enum mcheck_status ev)
      18  {
      19    printf ("mecheck failed with status %d\n", (int) ev);
      20    exit (1);
      21  }
      22  
      23  
      24  static int
      25  do_test (void)
      26  {
      27    mcheck_pedantic (mcheck_abort);
      28  
      29    CHAR_T *buf = (CHAR_T *) 1l;
      30    size_t len = 12345;
      31    FILE *fp = OPEN_MEMSTREAM (&buf, &len);
      32    if (fp == NULL)
      33      {
      34        printf ("%s failed\n", S(OPEN_MEMSTREAM));
      35        return 1;
      36      }
      37  
      38    for (int outer = 0; outer < 800; ++outer)
      39      {
      40        for (int inner = 0; inner < 100; ++inner)
      41  	if (fputc (W('a') + (outer * 100 + inner) % 26, fp) == EOF)
      42  	  {
      43  	    printf ("fputc at %d:%d failed\n", outer, inner);
      44  	    return 1;
      45  	  }
      46  
      47        if (fflush (fp) != 0)
      48  	{
      49  	  puts ("fflush failed");
      50  	  return 1;
      51  	}
      52  
      53        if (len != (outer + 1) * 100)
      54  	{
      55  	  printf ("string in round %d not %d bytest long\n",
      56  		  outer + 1, (outer + 1) * 100);
      57  	  return 1;
      58  	}
      59        if (buf == (CHAR_T *) 1l)
      60  	{
      61  	  printf ("round %d: buf not updated\n", outer + 1);
      62  	  return 1;
      63  	}
      64        for (int inner = 0; inner < (outer + 1) * 100; ++inner)
      65  	if (buf[inner] != W('a') + inner % 26)
      66  	  {
      67  	    printf ("round %d: buf[%d] != '%c'\n", outer + 1, inner,
      68  		    (char) (W('a') + inner % 26));
      69  	    return 1;
      70  	  }
      71      }
      72  
      73    buf = (CHAR_T *) 1l;
      74    len = 12345;
      75    if (fclose (fp) != 0)
      76      {
      77        puts ("fclose failed");
      78        return 1;
      79      }
      80  
      81    if (len != 800 * 100)
      82      {
      83        puts ("string after close not 80000 bytes long");
      84        return 1;
      85      }
      86    if (buf == (CHAR_T *) 1l)
      87      {
      88        puts ("buf not updated");
      89        return 1;
      90      }
      91    for (int inner = 0; inner < 800 * 100; ++inner)
      92      if (buf[inner] != W('a') + inner % 26)
      93        {
      94  	printf ("after close: buf[%d] != %c\n", inner,
      95  		(char) (W('a') + inner % 26));
      96  	return 1;
      97        }
      98  
      99    free (buf);
     100  
     101    return 0;
     102  }
     103  
     104  #define TIMEOUT 100
     105  #define TEST_FUNCTION do_test ()
     106  #include "../test-skeleton.c"