print "#define READ 0\n#define WRITE 1\n#define RW 2\n\n";
-print "xbt_error_t write_read(gras_datadesc_type_t type,void *src, void *dst, gras_socket_t *sock, int direction);\n\n";
+print "void write_read(gras_datadesc_type_t type,void *src, void *dst, gras_socket_t *sock, int direction);\n\n";
my ($i,$j,$k,$l);
my $max=scalar @types;
# print "\n#define test(a) do {if (!(a)) { failed = 1; ERROR1(\"%s failed\",#a);}} while (0)\n";
print "\n#define test(a) xbt_assert(a)\n";
-print "\nxbt_error_t test_structures(gras_socket_t *sock, int direction);\n";
-print "\nxbt_error_t test_structures(gras_socket_t *sock, int direction) {\n";
-print " xbt_error_t errcode;\n";
+print "void test_structures(gras_socket_t *sock, int direction);\n";
+print "void test_structures(gras_socket_t *sock, int direction) {\n";
for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
my $struct=$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l];
print " struct $struct my_$struct = {".$val[$i]."+(".$types[$i].")1,"
print " INFO0(\"---- Test on all possible struct having 3 fields (".(($max_i+1)*($max_j+1)*($max_k+1)*($max_l+1))." structs) ----\");\n";
for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
my $struct=$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l];
- print " TRY(write_read(gras_datadesc_by_symbol($struct), &my_$struct, &my_${struct}2, sock,direction));\n";
+ print " write_read(gras_datadesc_by_symbol($struct), &my_$struct, &my_${struct}2, sock,direction);\n";
print " if (direction == READ || direction == RW) {\n";
print " int failed = 0;\n";
print " test(my_$struct.a == my_${struct}2.a);\n";
print " if (!failed) VERB0(\"Passed $struct\");\n";
print " }\n";
}}}}
- print " return no_error;\n";
print "}\n";
;