0028226: Incorrect history support in ShapeUpgrade_UnifySameDomain algorithm
[occt.git] / tests / heal / unify_same_domain / A4
1 puts "=========="
2 puts "OCC28226"
3 puts "=========="
4 puts ""
5 #####################################################################
6 # Incorrect history support in ShapeUpgrade_UnifySameDomain algorithm
7 #####################################################################
8
9 restore [locate_data_file bug28228_face.brep] a
10
11 explode a f
12 explode a_1 v
13 explode a e
14
15 unifysamedom result a a_3 a_1_3 a_1_4
16
17 set bug_info [unifysamedomgen res a_9]
18 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
19 if {$bug_info != "No shapes were generated from the shape"} {
20   puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
21 }
22
23 set bug_info [unifysamedomgen res a_10]
24 if {$bug_info != ""} {
25   puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
26 }
27
28 set bug_info [unifysamedomgen res a_11]
29 if {$bug_info != ""} {
30   puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
31 }
32
33 set bug_info [unifysamedomgen res a_3]
34 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
35 if {$bug_info != "No shapes were generated from the shape"} {
36   puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
37 }
38
39 set bug_info [unifysamedommod res a_1]
40 if {$bug_info != ""} {
41   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
42 }
43
44 set bug_info [unifysamedommod res a_3]
45 if {$bug_info != ""} {
46   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
47 }
48
49 set bug_info [unifysamedommod res a_10]
50 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
51 if {$bug_info != "The shape has not been modified"} {
52   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
53 }
54
55 set bug_info [unifysamedommod res a_11]
56 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
57 if {$bug_info != "The shape has not been modified"} {
58   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
59 }
60
61 set bug_info [unifysamedomisdel a_3]
62 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
63 if {$bug_info != "The shape has not been deleted"} {
64   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
65 }
66
67 set bug_info [unifysamedomisdel a_9]
68 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
69 if {$bug_info != "The shape has been deleted"} {
70   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
71 }
72
73 set bug_info [unifysamedomisdel a_1_8]
74 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
75 if {$bug_info != "The shape has been deleted"} {
76   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
77 }
78
79 set bug_info [unifysamedomisdel a_1_9]
80 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
81 if {$bug_info != "The shape has been deleted"} {
82   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
83 }
84
85 set bug_info [unifysamedomisdel a_10]
86 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
87 if {$bug_info != "The shape has not been deleted"} {
88   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
89 }
90
91 set bug_info [unifysamedomisdel a_11]
92 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
93 if {$bug_info != "The shape has not been deleted"} {
94   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
95 }
96
97 unifysamedom result2 a a_3 a_1_3 a_1_4 -e
98
99 set bug_info [unifysamedomisdel a_1_8]
100 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
101 if {$bug_info != "The shape has not been deleted"} {
102   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
103 }
104
105 set bug_info [unifysamedomisdel a_1_9]
106 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
107 if {$bug_info != "The shape has been deleted"} {
108   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
109 }