0024174: [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
[occt.git] / tests / sewing / end
1 set cs_a [checkshape a]
2 puts "checkshape a"
3 if { [info exists nb_f] == 0 } {
4   set nb_f 0
5 }
6 if { $cs_a == "This shape seems to be valid"} {
7   puts "Shape a seems to be valid"
8   set nb_a 0
9 } else {
10   puts "Shape a is not valid"
11   regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_a full nb_a_begin nb_a_end
12   puts "Number of faulties is [expr $nb_a_end - $nb_a_begin +1]"
13   set nb_a [expr $nb_a_end - $nb_a_begin +1]
14 }
15
16 set exp [explode a f]
17 set L [concat compound $exp C]
18 eval $L
19 puts [whatis C]
20 puts [sewing result $tol C]
21
22 if { [isdraw result] } {
23   set cs_r [checkshape result]
24   puts "checkshape result"
25   if { $cs_r == "This shape seems to be valid"} {
26     puts "Shape result seems to be valid"
27     set nb_r 0
28   } else {
29     puts "Shape result is not valid"
30     regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_r full nb_r_begin nb_r_end
31     set nb_r [expr $nb_r_end - $nb_r_begin +1]
32   }
33   set t [dtyp result]
34   puts $t
35   set w [lindex $t 1]
36   if {"$w" == "SHELL"} {
37     catch {freebounds $result -0.01}
38     set s [explode result_c e]
39     puts $s
40     set index [ llength $s ]
41     if { $index != 0 } {
42       puts "Error : Number of free edges is $index"
43     }
44
45     puts "Number of faults for the initial shape is $nb_a."
46     puts "Number of faults for the resulting shape is $nb_r."
47
48     #if nb_f is empty then it is instaility.
49     if { [string compare "$nb_f" ""] == 0 || $nb_f > 0 } {
50       set os "ALL"
51       if {[array get env os_type] != ""} {
52         set os $env(os_type)
53       }
54       puts "TODO #23150 $os: Error : Number of faults is $nb_f"
55     }
56     if { $nb_r > $nb_a } {
57       puts "Error : Number of faults is $nb_r"
58     }
59   } else { 
60     puts "Error : OPERATION FAILED"
61   }
62   clear
63   smallview
64   donly result
65   checkshape result
66   fit
67   xwd $imagedir/${test_image}.png
68 } else {
69   puts "Error : The sewing cannot be built."
70 }
71
72 puts "TEST COMPLETED"