0028226: Incorrect history support in ShapeUpgrade_UnifySameDomain algorithm
[occt.git] / tests / heal / unify_same_domain / A4
diff --git a/tests/heal/unify_same_domain/A4 b/tests/heal/unify_same_domain/A4
new file mode 100644 (file)
index 0000000..82b024e
--- /dev/null
@@ -0,0 +1,109 @@
+puts "=========="
+puts "OCC28226"
+puts "=========="
+puts ""
+#####################################################################
+# Incorrect history support in ShapeUpgrade_UnifySameDomain algorithm
+#####################################################################
+
+restore [locate_data_file bug28228_face.brep] a
+
+explode a f
+explode a_1 v
+explode a e
+
+unifysamedom result a a_3 a_1_3 a_1_4
+
+set bug_info [unifysamedomgen res a_9]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "No shapes were generated from the shape"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
+}
+
+set bug_info [unifysamedomgen res a_10]
+if {$bug_info != ""} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
+}
+
+set bug_info [unifysamedomgen res a_11]
+if {$bug_info != ""} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
+}
+
+set bug_info [unifysamedomgen res a_3]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "No shapes were generated from the shape"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomgen does not work correctly."
+}
+
+set bug_info [unifysamedommod res a_1]
+if {$bug_info != ""} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
+}
+
+set bug_info [unifysamedommod res a_3]
+if {$bug_info != ""} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
+}
+
+set bug_info [unifysamedommod res a_10]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has not been modified"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
+}
+
+set bug_info [unifysamedommod res a_11]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has not been modified"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_3]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has not been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_9]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_1_8]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_1_9]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_10]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has not been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_11]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has not been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+unifysamedom result2 a a_3 a_1_3 a_1_4 -e
+
+set bug_info [unifysamedomisdel a_1_8]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has not been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
+
+set bug_info [unifysamedomisdel a_1_9]
+set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
+if {$bug_info != "The shape has been deleted"} {
+  puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
+}
\ No newline at end of file