10 push @types,"char"; push @abrev, "c"; push @val, "'w'";
11 push @types,"short int"; push @abrev, "s"; push @val, '134';
12 push @types,"int"; push @abrev, "i"; push @val, '-11249';
13 push @types,"long int"; push @abrev, "l"; push @val, '31319919';
14 push @types,"long long int"; push @abrev, "L"; push @val, '-232130010';
15 push @types,"float"; push @abrev, "f"; push @val, '-11313.1135';
16 push @types,"double"; push @abrev, "d"; push @val, '1424420.11331';
18 die 'scalar @types != scalar @abrev' unless (scalar @types == scalar @abrev);
20 print "/* This file is perl-generated, of course */\n\n";
22 print "#include \"gras.h\"\n\n";
24 print "XBT_LOG_NEW_DEFAULT_SUBCATEGORY(structs,test,\"Logs about the gigantic struct test\");\n\n";
26 print "#define READ 0\n#define WRITE 1\n#define RW 2\n\n";
29 print "xbt_error_t write_read(gras_datadesc_type_t type,void *src, void *dst, gras_socket_t *sock, int direction);\n\n";
32 my $max=scalar @types;
33 my $max_i=$max-1; # set it to "$max-1" to do 2401 tests (takes for ever to compile)
34 my $max_j=0; # set it to "$max-1" to do 2401 tests (takes for ever to compile)
35 my $max_k=$max-1; # set it to "$max-1" to do 2401 tests (takes for ever to compile)
36 my $max_l=0; # set it to "$max-1" to do 2401 tests (takes for ever to compile)
37 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
38 print "GRAS_DEFINE_TYPE(".$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l].",".
39 "struct ".$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l]." { ".
47 # print "\n#define test(a) do {if (!(a)) { failed = 1; ERROR1(\"%s failed\",#a);}} while (0)\n";
48 print "\n#define test(a) xbt_assert(a)\n";
50 print "\nxbt_error_t test_structures(gras_socket_t *sock, int direction);\n";
51 print "\nxbt_error_t test_structures(gras_socket_t *sock, int direction) {\n";
52 print " xbt_error_t errcode;\n";
53 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
54 my $struct=$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l];
55 print " struct $struct my_$struct = {".$val[$i]."+(".$types[$i].")1,"
56 .$val[$j]."+(".$types[$j].")2,"
57 .$val[$k]."+(".$types[$k].")3,"
58 .$val[$l]."+(".$types[$l].")4}, my_${struct}2;\n";
61 print " INFO0(\"---- Test on all possible struct having 3 fields (".($max_i*$max_j*$max_k*($max_l+1))." structs) ----\");\n";
62 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
63 my $struct=$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l];
64 print " TRY(write_read(gras_datadesc_by_symbol($struct), &my_$struct, &my_${struct}2, sock,direction));\n";
65 print " if (direction == READ || direction == RW) {\n";
66 print " int failed = 0;\n";
67 print " test(my_$struct.a == my_${struct}2.a);\n";
68 print " test(my_$struct.b == my_${struct}2.b);\n";
69 print " test(my_$struct.c == my_${struct}2.c);\n";
70 print " test(my_$struct.d == my_${struct}2.d);\n";
71 print " if (!failed) VERB0(\"Passed $struct\");\n";
74 print " return no_error;\n";