Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Stupid me. N*0=0, whatever value N has. (only change the output, not the datasets)
[simgrid.git] / testsuite / gras / mk_datadesc_structs.pl
index 695aee8..5f0ef99 100755 (executable)
@@ -30,10 +30,12 @@ print "xbt_error_t write_read(gras_datadesc_type_t type,void *src, void *dst, gr
 
 my ($i,$j,$k,$l);
 my $max=scalar @types;
-my $max_i=$max-1; # set it to "$max-1" to do 2401 tests (takes for ever to compile)
-my $max_j=0;      # set it to "$max-1" to do 2401 tests (takes for ever to compile)
-my $max_k=$max-1; # set it to "$max-1" to do 2401 tests (takes for ever to compile)
-my $max_l=0;      # set it to "$max-1" to do 2401 tests (takes for ever to compile)
+# Those max variables can be used to tune how much test you are ready to do.
+# But WARNING! changing them naturally invalidate any existing data file.
+my $max_i=$max-1;
+my $max_j=0;     
+my $max_k=$max-1;
+my $max_l=0;     
 for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l) {
     print "GRAS_DEFINE_TYPE(".$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l].",".
       "struct ".$abrev[$i].$abrev[$j].$abrev[$k].$abrev[$l]." { ".
@@ -58,7 +60,7 @@ for $i (0..$max_i) { for $j (0..$max_j) { for $k (0..$max_k) { for $l (0..$max_l
                                            .$val[$l]."+(".$types[$l].")4}, my_${struct}2;\n";
 }}}}
 
-print "  INFO0(\"---- Test on all possible struct having 3 fields (".($max_i*$max_j*$max_k*($max_l+1))." structs) ----\");\n";
+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";