tests/de/end

   1 # Main script in this test grid; does all the job.
   2 # Individual test scripts are used only to specify data file and reference
   3 # test data (expected values of test execution).
   4 # The procedure is:
   5 # - load specified data file
   6 # - check transfer status, shape, and attributes against expected values
   7 # - write data to
   8
   9 # Set flag dump_file to 1 in order to regenerate script files with actual data
  10 # used as reference. In this mode all tests intentionaly report failure.
  11 set dump_file 0
  12 ########################################################################
  13 set mist_Second 0; set mist_w 0; set mist 0; set isIGES 0;
  14 ############################################ DATA c  ################
  15 set dfal_First 0; set dwar_First 0; set dcomp_First 0
  16 set dfal_Second 0; set dwar_Second 0; set dcomp_Second 0
  17 ############################################# TPSTAT c  ##############
  18 set fal_First 0; set war_First 0; set comp_First 0
  19 set fal_Second 0; set war_Second 0; set comp_Second 0
  20 ###################################### DECAF information ##########
  21 set nblev0_First 0; set nblev1_First 0; set nblev2_First 0; set nblev_total_First 0; set nbshname_First 0;
  22 set nbshcolor_First 0; set nbshlayer_First 0;
  23 set nbcentroid_First 0; set nbvolume_First 0; set nbarea_First 0;
  24 set nbcolor_First 0; set colors_First ""; set nblayer_First 0; set layers_First "";
  25 set nblev0_Second 0; set nblev1_Second 0; set nblev2_Second 0; set nblev_total_Second 0; set nbshname_Second 0;
  26 set nbshcolor_Second 0; set nbshlayer_Second 0;
  27 set nbcentroid_Second 0; set nbvolume_Second 0; set nbarea_Second 0;
  28 set nbcolor_Second 0; set colors_Second ""; set nblayer_Second 0; set layers_Second "";
  29 ############################################# TOLERANCE ############
  30 set MaxTol_First 0; set AvgTol_First 0
  31 set MaxTol_Second 0; set AvgTol_Second 0
  32 ############################################# STATSHAPE ############
  33 set sol_First 0; set she_First 0; set fac_First 0; set fwir_First 0; set fedg_First 0; set sedg_First 0
  34 set sol_Second 0; set she_Second 0; set fac_Second 0; set fwir_Second 0; set fedg_Second 0; set sedg_Second 0
  35 ############################################# NBSHAPES #############
  36 set fa_First 0; set sh_First 0; set so_First 0; set co_First 0; set shpp_First 0
  37 set fa_Second 0; set sh_Second 0; set so_Second 0; set co_Second 0; set shpp_Second 0
  38 ###################################### CHECKSHAPE ##################
  39 set chwi_First 0; set chfa_First 0; set chsh_First 0; set chso_First 0
  40 set chwi_Second 0; set chfa_Second 0; set chsh_Second 0; set chso_Second 0
  41 ###################################################################
  42 set ref_Compare 0
  43 set todo_msg ""
  44 set todo_mask "puts \"TODO CR23096 ALL: "
  45 set Mandriva_todo_mask "puts \"TODO CR23096 Mandriva2010:"
  46 set end_line "\" \n"
  47 ##################################################################
  48
  49 # Read original file
  50 if { [string length $filename] > 1} {
  51     set ext [file extension $filename]
  52     set ReadCommand ReadStep
  53     set WriteCommand WriteStep
  54     set isIGES 0
  55     if { $ext == ".igs" || $ext == ".iges" }  {
  56         set ReadCommand ReadIges
  57         set WriteCommand WriteIges
  58         set isIGES 1
  59     }
  60     if {[info exist ProductMode] && $ProductMode == "OFF"} {
  61        set tmp [param read.step.product.mode OFF]
  62     }
  63     set path_file [locate_data_file $filename]
  64     if { [catch { $ReadCommand D_First $path_file } catch_result] } {
  65         set err_msg "Error: First - file was not read - exception "
  66         puts $err_msg
  67         append todo_msg $todo_mask $err_msg $end_line
  68         set mist 1
  69     }
  70
  71 } else {
  72   set mist 1
  73 }
  74
  75 # Get information about translation
  76 if { $mist < 1} {
  77     puts ""
  78
  79     set tps_2 [data c]
  80     if { [llength $tps_2] > 0 } {
  81         # Finding all strings with warnings
  82         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+W:} $tps_2]
  83         # Extracting counts of warnings
  84         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
  85         # Calculating total number of warnings
  86         foreach i $b {set dwar_First [expr $dwar_First + $i]}
  87         set dwar_First [expr $dwar_First/4]
  88
  89         # Finding all strings with faulties
  90         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+F:} $tps_2]
  91         # Extracting counts of faulties
  92         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
  93         # Calculating total number of faulties
  94         foreach i $b {set dfal_First [expr $dfal_First + $i]}
  95         set dfal_First [expr $dfal_First/4]
  96         # Calculating total number of faulties and warnings
  97         set dcomp_First [expr $dfal_First + $dwar_First]
  98
  99     } else {
 100         puts " DATA c checking was NOT provided"
 101     }
 102
 103     puts ""
 104     set tps_1 [tpstat c]
 105     set colvo [llength $tps_1]
 106     if { ${colvo} > 0 } {
 107         # Finding all strings with warnings
 108         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+W:} $tps_1]
 109         # Extracting counts of warnings
 110         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
 111         # Calculating total number of warnings
 112         foreach i $b {set war_First [expr $war_First + $i]}
 113         set war_First [expr $war_First/4]
 114
 115         # Finding all strings with faulties
 116         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+F:} $tps_1]
 117         # Extracting counts of faulties
 118         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
 119         # Calculating total number of faulties
 120         foreach i $b {set fal_First [expr $fal_First + $i]}
 121         set fal_First [expr $fal_First/4]
 122         # Calculating total number of faulties and warnings
 123         set comp_First [expr $fal_First + $war_First]
 124
 125
 126     } else {
 127         puts " TPSTAT c checking was NOT provided"
 128     }
 129
 130     # Get DECAF information about (color, layers and properties)
 131     puts ""
 132
 133     set xst [ XStat D_First ]
 134
 135     if { [llength $xst] > 0 } {
 136         regexp {level +N +0 +: +([-0-9.+eE]+)} $xst full nblev0_First
 137         regexp {level +N +1 +: +([-0-9.+eE]+)} $xst full nblev1_First
 138         regexp {level +N +2 +: +([-0-9.+eE]+)} $xst full nblev2_First
 139         regexp {Total +number +of +labels +for +shapes +in +the +document += +([-0-9.+eE]+)} $xst full nblev_total_First
 140         regexp {Number +of +labels +with +name += +([-0-9.+eE]+)} $xst full nbshname_First
 141         regexp {Number +of +labels +with +color +link += +([-0-9.+eE]+)} $xst full nbshcolor_First
 142         regexp {Number +of +labels +with +layer +link += +([-0-9.+eE]+)} $xst full nbshlayer_First
 143         regexp {Number +of +Centroid Props += +([-0-9.+eE]+)} $xst full nbcentroid_First
 144         regexp {Number +of +Volume Props += +([-0-9.+eE]+)} $xst full nbvolume_First
 145         regexp {Number +of +Area Props += +([-0-9.+eE]+)} $xst full nbarea_First
 146         regexp {Number +of +colors += +([-0-9.+eE]+)} $xst full nbcolor_First
 147         regexp {Number +of +colors += +[-0-9.+eE]+\n([^\n]*)} $xst full colors_First
 148         regexp {Number +of +layers += +([-0-9.+eE]+)} $xst full nblayer_First
 149         regexp {Number +of +layers += +[-0-9.+eE]+\n([^\n]*)} $xst full layers_First
 150     } else {
 151         puts " DECAF information was NOT provided"
 152     }
 153
 154     # Get shape for standard analysis
 155     puts ""
 156     if { [catch { XGetOneShape res_1 D_First } catch_result] } {
 157         set err_msg ""Error : First - cannot get shape from document - exception"
 158         puts $err_msg
 159         append todo_msg $todo_mask $err_msg $end_line
 160         set mist 1
 161     }
 162     if { $mist < 1 && [info exists res_1] == 0 } {
 163         set err_msg "Error : First - cannot read any relevant data from the file"
 164         puts $err_msg
 165         append todo_msg $todo_mask $err_msg $end_line
 166         set mist 1
 167     }
 168
 169
 170     if { $mist < 1 } {
 171         # Standard analysis
 172         puts ""
 173
 174         set tol [tolerance res_1]
 175
 176         if { [llength $tol] > 0 } {
 177             regexp {Tolerance +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=[-0-9.+eE]+} $tol full MaxTol_First AvgTol_First
 178         } else {
 179             puts " TOLERANCE checking was NOT provided"
 180         }
 181
 182         puts ""
 183
 184         set tps_3 [ statshape res_1]
 185         set col [llength $tps_3]
 186         if { ${col} > 0 } {
 187             regexp {([-0-9.+eE]+)\t+ +EDGE \(Free\)} $tps_3 full fedg_First
 188             regexp {([-0-9.+eE]+)\t+ +EDGE \(Shared\)} $tps_3 full sedg_First
 189             regexp {([-0-9.+eE]+)\t+ +WIRE \(Free\)} $tps_3 full fwir_First
 190             regexp {([-0-9.+eE]+)\t+ +FACE} $tps_3 full fac_First
 191             regexp {([-0-9.+eE]+)\t+ +SHELL} $tps_3 full she_First
 192             regexp {([-0-9.+eE]+)\t+ +SOLID} $tps_3 full sol_First
 193         } else {
 194             puts " STATSHAPE checking was NOT provided"
 195         }
 196         puts ""
 197
 198
 199         set nbs [ nbshapes res_1]
 200         if { [llength ${nbs}] > 0 } {
 201             regexp {FACE +: +([-0-9.+eE]+)} $nbs full fa_First
 202             regexp {SHELL +: +([-0-9.+eE]+)} $nbs full sh_First
 203             regexp {SOLID +: +([-0-9.+eE]+)} $nbs full so_First
 204             regexp {COMPOUND +: +([-0-9.+eE]+)} $nbs full co_First
 205             regexp {SHAPE +: +([-0-9.+eE]+)} $nbs full shpp_First
 206         } else {
 207             puts " NBSHAPES checking was NOT provided"
 208         }
 209
 210
 211         set chbr [checkshape res_1 ff]
 212         if { [llength ${chbr}] > 0 } {
 213             regexp {WIRE\t+: +([-0-9.+eE]+).+} $chbr full chwi_First
 214             regexp {FACE\t+: +([-0-9.+eE]+).+} $chbr full chfa_First
 215             regexp {SHELL\t+: +([-0-9.+eE]+).+} $chbr full chsh_First
 216             regexp {SOLID\t+: +([-0-9.+eE]+).+} $chbr full chso_First
 217         } else {
 218             puts " CHECKSHAPE checking was NOT provided"
 219         }
 220     }
 221 }
 222 # Writing file
 223 if { $mist < 1} {
 224     puts " "
 225     puts "-----------------------------WRITING FILE ------------------------------"
 226     file delete $imagedir/${casename}_D_First$ext
 227     if { [catch { $WriteCommand D_First $imagedir/${casename}_D_First$ext } catch_result] } {
 228         set err_msg "Error: First - file was not written - exception"
 229         puts $err_msg
 230         append todo_msg $todo_mask $err_msg $end_line
 231         set mist_w 1
 232     }
 233     if { $mist_w < 1 } {
 234
 235         if { [catch { $ReadCommand D_Second $imagedir/${casename}_D_First$ext } catch_result] } {
 236             set err_msg "Errorr: Second - file was not read - exception"
 237             puts $err_msg
 238             append todo_msg $todo_mask $err_msg $end_line
 239             set mist_Second 1
 240         }
 241     }
 242     catch {[file delete $imagedir/${casename}_D_First$ext]}
 243     # Close the document
 244
 245     if { [catch { Close D_First } catch_result] } {
 246         set err_msg "Error : cannot close a document D_First - exception"
 247         puts $err_msg
 248         append todo_msg $todo_mask $err_msg $end_line
 249         #set mist 1
 250     }
 251 }
 252
 253 if { $mist_w > 0 || $mist_Second > 0 } {
 254     set mist 2
 255 }
 256
 257 # Get information about translation
 258 if { $mist < 1} {
 259     puts ""
 260
 261     set tps_2 [data c]
 262     if { [llength $tps_2] > 0 } {
 263         # Finding all strings with warnings
 264         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+W:} $tps_2]
 265         # Extracting counts of warnings
 266         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
 267         # Calculating total number of warnings
 268         foreach i $b {set dwar_Second [expr $dwar_Second + $i]}
 269         set dwar_Second [expr $dwar_Second/4]
 270
 271         # Finding all strings with faulties
 272         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+F:} $tps_2]
 273         # Extracting counts of faulties
 274         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
 275         # Calculating total number of faulties
 276         foreach i $b {set dfal_Second [expr $dfal_Second + $i]}
 277         set dfal_Second [expr $dfal_Second/4]
 278         # Calculating total number of faulties and warnings
 279         set dcomp_Second [expr $dfal_Second + $dwar_Second]
 280
 281
 282     } else {
 283         puts " DATA c checking was NOT provided"
 284     }
 285
 286     puts ""
 287
 288     set tps_1 [tpstat c]
 289     set colvo [llength $tps_1]
 290     if { ${colvo} > 0 } {
 291         # Finding all strings with warnings
 292         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+W:} $tps_1]
 293         # Extracting counts of warnings
 294         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
 295         # Calculating total number of warnings
 296         foreach i $b {set war_Second [expr $war_Second + $i]}
 297         set war_Second [expr $war_Second/4]
 298
 299         # Finding all strings with faulties
 300         set a [regexp -all -inline {[\t ]+([-0-9.+eE]+)[\t ]+F:} $tps_1]
 301         # Extracting counts of faulties
 302         set b [regexp -all -inline {([-0-9.+eE]+)} $a]
 303         # Calculating total number of faulties
 304         foreach i $b {set fal_Second [expr $fal_Second + $i]}
 305         set fal_Second [expr $fal_Second/4]
 306         # Calculating total number of faulties and warnings
 307         set comp_Second [expr $fal_Second + $war_Second]
 308
 309
 310     } else {
 311         puts " TPSTAT c checking was NOT provided"
 312     }
 313
 314     # Get DECAF information about (color, layers and properties)
 315     puts ""
 316
 317     set xst [ XStat D_Second ]
 318     if { [llength $xst] > 0 } {
 319         regexp {level +N +0 +: +([-0-9.+eE]+)} $xst full nblev0_Second
 320         regexp {level +N +1 +: +([-0-9.+eE]+)} $xst full nblev1_Second
 321         regexp {level +N +2 +: +([-0-9.+eE]+)} $xst full nblev2_Second
 322         regexp {Total +number +of +labels +for +shapes +in +the +document += +([-0-9.+eE]+)} $xst full nblev_total_Second
 323         regexp {Number +of +labels +with +name += +([-0-9.+eE]+)} $xst full nbshname_Second
 324         regexp {Number +of +labels +with +color +link += +([-0-9.+eE]+)} $xst full nbshcolor_Second
 325         regexp {Number +of +labels +with +layer +link += +([-0-9.+eE]+)} $xst full nbshlayer_Second
 326         regexp {Number +of +Centroid Props += +([-0-9.+eE]+)} $xst full nbcentroid_Second
 327         regexp {Number +of +Volume Props += +([-0-9.+eE]+)} $xst full nbvolume_Second
 328         regexp {Number +of +Area Props += +([-0-9.+eE]+)} $xst full nbarea_Second
 329         regexp {Number +of +colors += +([-0-9.+eE]+)} $xst full nbcolor_Second
 330         regexp {Number +of +colors += +[-0-9.+eE]+\n([^\n]*)} $xst full colors_Second
 331         regexp {Number +of +layers += +([-0-9.+eE]+)} $xst full nblayer_Second
 332         regexp {Number +of +layers += +[-0-9.+eE]+\n([^\n]*)} $xst full layers_Second
 333     } else {
 334         puts " DECAF information was NOT provided"
 335     }
 336     # Get shape for standard analysis
 337     puts ""
 338     if { [catch { XGetOneShape res_2 D_Second } catch_result] } {
 339         set err_msg "Error : Second - cannot get shape from document - exception"
 340         puts $err_msg
 341         append todo_msg $todo_mask $err_msg $end_line
 342         set mist 1
 343     }
 344     if { $mist < 1 &&  [info exists res_2] == 0 } {
 345         set err_msg "Error : Second - cannot read any relevant data from the file"
 346         puts $err_msg
 347         append todo_msg $todo_mask $err_msg $end_line
 348
 349         set mist_Second 1
 350         set mist 1
 351     }
 352
 353     if { $mist < 1} {
 354         # Standard analysis
 355         puts ""
 356
 357         set tol [tolerance res_2]
 358         if { [llength $tol] > 0 } {
 359             regexp {Tolerance +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=[-0-9.+eE]+} $tol full MaxTol_Second AvgTol_Second
 360         } else {
 361             puts " TOLERANCE checking was NOT provided"
 362         }
 363
 364         puts ""
 365
 366         set tps_3 [ statshape res_2]
 367         set col [llength $tps_3]
 368         if { ${col} > 0 } {
 369             regexp {([-0-9.+eE]+)\t+ +EDGE \(Free\)} $tps_3 full fedg_Second
 370             regexp {([-0-9.+eE]+)\t+ +EDGE \(Shared\)} $tps_3 full sedg_Second
 371             regexp {([-0-9.+eE]+)\t+ +WIRE \(Free\)} $tps_3 full fwir_Second
 372             regexp {([-0-9.+eE]+)\t+ +FACE} $tps_3 full fac_Second
 373             regexp {([-0-9.+eE]+)\t+ +SHELL} $tps_3 full she_Second
 374             regexp {([-0-9.+eE]+)\t+ +SOLID} $tps_3 full sol_Second
 375         } else {
 376             puts " STATSHAPE checking was NOT provided"
 377         }
 378         puts ""
 379
 380
 381         set nbs [ nbshapes res_2]
 382         if { [llength ${nbs}] > 0 } {
 383             regexp {FACE +: +([-0-9.+eE]+)} $nbs full fa_Second
 384             regexp {SHELL +: +([-0-9.+eE]+)} $nbs full sh_Second
 385             regexp {SOLID +: +([-0-9.+eE]+)} $nbs full so_Second
 386             regexp {COMPOUND +: +([-0-9.+eE]+)} $nbs full co_Second
 387             regexp {SHAPE +: +([-0-9.+eE]+)} $nbs full shpp_Second
 388         } else {
 389             puts " NBSHAPES checking was NOT provided"
 390         }
 391
 392
 393         set chbr [checkshape res_2 ff]
 394         if { [llength ${chbr}] > 0 } {
 395             regexp {WIRE\t+: +([-0-9.+eE]+).+} $chbr full chwi_Second
 396             regexp {FACE\t+: +([-0-9.+eE]+).+} $chbr full chfa_Second
 397             regexp {SHELL\t+: +([-0-9.+eE]+).+} $chbr full chsh_Second
 398             regexp {SOLID\t+: +([-0-9.+eE]+).+} $chbr full chso_Second
 399         } else {
 400             puts " CHECKSHAPE checking was NOT provided"
 401         }
 402     }
 403 }
 404
 405 #Collect results of loop back test
 406
 407 if { $mist < 1 } {
 408     set dat_check "DATA : OK"
 409     set tpst_check "TPSTAT : OK"
 410     set check_check "CHECKSHAPE : OK"
 411     set nbsh_check "NBSHAPES : OK"
 412     set ststh_check "STATSHAPE : OK"
 413     set toler_check "TOLERANCE : OK"
 414     set lbls_check "LABELS : OK"
 415     set prps_check "PROPS : OK"
 416     set clrs_check "COLORS : OK"
 417     set lrs_check "LAYERS : OK"
 418
 419     if { $dcomp_First <  $dcomp_Second ||  $dfal_First < $dfal_Second } {
 420         set dat_check "DATA : Faulty"
 421         append todo_msg $todo_mask $dat_check $end_line
 422     }
 423     if { $fal_First < $fal_Second || $war_First < $war_Second } {
 424
 425         set tpst_check "TPSTAT : Faulty"
 426         append todo_msg $todo_mask $tpst_check $end_line
 427     }
 428     if { $chwi_First < $chwi_Second || $chfa_First < $chfa_Second || $chsh_First < $chsh_Second || $chso_First < $chso_Second } {
 429         set check_check "CHECKSHAPE : Faulty"
 430         append todo_msg $todo_mask $check_check $end_line
 431     }
 432     if { ($isIGES == 0 && $shpp_First > $shpp_Second) ||
 433          ($isIGES == 1 && ($shpp_First - $co_First) > ($shpp_Second - $co_Second))} {
 434         set nbsh_check "NBSHAPES : Faulty"
 435         append todo_msg $todo_mask $nbsh_check $end_line
 436     }
 437     if { $sol_First < $sol_Second || $she_First < $she_Second || $fac_First < $fac_Second || $fwir_First < $fwir_Second || $fedg_First < $fedg_Second} {
 438         set ststh_check "STATSHAPE : Faulty"
 439         append todo_msg $todo_mask $ststh_check $end_line
 440     }
 441
 442     if { ([expr 1.*($MaxTol_Second - $MaxTol_First)] > [expr 0.0001 * $MaxTol_First] && [expr 1. * abs($MaxTol_First-$MaxTol_Second)] > 0.0000001) || ($MaxTol_Second == 0 && $MaxTol_First > 0)} {
 443         set toler_check "TOLERANCE : Faulty"
 444         append todo_msg $todo_mask $toler_check $end_line
 445     }
 446
 447     if { $nblev0_First != $nblev0_Second || $nblev1_First != $nblev1_Second || $nblev2_First != $nblev2_Second || $nblev_total_First != $nblev_total_Second || $nbshname_First != $nbshname_Second || $nbshcolor_First != $nbshcolor_Second || $nbshlayer_First != $nbshlayer_Second } {
 448         set lbls_check "LABELS : Faulty"
 449         append todo_msg $todo_mask $lbls_check $end_line
 450     }
 451     if { $nbcentroid_First != $nbcentroid_Second || $nbvolume_First != $nbvolume_Second || $nbarea_First != $nbarea_Second } {
 452         set prps_check "PROPS : Faulty"
 453         append todo_msg $todo_mask $prps_check $end_line
 454     }
 455     if { $nbcolor_First != $nbcolor_Second } {
 456         set clrs_check "COLORS : Faulty"
 457         append todo_msg $todo_mask $clrs_check $end_line
 458     }
 459     if { $nblayer_First != $nblayer_Second } {
 460         set lrs_check "LAYERS : Faulty"
 461         append todo_msg $todo_mask $lrs_check $end_line
 462     }
 463 }
 464
 465 if { $mist != 1 } {
 466   puts ""
 467   set result ""
 468   append result [format "DATA        : Faulties = %s  ( %s )  Warnings = %s  ( %s )  Summary  = %s  ( %s )\n" \
 469               $dfal_Second $dfal_First $dwar_Second $dwar_First $dcomp_Second $dcomp_First ]
 470   append result [format "TPSTAT      : Faulties = %s  ( %s )  Warnings = %s  ( %s )  Summary  = %s  ( %s )\n" \
 471               $fal_Second $fal_First $war_Second $war_First $comp_Second $comp_First ]
 472   append result [format "CHECKSHAPE  : Wires    = %s  ( %s )  Faces    = %s  ( %s )  Shells   = %s  ( %s )   Solids   = %s ( %s )\n" \
 473               $chwi_Second $chwi_First $chfa_Second $chfa_First $chsh_Second $chsh_First $chso_Second $chso_First ]
 474   append result [format "NBSHAPES    : Solid    = %s  ( %s )  Shell    = %s  ( %s )  Face     = %s  ( %s )   Summary  = %s  ( %s )\n" \
 475               $so_Second $so_First $sh_Second $sh_First $fa_Second $fa_First $shpp_Second $shpp_First ]
 476   append result [format "STATSHAPE   : Solid    = %s  ( %s )  Shell    = %s  ( %s )  Face     = %s  ( %s )   FreeWire = %s  ( %s )   FreeEdge  = %s ( %s )   SharedEdge = %s  ( %s )\n" \
 477               $sol_Second $sol_First $she_Second $she_First $fac_Second $fac_First $fwir_Second $fwir_First $fedg_Second $fedg_First $sedg_Second $sedg_First ]
 478   append result [format "TOLERANCE   : MaxTol   = %14.10g  ( %14.10g )  AvgTol   =  %14.10g  (  %14.10g )\n" \
 479               $MaxTol_Second $MaxTol_First $AvgTol_Second $AvgTol_First ]
 480   append result [format "LABELS      : N0Labels = %s  ( %s )  N1Labels = %s  ( %s )  N2Labels = %s  ( %s )   TotalLabels = %s  ( %s )   NameLabels = %s  ( %s )   ColorLabels = %s  ( %s )   LayerLabels = %s  ( %s )\n" \
 481               $nblev0_Second $nblev0_First $nblev1_Second $nblev1_First $nblev2_Second $nblev2_First $nblev_total_Second $nblev_total_First $nbshname_Second $nbshname_First $nbshcolor_Second $nbshcolor_First $nbshlayer_Second $nbshlayer_First ]
 482   append result [format "PROPS       : Centroid = %s  ( %s )  Volume   = %s  ( %s )  Area     = %s  ( %s )\n" \
 483               $nbcentroid_Second $nbcentroid_First $nbvolume_Second $nbvolume_First $nbarea_Second $nbarea_First ]
 484   append result [format "NCOLORS     : NColors  = %s  ( %s )\n" \
 485               $nbcolor_Second $nbcolor_First ]
 486   append result [format "COLORS      : Colors   = %s  ( %s )\n" \
 487               [lsort $colors_Second] [lsort $colors_First] ]
 488   append result [format "NLAYERS     : NLayers  = %s  ( %s )\n" \
 489               $nblayer_Second $nblayer_First ]
 490   append result [format "LAYERS      : Layers   = %s  ( %s )\n" \
 491               [lsort $layers_Second] [lsort $layers_First] ]
 492 }
 493
 494 puts ""
 495 puts ""
 496 puts "########################### RESULTS ###############################"
 497 puts ""
 498 puts "========================== Loop Back test ========================="
 499 puts ""
 500 if {$mist == 1 }  {
 501     set err_msg "Error : Here is reading problem"
 502     puts $err_msg
 503     append todo_msg $todo_mask $err_msg $end_line
 504 } else {
 505     puts "File was read PROPERLY - OK"
 506     puts ""
 507     if {$mist_w > 0 }  {
 508         set err_msg "Error : Here is writing problem"
 509         puts $err_msg
 510         append todo_msg $todo_mask $err_msg $end_line
 511     } else {
 512         puts "File was write PROPERLY - OK"
 513         puts ""
 514         if {$mist_Second > 0 } {
 515             set err_msg "Error : Here is reading problem for writing file"
 516             puts $err_msg
 517             append todo_msg $todo_mask $err_msg $end_line
 518         } else {
 519             puts "Writing file was read PROPERLY - OK"
 520             puts ""
 521             puts $dat_check
 522             puts $tpst_check
 523             puts $check_check
 524             puts $nbsh_check
 525             puts $ststh_check
 526             puts $toler_check
 527             puts $lbls_check
 528             puts $prps_check
 529             puts $clrs_check
 530             puts $lrs_check
 531             puts ""
 532             if { $todo_msg != "" } {
 533                 puts $result
 534                 puts ""
 535             }
 536         }
 537     }
 538 }
 539
 540
 541 set err_compare_ref ""
 542
 543 # Put reference data to the test script file if option "dump" is set
 544 if { $dump_file == 1 } {
 545     set fd_stream  [open $dirname/$groupname/$gridname/$casename w]
 546     puts $fd_stream "# !!!! This file is generated automatically, do not edit manually! See end script"
 547     if { $todo_msg != "" } {
 548         puts  $fd_stream $todo_msg
 549         puts $fd_stream ""
 550     }
 551     if {[info exist LinuxFaulties] && [llength $LinuxFaulties] != 0} {
 552         for {set i 0} { $i < [llength $LinuxFaulties] } { incr i } {
 553             puts $fd_stream "$Mandriva_todo_mask [lindex $LinuxFaulties $i] : Faulty $end_line"
 554         }
 555     }
 556     if {[info exist LinuxDiff] && $LinuxDiff != 0} {
 557         puts $fd_stream "$Mandriva_todo_mask Error : $LinuxDiff differences with reference data found :$end_line"
 558     }
 559
 560     if {[info exist LinuxDiff] && $LinuxDiff != 0} {
 561         puts $fd_stream "set LinuxDiff $LinuxDiff"
 562         set LinuxDiff 0
 563     }
 564     if {[info exist LinuxFaulties] && [llength $LinuxFaulties] != 0} {
 565         puts $fd_stream "set LinuxFaulties \{$LinuxFaulties\}"
 566         set LinuxFaulties {}
 567     }
 568     if {[info exist ProductMode] && $ProductMode == "OFF"} {
 569        puts $fd_stream "set ProductMode OFF"
 570     }
 571     puts $fd_stream "set filename $filename"
 572     if { $mist != 1 } {
 573         puts $fd_stream ""
 574         puts $fd_stream "set ref_data \{"
 575         puts $fd_stream $result
 576         puts $fd_stream "\}"
 577     }
 578     close $fd_stream
 579 } elseif { $mist != 1 } {
 580     puts "========================== Comparision with reference data ========"
 581     puts ""
 582     # Comparision of reference data with obtained result
 583     set ref_list [split $ref_data \n]
 584     set cur_list [split $result \n]
 585     set nb_ref [llength $ref_list]
 586     set nb_cur [llength $cur_list]
 587     for { set i 0 } { $i < $nb_cur } { incr i } {
 588         set j [expr $i +1]
 589         set refstr [lindex $ref_list $j]
 590         set curstr [lindex $cur_list $i]
 591         set isSplit 0;
 592         set isOK 1;
 593
 594         if {[regexp "DATA        :" $refstr]} {
 595             set isSplit 1;
 596             set data_ref [split $refstr " "]
 597             set data_cur [split $curstr " "]
 598             set k_ref 1; set k_cur 1
 599             for { set k 1 } { $k <= 2 } { incr k } {
 600                 while {[string is integer -strict [lindex $data_ref $k_ref]] == 0} {incr k_ref}
 601                 while {[string is integer -strict [lindex $data_cur $k_cur]] == 0} {incr k_cur}
 602                 set ref_number [lindex $data_ref $k_ref]
 603                 set cur_number [lindex $data_cur $k_cur]
 604                 incr k_ref
 605                 incr k_cur
 606                 if { $cur_number > $ref_number} {
 607                      set isOK 0
 608                    }
 609             }
 610         }
 611         if {[regexp "TPSTAT      :" $refstr]} {
 612             set isSplit 1;
 613             set data_ref [split $refstr " "]
 614             set data_cur [split $curstr " "]
 615             set k_ref 1; set k_cur 1
 616             for { set k 1 } { $k <= 2 } { incr k } {
 617                 while {[string is integer -strict [lindex $data_ref $k_ref]] == 0} {incr k_ref}
 618                 while {[string is integer -strict [lindex $data_cur $k_cur]] == 0} {incr k_cur}
 619                 set ref_number [lindex $data_ref $k_ref]
 620                 set cur_number [lindex $data_cur $k_cur]
 621                 incr k_ref
 622                 incr k_cur
 623                 if { $cur_number > $ref_number} {
 624                      set isOK 0
 625                    }
 626             }
 627         }
 628         if {[regexp "CHECKSHAPE  :" $refstr]} {
 629             set isSplit 1;
 630             set data_ref [split $refstr " "]
 631             set data_cur [split $curstr " "]
 632             set k_ref 1; set k_cur 1
 633             for { set k 1 } { $k <= 8 } { incr k } {
 634                 while {[string is integer -strict [lindex $data_ref $k_ref]] == 0} {incr k_ref}
 635                 while {[string is integer -strict [lindex $data_cur $k_cur]] == 0} {incr k_cur}
 636                 set ref_number [lindex $data_ref $k_ref]
 637                 set cur_number [lindex $data_cur $k_cur]
 638                 incr k_ref
 639                 incr k_cur
 640                 if { $cur_number > $ref_number} {
 641                      set isOK 0
 642                    }
 643             }
 644         }
 645
 646         if {[regexp "TOLERANCE   :" $refstr]} {
 647             set isSplit 1;
 648             set data_ref [split $refstr " "]
 649             set data_cur [split $curstr " "]
 650             set k_ref 1; set k_cur 1
 651             for { set k 1 } { $k <= 4 } { incr k } {
 652                 while {[string is double -strict [lindex $data_ref $k_ref]] == 0} {incr k_ref}
 653                 while {[string is double -strict [lindex $data_cur $k_cur]] == 0} {incr k_cur}
 654                 set ref_number [lindex $data_ref $k_ref]
 655                 set cur_number [lindex $data_cur $k_cur]
 656                 incr k_ref
 657                 incr k_cur
 658                 if { [expr 1. * ($cur_number-$ref_number)] > 0.0001 &&
 659                      [expr 1. * ($cur_number-$ref_number)] > [expr 0.01 * $ref_number]} {
 660                      set isOK 0
 661                    }
 662             }
 663         }
 664
 665
 666         if {$isSplit == 0} {
 667             if {$refstr != $curstr} {set isOK 0}
 668         }
 669
 670         if { $isOK == 0}  {
 671             incr ref_Compare
 672             append err_compare_ref " Reference data - $refstr\n"
 673             append err_compare_ref " Current data   - $curstr\n"
 674             append err_compare_ref "----------------------------------------------\n"
 675         }
 676     }
 677 }
 678
 679 if { $dump_file != 0 } {
 680     puts "Error : Running in regeneration mode, comparision was not performed!"
 681     if { $mist != 1 } {
 682          puts "Generation of test file $groupname/$gridname/$casename successful"
 683     } else {
 684          puts "Generation of reference data failed"
 685     }
 686 } else {
 687     if { $ref_Compare > 0} {
 688         puts "Error : $ref_Compare differences with reference data found :\n$err_compare_ref"
 689     } else {
 690         puts "Comparision of current result with reference data - OK\n"
 691     }
 692 }
 693
 694 puts "--------------------------------------------------------------------"
 695 puts ""
 696
 697 clear
 698 smallview
 699 if { $mist < 1 } {
 700     if { [info exists res_2] && [isdraw res_2] } {
 701         donly res_2
 702     }
 703 }
 704 fit
 705 xwd $imagedir/${test_image}.png
 706 if { $mist < 1 } {
 707    if { [catch { Close D_Second } catch_result] } {
 708       puts "Error : cannot close a document D_Second"
 709    }
 710 }
 711 set ProductMode ON
 712
 713 puts "TEST COMPLETED"