Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Compile pas avec les warnings, sinon
[simgrid.git] / testsuite / xbt / dynar_string.c
1 /* $Id$ */
2
3 /* dynar_string: A test case for the dynar using strings as content         */
4
5 /* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
6
7 /* This program is free software; you can redistribute it and/or modify it
8  * under the terms of the license (GNU LGPL) which comes with this package. */
9
10 #include <stdio.h> /* sprintf */
11 #include "gras.h"
12
13 /* NB_ELEM HAS to be a multiple of 5 */
14 #define NB_ELEM 5000
15 XBT_LOG_NEW_DEFAULT_CATEGORY(test,"Logging specific to this test");
16
17 void free_string(void *d);
18
19 void free_string(void *d){
20   free(*(void**)d);
21 }
22
23 int main(int argc,char *argv[]) {
24    xbt_dynar_t d;
25    xbt_error_t errcode;
26    int cpt;
27    char buf[1024];
28    char *s1,*s2;
29    
30    xbt_init_defaultlog(&argc,argv,"dynar.thresh=debug");
31    
32    INFO0("==== Traverse the empty dynar");
33    d=xbt_dynar_new(sizeof(char *),&free_string);
34    xbt_dynar_foreach(d,cpt,s1){
35      xbt_assert0(FALSE,
36                   "Damnit, there is something in the empty dynar");
37    }
38    xbt_dynar_free(&d);
39    xbt_dynar_free(&d);
40
41    INFO1("==== Push %d strings, set them again 3 times, shift them",NB_ELEM);
42    d=xbt_dynar_new(sizeof(char*),&free_string);
43    for (cpt=0; cpt< NB_ELEM; cpt++) {
44      sprintf(buf,"%d",cpt);
45      s1=strdup(buf);
46      xbt_dynar_push(d,&s1);
47    }
48    for (cpt=0; cpt< NB_ELEM; cpt++) {
49      sprintf(buf,"%d",cpt);
50      s1=strdup(buf);
51      xbt_dynar_replace(d,cpt,&s1);
52    }
53    for (cpt=0; cpt< NB_ELEM; cpt++) {
54      sprintf(buf,"%d",cpt);
55      s1=strdup(buf);
56      xbt_dynar_replace(d,cpt,&s1);
57    }
58    for (cpt=0; cpt< NB_ELEM; cpt++) {
59      sprintf(buf,"%d",cpt);
60      s1=strdup(buf);
61      xbt_dynar_replace(d,cpt,&s1);
62    }
63    for (cpt=0; cpt< NB_ELEM; cpt++) {
64      sprintf(buf,"%d",cpt);
65      xbt_dynar_shift(d,&s2);
66      xbt_assert2 (!strcmp(buf,s2),
67             "The retrieved value is not the same than the injected one (%s!=%s)",
68                    buf,s2);
69      free(s2);
70    }
71    xbt_dynar_free(&d);
72    xbt_dynar_free(&d);
73
74
75    INFO1("==== Unshift, traverse and pop %d strings",NB_ELEM);
76    d=xbt_dynar_new(sizeof(char**),&free_string);
77    for (cpt=0; cpt< NB_ELEM; cpt++) {
78      sprintf(buf,"%d",cpt);
79      s1=strdup(buf);
80      xbt_dynar_unshift(d,&s1);
81    }
82    xbt_dynar_foreach(d,cpt,s1) {
83      sprintf(buf,"%d",NB_ELEM - cpt -1);
84      xbt_assert2 (!strcmp(buf,s1),
85            "The retrieved value is not the same than the injected one (%s!=%s)",
86                buf,s1);
87    }
88    for (cpt=0; cpt< NB_ELEM; cpt++) {
89      sprintf(buf,"%d",cpt);
90      xbt_dynar_pop(d,&s2);
91      xbt_assert2 (!strcmp(buf,s2),
92            "The retrieved value is not the same than the injected one (%s!=%s)",
93                buf,s2);
94      free(s2);
95    }
96    xbt_dynar_free(&d);
97    xbt_dynar_free(&d);
98
99
100    INFO2("==== Push %d strings, insert %d strings in the middle, shift everything",NB_ELEM,NB_ELEM/5);
101    d=xbt_dynar_new(sizeof(char*),&free_string);
102    for (cpt=0; cpt< NB_ELEM; cpt++) {
103      sprintf(buf,"%d",cpt);
104      s1=strdup(buf);
105      xbt_dynar_push(d,&s1);
106    }
107    for (cpt=0; cpt< NB_ELEM/5; cpt++) {
108      sprintf(buf,"%d",cpt);
109      s1=strdup(buf);
110      xbt_dynar_insert_at(d,NB_ELEM/2,&s1);
111    }
112
113    for (cpt=0; cpt< NB_ELEM/2; cpt++) {
114      sprintf(buf,"%d",cpt);
115      xbt_dynar_shift(d,&s2);
116      xbt_assert2(!strcmp(buf,s2),
117            "The retrieved value is not the same than the injected one at the begining (%s!=%s)",
118                buf,s2);
119       free(s2);
120    }
121    for (cpt=(NB_ELEM/5)-1; cpt>=0; cpt--) {
122      sprintf(buf,"%d",cpt);
123      xbt_dynar_shift(d,&s2);
124      xbt_assert2 (!strcmp(buf,s2),
125            "The retrieved value is not the same than the injected one in the middle (%s!=%s)",
126                buf,s2);
127      free(s2);
128    }
129    for (cpt=NB_ELEM/2; cpt< NB_ELEM; cpt++) {
130      sprintf(buf,"%d",cpt);
131      xbt_dynar_shift(d,&s2);
132      xbt_assert2 (!strcmp(buf,s2),
133            "The retrieved value is not the same than the injected one at the end (%s!=%s)",
134                buf,s2);
135      free(s2);
136    }
137    xbt_dynar_free(&d);
138    xbt_dynar_free(&d);
139
140
141    INFO3("==== Push %d strings, remove %d-%d. free the rest",NB_ELEM,2*(NB_ELEM/5),4*(NB_ELEM/5));
142    d=xbt_dynar_new(sizeof(char*),&free_string);
143    for (cpt=0; cpt< NB_ELEM; cpt++) {
144      sprintf(buf,"%d",cpt);
145      s1=strdup(buf);
146      xbt_dynar_push(d,&s1);
147    }
148    for (cpt=2*(NB_ELEM/5); cpt< 4*(NB_ELEM/5); cpt++) {
149      sprintf(buf,"%d",cpt);
150      xbt_dynar_remove_at(d,2*(NB_ELEM/5),&s2);
151      xbt_assert2(!strcmp(buf,s2),
152                   "Remove a bad value. Got %s, expected %s",
153                   s2,buf);
154       free(s2);
155    }
156    xbt_dynar_free(&d);
157    xbt_dynar_free(&d);
158
159    xbt_exit();
160    return 0;
161 }