source: tests/malloc.cfa @ 08e0d65

Last change on this file since 08e0d65 was 116a2ea, checked in by Peter A. Buhr <pabuhr@…>, 2 years ago

new heap and associated tests updated
  • Property mode set to 100644
File size: 13.0 KB
RevLine 
[116a2ea]1#include <fstream.hfa>                                                                  // sout
[191a190]2#include <malloc.h>                                                                             // malloc_usable_size
3#include <stdint.h>                                                                             // uintptr_t
4#include <stdlib.hfa>                                                                   // access C malloc, realloc
5#include <unistd.h>                                                                             // getpagesize
6
7int tests_total;
8int tests_failed;
9size_t tAlign = 32;
[116a2ea]10struct S1 { int data; } __attribute__(( aligned(32)));
[191a190]11typedef struct S1 T1;
12
[116a2ea]13void test_base( void * ip, size_t size, size_t align ) {
[191a190]14        tests_total += 1;
[116a2ea]15        bool passed = (malloc_size( ip ) == size) && (malloc_usable_size( ip ) >= size) && (malloc_alignment( ip ) == align) && ((uintptr_t)ip % align  == 0);
16        if ( ! passed ) {
17                sout | "base failed test" | tests_total | "ip" | ip | "size" | size | "align" | align | "but got size" | malloc_size( ip ) | "usable" | malloc_usable_size( ip ) | "align" | malloc_alignment( ip );
[191a190]18                tests_failed += 1;
[116a2ea]19        } // if
[191a190]20}
21
[116a2ea]22void test_fill( void * ip_, size_t start, size_t end, char fill ) {
[191a190]23        tests_total += 1;
24        bool passed = true;
25        char * ip = (char *) ip_;
[116a2ea]26        for ( i; start ~ end ) passed = passed && (ip[i] == fill);
27        if ( ! passed ) {
28                sout | "fill1 failed test" | tests_total | "fill C";
[191a190]29                tests_failed += 1;
[116a2ea]30        } // if
[191a190]31}
32
[116a2ea]33void test_use( void * ip_ ) {
[191a190]34        tests_total += 1;
35        bool passed = true;
36        int * ip = (int *) ip_;
[116a2ea]37        size_t size = malloc_size( ip );
38        for ( i; 0 ~ size ~ sizeof(int)) ip[i/sizeof(int)] = 0xdeadbeef;
39        for ( i; 0 ~ size ~ sizeof(int)) passed = passed && (ip[i / sizeof(int)] == 0xdeadbeef);
40        size_t usize = malloc_usable_size( ip );
41        for ( i; size ~ usize ~ sizeof(int)) ip[i / sizeof(int)] = -1;
42        for ( i; size ~ usize ~ sizeof(int)) passed = passed &&  (ip[i / sizeof(int)] == -1);
43        if ( ! passed ) {
44                sout | "failed test" | tests_total | "use";
[191a190]45                tests_failed += 1;
46        }
47}
48
49int main( void ) {
[116a2ea]50        enum { dim = 8, align = 64, libAlign = libAlign() };
[191a190]51        size_t elemSize = sizeof(int);
52        size_t size = dim * elemSize;
53        char fill = '\xde';
54        int * ip;
55        T1 * tp;
56
[116a2ea]57        // testing C malloc
[191a190]58
59        tests_total = 0;
60        tests_failed = 0;
61
[116a2ea]62        ip = (int *)malloc( size );
63        test_base( ip, size, libAlign );
64        test_use( ip );
65        free( ip );
66
67        ip = (int *)malloc( 0 );
68        test_base( ip, 0, libAlign );
69        test_use( ip );
70        free( ip );
71
72        ip = (int *)aalloc( dim, elemSize );
73        test_base( ip, size, libAlign );
74        test_use( ip );
75        free( ip );
76
77        ip = (int *)aalloc( 0, elemSize );
78        test_base( ip, 0, libAlign );
79        test_use( ip );
80        free( ip );
81
82        ip = (int *)aalloc( dim, 0 );
83        test_base( ip, 0, libAlign );
84        test_use( ip );
85        free( ip );
86
87        ip = (int *)aalloc( 0, 0 );
88        test_base( ip, 0, libAlign );
89        test_use( ip );
90        free( ip );
91
92        ip = (int *)calloc( dim, elemSize );
93        test_base( ip, size, libAlign );
94        test_fill( ip, 0, size, '\0' );
95        test_use( ip );
96        free( ip );
97
98        ip = (int *)calloc( 0, elemSize );
99        test_base( ip, 0, libAlign );
100        test_fill( ip, 0, 0, '\0' );
101        test_use( ip );
102        free( ip );
103
104        ip = (int *)calloc( dim, 0 );
105        test_base( ip, 0, libAlign );
106        test_fill( ip, 0, 0, '\0' );
107        test_use( ip );
108        free( ip );
109
110        ip = (int *)malloc( size );
111        ip = (int *)resize( ip, size / 4 );
112        test_base( ip, size / 4, libAlign );
113        test_use( ip );
114        free( ip );
115
116        ip = (int *)malloc( size );
117        ip = (int *)resize( ip, size * 4 );
118        test_base( ip, size * 4, libAlign );
119        test_use( ip );
120        free( ip );
121
122        ip = (int *)malloc( size );
123        ip = (int *)resize( ip, 0 );
124        test_base( ip, 0, libAlign );
125        test_use( ip );
126        free( ip );
127
128        ip = (int *)resize( NULL, size );
129        test_base( ip, size, libAlign );
130        test_use( ip );
131        free( ip );
132
133        ip = (int *)resize( 0p, size );
134        test_base( ip, size, libAlign );
135        test_use( ip );
136        free( ip );
137
138        ip = (int *)calloc( dim, elemSize );
139        ip = (int *)realloc( ip, size / 4 );
140        test_base( ip, size / 4, libAlign );
141        test_fill( ip, 0, size / 4, '\0' );
142        test_use( ip );
143        free( ip );
144
145        ip = (int *)calloc( dim, elemSize );
146        ip = (int *)realloc( ip, size * 4 );
147        test_base( ip, size * 4, libAlign );
148        test_fill( ip, 0, size * 4, '\0' );
149        test_use( ip );
150        free( ip );
151
152        ip = (int *)calloc( dim, elemSize );
153        ip = (int *)realloc( ip, 0 );
154        test_base( ip, 0, libAlign );
155        test_use( ip );
156        free( ip );
157
158        ip = (int *)realloc( NULL, size  );
159        test_base( ip, size , libAlign );
160        test_use( ip );
161        free( ip );
162
163        ip = (int *)realloc( 0p, size );
164        test_base( ip, size, libAlign );
165        test_use( ip );
166        free( ip );
167
168        ip = (int *)memalign( align, size );
169        test_base( ip, size, align );
170        test_use( ip );
171        free( ip );
172
173        ip = (int *)memalign( align, 0 );
174        test_base( ip, 0, libAlign );
175        test_use( ip );
176        free( ip );
177
178        ip = (int *)amemalign( align, dim, elemSize );
179        test_base( ip, size, align );
180        test_use( ip );
181        free( ip );
182
183        ip = (int *)amemalign( align, 0, elemSize );
184        test_base( ip, 0, libAlign );
185        test_use( ip );
186        free( ip );
187
188        ip = (int *)amemalign( align, dim, 0 );
189        test_base( ip, 0, libAlign );
190        test_use( ip );
191        free( ip );
192
193        ip = (int *)cmemalign( align, dim, elemSize );
194        test_base( ip, size, align );
195        test_fill( ip, 0, size, '\0' );
196        test_use( ip );
197        free( ip );
198
199        ip = (int *)cmemalign( align, 0, elemSize );
200        test_base( ip, 0, libAlign );
201        test_use( ip );
202        free( ip );
203
204        ip = (int *)cmemalign( align, dim, 0 );
205        test_base( ip, 0, libAlign );
206        test_use( ip );
207        free( ip );
208
209        ip = (int *)aligned_alloc( align, size );
210        test_base( ip, size, align );
211        test_use( ip );
212        free( ip );
213
214        ip = (int *)aligned_alloc( align, 0 );
215        test_base( ip, 0, libAlign );
216        test_use( ip );
217        free( ip );
218
219        posix_memalign( (void **) &ip, align, size );
220        test_base( ip, size, align );
221        test_use( ip );
222        free( ip );
223
224        posix_memalign( (void **) &ip, align, 0 );
225        test_base( ip, 0, libAlign );
226        test_use( ip );
227        free( ip );
228
229        ip = (int *)valloc( size );
230        test_base( ip, size, getpagesize() );
231        test_use( ip );
232        free( ip );
233
234        ip = (int *)valloc( 0 );
235        test_base( ip, 0, libAlign );
236        test_use( ip );
237        free( ip );
238
239        ip = (int *)pvalloc( getpagesize() * 3 / 2 );
240        test_base( ip, getpagesize() * 2, getpagesize() );
241        test_use( ip );
242        free( ip );
243
244        ip = (int *)pvalloc( 0 );
245        test_base( ip, 0, libAlign );
246        test_use( ip );
247        free( ip );
248
249        ip = (int *)malloc( size );
250        ip = (int *)resize( ip, libAlign, size / 2 );
251        test_base( ip, size / 2, libAlign );
252        test_use( ip );
253        free( ip );
254
255        ip = (int *)aligned_alloc( align, size );
256        ip = (int *)resize( ip, align, size / 2 );
257        test_base( ip, size / 2, align );
258        test_use( ip );
259        free( ip );
260
261        ip = (int *)malloc( size );
262        ip = (int *)resize( ip, align, size / 4 );
263        test_base( ip, size / 4, align );
264        test_use( ip );
265        free( ip );
266
267        ip = (int *)malloc( size );
268        ip = (int *)resize( ip, align, 0 );
269        test_base( ip, 0, libAlign );
270        test_use( ip );
271        free( ip );
272
273        ip = (int *)resize( NULL, align, size );
274        test_base( ip, size, align );
275        test_use( ip );
276        free( ip );
277
278        ip = (int *)resize( 0p, align, size );
279        test_base( ip, size, align );
280        test_use( ip );
281        free( ip );
282
283        ip = (int *)calloc( dim, elemSize );
284        ip = (int *)realloc( ip, libAlign, size / 2 );
285        test_base( ip, size / 2, libAlign );
286        test_fill( ip, 0, size / 2, '\0' );
287        test_use( ip );
288        free( ip );
289
290        ip = (int *)cmemalign( align, dim, elemSize );
291        ip = (int *)realloc( ip, align, size / 2 );
292        test_base( ip, size / 2, align );
293        test_fill( ip, 0, size / 2, '\0' );
294        test_use( ip );
295        free( ip );
296
297        ip = (int *)calloc( dim, elemSize );
298        ip = (int *)realloc( ip, align, size / 4 );
299        test_base( ip, size / 4, align );
300        test_fill( ip, 0, size / 4, '\0' );
301        test_use( ip );
302        free( ip );
303
304        ip = (int *)calloc( dim, elemSize );
305        ip = (int *)realloc( ip, libAlign, size * 4 );
306        test_base( ip, size * 4, libAlign );
307        test_fill( ip, 0, size * 4, '\0' );
308        test_use( ip );
309        free( ip );
310
311        ip = (int *)calloc( dim, elemSize );
312        ip = (int *)realloc( ip, align, 0 );
313        test_base( ip, 0, libAlign );
314        test_use( ip );
315        free( ip );
316
317        free( 0p );                                                                                     // sanity check
318        free( NULL );                                                                           // sanity check
319
320        if (tests_failed == 0) sout | "PASSED C malloc tests" | nl | nl;
321        else sout | "failed C malloc tests" | tests_failed | tests_total | nl | nl;
[191a190]322
323        // testing CFA malloc
324
325        tests_total = 0;
326        tests_failed = 0;
327
328        ip = malloc();
[116a2ea]329        test_base( ip, elemSize, libAlign );
330        test_use( ip );
331        free( ip );
[191a190]332
333        ip = aalloc( dim );
[116a2ea]334        test_base( ip, size, libAlign );
335        test_use( ip );
336        free( ip );
[191a190]337
338        ip = aalloc( 0 );
[116a2ea]339        test_base( ip, 0, libAlign );
340        test_use( ip );
341        free( ip );
[191a190]342
343        ip = calloc( dim );
[116a2ea]344        test_base( ip, size, libAlign );
345        test_fill( ip, 0, size, '\0' );
346        test_use( ip );
347        free( ip );
[191a190]348
349        ip = calloc( 0 );
[116a2ea]350        test_base( ip, 0, libAlign );
351        test_use( ip );
352        free( ip );
[191a190]353
354        ip = aalloc( dim );
355        ip = resize( ip, size / 4 );
[116a2ea]356        test_base( ip, size / 4, libAlign );
357        test_use( ip );
358        free( ip );
[191a190]359
360        ip = aalloc( dim );
361        ip = resize( ip, size * 4 );
[116a2ea]362        test_base( ip, size * 4, libAlign );
363        test_use( ip );
364        free( ip );
[191a190]365
366        ip = aalloc( dim );
367        ip = resize( ip, 0 );
[116a2ea]368        test_base( ip, 0, libAlign );
369        test_use( ip );
370        free( ip );
[191a190]371
[116a2ea]372        ip = resize( 0p, size );
373        test_base( ip, size, libAlign );
374        test_use( ip );
375        free( ip );
[191a190]376
[116a2ea]377        ip = resize( 0p, size );
378        test_base( ip, size, libAlign );
379        test_use( ip );
380        free( ip );
[191a190]381
382        ip = calloc( dim );
383        ip = realloc( ip, size / 4 );
[116a2ea]384        test_base( ip, size / 4, libAlign );
385        test_fill( ip, 0, size / 4, '\0' );
386        test_use( ip );
387        free( ip );
[191a190]388
389        ip = calloc( dim );
390        ip = realloc( ip, size * 4 );
[116a2ea]391        test_base( ip, size * 4, libAlign );
392        test_fill( ip, 0, size, '\0' );
393        test_use( ip );
394        free( ip );
[191a190]395
396        ip = calloc( dim );
397        ip = realloc( ip, 0 );
[116a2ea]398        test_base( ip, 0, libAlign );
399        test_use( ip );
400        free( ip );
[191a190]401
[116a2ea]402        ip = realloc( 0p, size );
403        test_base( ip, size , libAlign );
404        test_use( ip );
405        free( ip );
[191a190]406
[116a2ea]407        ip = realloc( 0p, size );
408        test_base( ip, size, libAlign );
409        test_use( ip );
410        free( ip );
[191a190]411
412        ip = memalign( align );
[116a2ea]413        test_base( ip, elemSize, align );
414        test_use( ip );
415        free( ip );
[191a190]416
417        ip = amemalign( align, dim );
[116a2ea]418        test_base( ip, size, align );
419        test_use( ip );
420        free( ip );
[191a190]421
422        ip = amemalign( align, 0 );
[116a2ea]423        test_base( ip, 0, libAlign );
424        test_use( ip );
425        free( ip );
[191a190]426
427        ip = cmemalign( align, dim );
[116a2ea]428        test_base( ip, size, align );
429        test_fill( ip, 0, size, '\0' );
430        test_use( ip );
431        free( ip );
[191a190]432
433        ip = cmemalign( align, 0 );
[116a2ea]434        test_base( ip, 0, libAlign );
435        test_use( ip );
436        free( ip );
[191a190]437
438        ip = aligned_alloc( align );
[116a2ea]439        test_base( ip, elemSize, align );
440        test_use( ip );
441        free( ip );
[191a190]442
[116a2ea]443        posix_memalign( (int **) &ip, align );
444        test_base( ip, elemSize, align );
445        test_use( ip );
446        free( ip );
[191a190]447
448        ip = valloc();
[116a2ea]449        test_base( ip, elemSize, getpagesize() );
450        test_use( ip );
451        free( ip );
[191a190]452
453        ip = pvalloc();
[116a2ea]454        test_base( ip, getpagesize(), getpagesize() );
455        test_use( ip );
456        free( ip );
[191a190]457
[116a2ea]458        if (tests_failed == 0) sout | "PASSED CFA malloc tests" | nl | nl;
459        else sout | "failed CFA malloc tests" | tests_failed | tests_total | nl | nl;
[191a190]460
[f76ff0b]461        // testing CFA malloc with aligned struct
[191a190]462
463        elemSize = sizeof(T1);
464        size = dim * elemSize;
465        tests_total = 0;
466        tests_failed = 0;
467
468        tp = malloc();
[116a2ea]469        test_base( tp, elemSize, tAlign  );
470        test_use( tp );
471        free( tp );
[191a190]472
473        tp = aalloc( dim );
[116a2ea]474        test_base( tp, size, tAlign  );
475        test_use( tp );
476        free( tp );
[191a190]477
478        tp = aalloc( 0 );
[116a2ea]479        test_base( tp, 0, libAlign );
480        test_use( tp );
481        free( tp );
[191a190]482
483        tp = calloc( dim );
[116a2ea]484        test_base( tp, size, tAlign  );
485        test_fill( tp, 0, size, '\0' );
486        test_use( tp );
487        free( tp );
[191a190]488
489        tp = calloc( 0 );
[116a2ea]490        test_base( tp, 0, libAlign );
491        test_use( tp );
492        free( tp );
[191a190]493
494        tp = aalloc( dim );
495        tp = resize( tp, size / 4 );
[116a2ea]496        test_base( tp, size / 4, tAlign  );
497        test_use( tp );
498        free( tp );
[191a190]499
500        tp = malloc();
501        tp = resize( tp, size * 4 );
[116a2ea]502        test_base( tp, size * 4, tAlign  );
503        test_use( tp );
504        free( tp );
[191a190]505
506        tp = aalloc( dim );
507        tp = resize( tp, 0 );
[116a2ea]508        test_base( tp, 0, libAlign );
509        test_use( tp );
510        free( tp );
[191a190]511
[68f0c4e]512        tp = resize( (T1*)0p, size );
[116a2ea]513        test_base( tp, size, tAlign  );
514        test_use( tp );
515        free( tp );
[191a190]516
[68f0c4e]517        tp = resize( (T1*)0p, size );
[116a2ea]518        test_base( tp, size, tAlign  );
519        test_use( tp );
520        free( tp );
[191a190]521
522        tp = calloc( dim );
523        tp = realloc( tp, size / 4 );
[116a2ea]524        test_base( tp, size / 4, tAlign  );
525        test_fill( tp, 0, size / 4, '\0' );
526        test_use( tp );
527        free( tp );
[191a190]528
529        tp = calloc( dim );
530        tp = realloc( tp, size * 4 );
[116a2ea]531        test_base( tp, size * 4, tAlign  );
532        test_fill( tp, 0, size, '\0' );
533        test_use( tp );
534        free( tp );
[191a190]535
536        tp = calloc( dim );
537        tp = realloc( tp, 0 );
[116a2ea]538        test_base( tp, 0, libAlign );
539        test_use( tp );
540        free( tp );
[191a190]541
[68f0c4e]542        tp = realloc( (T1*)0p, size  );
[116a2ea]543        test_base( tp, size , tAlign  );
544        test_use( tp );
545        free( tp );
[191a190]546
[68f0c4e]547        tp = realloc( (T1*)0p, size );
[116a2ea]548        test_base( tp, size, tAlign  );
549        test_use( tp );
550        free( tp );
[191a190]551
552        tp = memalign( align );
[116a2ea]553        test_base( tp, elemSize, align );
554        test_use( tp );
555        free( tp );
[191a190]556
557        tp = amemalign( align, dim );
[116a2ea]558        test_base( tp, size, align );
559        test_use( tp );
560        free( tp );
[191a190]561
562        tp = amemalign( align, 0 );
[116a2ea]563        test_base( tp, 0, libAlign );
564        test_use( tp );
565        free( tp );
[191a190]566
567        tp = cmemalign( align, dim );
[116a2ea]568        test_base( tp, size, align );
569        test_fill( tp, 0, size, '\0' );
570        test_use( tp );
571        free( tp );
[191a190]572
573        tp = cmemalign( align, 0 );
[116a2ea]574        test_base( tp, 0, libAlign );
575        test_use( tp );
576        free( tp );
[191a190]577
578        tp = aligned_alloc( align );
[116a2ea]579        test_base( tp, elemSize, align );
580        test_use( tp );
581        free( tp );
[191a190]582
[116a2ea]583        posix_memalign( (T1 **)&tp, align );
584        test_base( tp, elemSize, align );
585        test_use( tp );
586        free( tp );
[191a190]587
588        tp = valloc();
[116a2ea]589        test_base( tp, elemSize, getpagesize() );
590        test_use( tp );
591        free( tp );
[191a190]592
593        tp = pvalloc();
[116a2ea]594        test_base( tp, getpagesize(), getpagesize() );
595        test_use( tp );
596        free( tp );
[191a190]597
[116a2ea]598        if ( tests_failed == 0 ) sout | "PASSED CFA malloc tests (aligned struct)" | nl | nl;
599        else sout | "failed CFA malloc tests (aligned struct)" | tests_failed | tests_total | nl | nl;
[f8acfc0]600}
[654d5a47]601
602// Local Variables: //
603// tab-width: 4 //
604// compile-command: "cfa malloc.cfa" //
605// End: //
Note: See TracBrowser for help on using the repository browser.