0024171: Eliminate CLang compiler warning -Wreorder
[occt.git] / 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"