+/*** Dynar of scalar ***/
+
+void test_dynar_scal(gras_socket_t sock, int direction){
+ gras_datadesc_type_t my_type;
+ xbt_dynar_t i,j;
+ int cpt;
+
+ INFO0("---- Test on dynar containing integers ----");
+ my_type = gras_datadesc_dynar(gras_datadesc_by_name("int"),NULL);
+ i = xbt_dynar_new(sizeof(int),NULL);
+ for (cpt=0; cpt<64; cpt++) {
+ xbt_dynar_push_as(i,int,cpt);
+ DEBUG2("Push %d, length=%lu",cpt, xbt_dynar_length(i));
+ }
+/* xbt_dynar_dump(i);*/
+ write_read(my_type, &i,&j, sock, direction);
+/* xbt_dynar_dump(j);*/
+ if (direction == READ || direction == RW) {
+ for (cpt=0; cpt<64; cpt++){
+ int ret=xbt_dynar_get_as(j,cpt,int);
+ if (cpt != ret) {
+ CRITICAL3("The retrieved value for cpt=%d is not the same than the injected one (%d!=%d)",
+ cpt,ret,cpt);
+ xbt_abort();
+ }
+ }
+ xbt_dynar_free(&j);
+ }
+ xbt_dynar_free(&i);
+}
+void test_intref(gras_socket_t sock, int direction) {