Formerly ../string/testcopy.c.~2~
[kopensolaris-gnu/glibc.git] / string / testcopy.c
1 /* Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
2    Contributed by Torbjorn Granlund (tege@sics.se).
3
4 This file is part of the GNU C Library.
5
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public License as
8 published by the Free Software Foundation; either version 2 of the
9 License, or (at your option) any later version.
10
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 Library General Public License for more details.
15
16 You should have received a copy of the GNU Library General Public
17 License along with the GNU C Library; see the file COPYING.LIB.  If
18 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
19 Cambridge, MA 02139, USA.  */
20
21 #include <ansidecl.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <malloc.h>
25
26 int
27 DEFUN(main, (argc, argv),
28       int argc AND char **argv)
29 {
30   char *mem, *memp;
31   char *rand_mem;
32   char *lo_around, *hi_around;
33   int size, max_size;
34   int src_off, dst_off;
35   int i;
36   int space_around = 10;
37
38   max_size = 256;
39
40   mem = malloc (max_size + 2 * max_size + 2 * space_around);
41   rand_mem = malloc (max_size);
42   lo_around = malloc (space_around);
43   hi_around = malloc (space_around);
44   memp = mem + space_around;
45
46   /* Fill RAND_MEM with random bytes, each non-zero.  */
47   for (i = 0; i < max_size; i++)
48     {
49       int x;
50       do
51         x = random ();
52       while (x == 0);
53       rand_mem[i] = x;
54     }
55
56   for (size = 0; size < max_size; size++)
57     {
58       printf("phase %d\n", size);
59       for (src_off = 0; src_off <= 16; src_off++)
60         {
61           for (dst_off = 0; dst_off <= 16; dst_off++)
62             {
63               /* Put zero around the intended destination, to check
64                  that it's not clobbered.  */
65               for (i = 1; i < space_around; i++)
66                 {
67                   memp[dst_off - i] = 0;
68                   memp[dst_off + size - 1 + i] = 0;
69                 }
70
71               /* Fill the source area with known contents.  */
72               for (i = 0; i < size; i++)
73                 memp[src_off + i] = rand_mem[i];
74
75               /* Remember the contents around the destination area.
76                  (It might not be what we wrote some lines above, since
77                  the src area and the dst area overlap.)  */
78               for (i = 1; i < space_around; i++)
79                 {
80                   lo_around[i] = memp[dst_off - i];
81                   hi_around[i] = memp[dst_off + size - 1 + i];
82                 }
83
84               memmove (memp + dst_off, memp + src_off, size);
85
86               /* Check that the destination area has the same
87                  contents we wrote to the source area.  */
88               for (i = 0; i < size; i++)
89                 {
90                   if (memp[dst_off + i] != rand_mem[i])
91                     abort ();
92                 }
93
94               /* Check that the area around the detination is not
95                  clobbered.  */
96               for (i = 1; i < space_around; i++)
97                 {
98                   if (memp[dst_off - i] != lo_around[i])
99                     abort ();
100                   if (memp[dst_off + size - 1 + i] != hi_around[i])
101                     abort ();
102                 }
103             }
104         }
105     }
106
107   return 0;
108 }