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 [unifysamedommod 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 != "The shape has not been modified"} {
  20   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
  21 }
  22
  23 set bug_info [unifysamedommod res a_10]
  24 if {$bug_info != ""} {
  25   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
  26 }
  27
  28 set bug_info [unifysamedommod res a_11]
  29 if {$bug_info != ""} {
  30   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
  31 }
  32
  33 set bug_info [unifysamedommod 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 != ""} {
  36   puts "ERROR: OCC28226 is reproduced. Command unifysamedommod does not work correctly."
  37 }
  38
  39 set bug_info [unifysamedomisdel a_3]
  40 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  41 if {$bug_info != "The shape has not been deleted"} {
  42   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  43 }
  44
  45 set bug_info [unifysamedomisdel a_9]
  46 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  47 if {$bug_info != "The shape has been deleted"} {
  48   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  49 }
  50
  51 set bug_info [unifysamedomisdel a_1_8]
  52 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  53 if {$bug_info != "The shape has been deleted"} {
  54   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  55 }
  56
  57 set bug_info [unifysamedomisdel a_1_9]
  58 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  59 if {$bug_info != "The shape has been deleted"} {
  60   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  61 }
  62
  63 set bug_info [unifysamedomisdel a_10]
  64 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  65 if {$bug_info != "The shape has not been deleted"} {
  66   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  67 }
  68
  69 set bug_info [unifysamedomisdel a_11]
  70 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  71 if {$bug_info != "The shape has not been deleted"} {
  72   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  73 }
  74
  75 unifysamedom result2 a a_3 a_1_3 a_1_4 -e
  76
  77 set bug_info [unifysamedomisdel a_1_8]
  78 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  79 if {$bug_info != "The shape has been deleted"} {
  80   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  81 }
  82
  83 set bug_info [unifysamedomisdel a_1_9]
  84 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  85 if {$bug_info != "The shape has been deleted"} {
  86   puts "ERROR: OCC28226 is reproduced. Command unifysamedomisdel does not work correctly."
  87 }