X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/76abe652b11210f5af3d2ce223aa133ec79232ba..b9df3f093a5b2403c83003c8a349fb666a6f65cd:/testsuite/gras/mk_datadesc_structs.pl diff --git a/testsuite/gras/mk_datadesc_structs.pl b/testsuite/gras/mk_datadesc_structs.pl index 695aee85d3..5f0ef9977e 100755 --- a/testsuite/gras/mk_datadesc_structs.pl +++ b/testsuite/gras/mk_datadesc_structs.pl @@ -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";