- TRY(write_read(my_type, (void*)&i, (void**)&j));
- INFO1("j=%p" ,j);
- INFO1("j->l=%p" ,j->l);
- INFO1("j->l->l=%p" ,j->l->l);
- INFO1("j->l->l->l=%p",j->l->l->l);
- gras_assert4(j->l->l->l == j->l,
- "Received list is not cyclic. j->l=%p != j->l->l->l=%p\n"
- "j=%p; &j=%p",
- j->l,j->l->l->l,
- j ,&j);
- i->l->l->l = NULL;
- j->l->l->l = NULL;
- gras_assert(list_eq(i,j));
-
+ TRY(write_read(gras_datadesc_by_name("chained_list_t*"),
+ &i,&j, sock,direction));
+ if (direction == READ || direction == RW) {
+
+ DEBUG1("i=%p" ,i);
+ DEBUG1("i->l=%p" ,i->l);
+ DEBUG1("i->l->l=%p" ,i->l->l);
+ DEBUG1("i->l->l->l=%p",i->l->l->l);
+ DEBUG1("j=%p" ,j);
+ DEBUG1("j->l=%p" ,j->l);
+ DEBUG1("j->l->l=%p" ,j->l->l);
+ DEBUG1("j->l->l->l=%p",j->l->l->l);
+ gras_assert4(j->l->l->l == j,
+ "Received list is not cyclic. j=%p != j->l->l->l=%p\n"
+ "j=%p; &j=%p",
+ j,j->l->l->l,
+ j ,&j);
+ i->l->l->l = NULL;
+ j->l->l->l = NULL;
+ gras_assert(list_eq(i,j));
+
+ list_free(j);
+ }