0028710: Implement 'BRepTools_History' history for algorithm 'ShapeUpgrade_UnifySameD...

[occt.git] / tests / heal / unify_same_domain / A4

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 [unifysamedommod res 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 not been modified"} {
  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
}

set bug_info [unifysamedommod res a_10]
if {$bug_info != ""} {
  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
}

set bug_info [unifysamedommod res a_11]
if {$bug_info != ""} {
  puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
}

set bug_info [unifysamedommod res a_3]
set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
if {$bug_info != ""} {
  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 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."
}