testsuite/gras/mk_datadesc_structs.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my @types;
   7 my @abrev;
   8 my @val;
   9
  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';
  17
  18 die 'scalar @types != scalar @abrev' unless (scalar @types == scalar @abrev);
  19
  20 print "/* This file is perl-generated, of course */\n\n";
  21
  22 print "#include \"gras.h\"\n\n";
  23
  24 print "XBT_LOG_NEW_DEFAULT_SUBCATEGORY(structs,test,\"Logs about the gigantic struct test\");\n\n";
  25
  26 print "#define READ  0\n#define WRITE 1\n#define RW    2\n\n";
  27
  28
  29 print "xbt_error_t write_read(gras_datadesc_type_t type,void *src, void *dst, gras_socket_t *sock, int direction);\n\n";
  30
  31 my ($i,$j,$k,$l);
  32 my $max=scalar @types;
  33 # Those max variables can be used to tune how much test you are ready to do.
  34 # But WARNING! changing them naturally invalidate any existing data file.
  35 my $max_i=$max-1;
  36 my $max_j=0;
  37 my $max_k=$max-1;
  38 my $max_l=0;
  39 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
  40     print "GRAS_DEFINE_TYPE(".$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l].",".
  41       "struct ".$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l]." { ".
  42         $types[$i]." a; ".
  43         $types[$j]." b; ".
  44         $types[$k]." c;".
  45         $types[$l]." d;".
  46       "};)\n";
  47 }}}}
  48
  49 # print "\n#define test(a) do {if (!(a)) { failed = 1; ERROR1(\"%s failed\",#a);}} while (0)\n";
  50  print "\n#define test(a) xbt_assert(a)\n";
  51
  52 print "\nxbt_error_t test_structures(gras_socket_t *sock, int direction);\n";
  53 print "\nxbt_error_t test_structures(gras_socket_t *sock, int direction) {\n";
  54 print "  xbt_error_t errcode;\n";
  55 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
  56     my $struct=$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l];
  57     print "  struct $struct my_$struct = {".$val[$i]."+(".$types[$i].")1,"
  58                                            .$val[$j]."+(".$types[$j].")2,"
  59                                            .$val[$k]."+(".$types[$k].")3,"
  60                                            .$val[$l]."+(".$types[$l].")4}, my_${struct}2;\n";
  61 }}}}
  62
  63 print "  INFO0(\"---- Test on all possible struct having 3 fields (".(($max_i+1)*($max_j+1)*($max_k+1)*($max_l+1))." structs) ----\");\n";
  64 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
  65     my $struct=$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l];
  66     print "  TRY(write_read(gras_datadesc_by_symbol($struct), &my_$struct, &my_${struct}2, sock,direction));\n";
  67     print "  if (direction == READ || direction == RW) {\n";
  68     print "     int failed = 0;\n";
  69     print "     test(my_$struct.a == my_${struct}2.a);\n";
  70     print "     test(my_$struct.b == my_${struct}2.b);\n";
  71     print "     test(my_$struct.c == my_${struct}2.c);\n";
  72     print "     test(my_$struct.d == my_${struct}2.d);\n";
  73     print "     if (!failed) VERB0(\"Passed $struct\");\n";
  74     print "  }\n";
  75 }}}}
  76     print "  return no_error;\n";
  77     print "}\n";
  78     ;