[#18961] Use const char * where appropriate (2.5)
[blender-staging.git] / intern / guardedalloc / test / simpletest / memtest.c
1 /**
2  * $Id$
3  * ***** BEGIN GPL LICENSE BLOCK *****
4  *
5  * This program is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU General Public License
7  * as published by the Free Software Foundation; either version 2
8  * of the License, or (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software Foundation,
17  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18  *
19  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
20  * All rights reserved.
21  *
22  * The Original Code is: all of this file.
23  *
24  * Contributor(s): none yet.
25  *
26  * ***** END GPL LICENSE BLOCK *****
27  */
28
29 /**
30
31  * $Id$
32  * Copyright (C) 2001 NaN Technologies B.V.
33  * Simple test of memory.
34  */
35
36
37
38 /* Number of chunks to test with */
39 #define NUM_BLOCKS 10
40
41 #include <stdio.h>
42 #include <string.h>
43 #include <stdlib.h>
44 #include "MEM_guardedalloc.h"
45
46 #ifdef HAVE_CONFIG_H
47 #include <config.h>
48 #endif
49
50 static void mem_error_cb(const char *errorStr)
51 {
52         fprintf(stderr, "%s", errorStr);
53         fflush(stderr);
54 }
55
56 int main (int argc, char *argv[])
57 {
58         int verbose       = 0;
59         int error_status  = 0;
60         int retval        = 0;
61         int *ip;
62
63         void *p[NUM_BLOCKS];
64         int i = 0;
65
66         /* ----------------------------------------------------------------- */
67         switch (argc) {
68         case 2:         
69                 verbose = atoi(argv[1]);
70                 if (verbose < 0) verbose = 0;
71                 break;          
72         case 1:
73         default:
74                 verbose = 0;
75         }
76         if (verbose) {
77                 fprintf(stderr,"\n*** Simple memory test\n|\n");
78         }
79
80         /* ----------------------------------------------------------------- */
81         /* Round one, do a normal allocation, and free the blocks again.     */
82         /* ----------------------------------------------------------------- */
83         /* flush mem lib output to stderr */
84         MEM_set_error_callback(mem_error_cb);
85         
86         for (i = 0; i < NUM_BLOCKS; i++) {
87                 int blocksize = 10000;
88                 char tagstring[1000];
89                 if (verbose >1) printf("|--* Allocating block %d\n", i);
90                 sprintf(tagstring,"Memblock no. %d : ", i);
91                 p[i]= MEM_callocN(blocksize, strdup(tagstring));
92         }
93
94         /* report on that */
95         if (verbose > 1) MEM_printmemlist();
96
97         /* memory is there: test it */
98         error_status = MEM_check_memory_integrity();
99
100         if (verbose) {
101                 if (error_status) {
102                         fprintf(stderr, "|--* Memory test FAILED\n|\n");
103                 } else {
104                         fprintf(stderr, "|--* Memory tested as good (as it should be)\n|\n");
105                 }
106         } 
107
108         for (i = 0; i < NUM_BLOCKS; i++) {
109                 MEM_freeN(p[i]);
110         }
111
112         /* ----------------------------------------------------------------- */
113         /* Round two, do a normal allocation, and corrupt some blocks.       */
114         /* ----------------------------------------------------------------- */
115         /* switch off, because it will complain about some things.           */
116         MEM_set_error_callback(NULL);
117
118         for (i = 0; i < NUM_BLOCKS; i++) {
119                 int blocksize = 10000;
120                 char tagstring[1000];
121                 if (verbose >1) printf("|--* Allocating block %d\n", i);
122                 sprintf(tagstring,"Memblock no. %d : ", i);
123                 p[i]= MEM_callocN(blocksize, strdup(tagstring));
124         }
125
126         /* now corrupt a few blocks...*/
127         ip = (int*) p[5] - 50 ;
128         for (i = 0; i< 1000; i++,ip++) *ip = i+1;
129         ip = (int*) p[6];
130         *(ip+10005) = 0;
131         
132         retval = MEM_check_memory_integrity();
133
134         /* the test should have failed */
135         error_status |= !retval;                
136         if (verbose) {
137                 if (retval) {
138                         fprintf(stderr, "|--* Memory test failed (as it should be)\n");
139                 } else {
140                         fprintf(stderr, "|--* Memory test FAILED to find corrupted blocks \n");
141                 }
142         } 
143         
144         for (i = 0; i < NUM_BLOCKS; i++) {
145                 MEM_freeN(p[i]);
146         }
147
148
149         if (verbose && error_status) {
150                 fprintf(stderr,"|--* Memory was corrupted\n");
151         }
152         /* ----------------------------------------------------------------- */ 
153         if (verbose) {
154                 if (error_status) {
155                         fprintf(stderr,"|\n|--* Errors were detected\n");
156                 } else {
157                         fprintf(stderr,"|\n|--* Test exited succesfully\n");
158                 }
159                 
160                 fprintf(stderr,"|\n*** Finished test\n\n");
161         }
162         return error_status;
163 }
164
165