tests/bugs/modalg_6/bug26393

   1 puts "========"
   2 puts "OCC26393"
   3 puts "========"
   4 puts ""
   5 #################################################################
   6 # Add draw commands to evaluate history of modifications of BOP
   7 #################################################################
   8
   9 restore [locate_data_file OCC26393-w.brep] w
  10 restore [locate_data_file OCC26393-v1.brep] v0
  11 restore [locate_data_file OCC26393-v2.brep] v1
  12
  13 bclearobjects
  14 bcleartools
  15 baddobjects w
  16 baddtools v0 v1
  17 bfillds
  18 bbuild r
  19
  20 set bug_info [bmodified v0m v0]
  21 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  22 if {$bug_info != "The shape has not been modified"} {
  23   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
  24 }
  25
  26 set bug_info [bmodified v1m v1]
  27 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  28 if {$bug_info != "The shape has not been modified"} {
  29   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
  30 }
  31
  32 set bug_info [bisdeleted v0]
  33 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  34 if {$bug_info != "Not deleted"} {
  35   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
  36 }
  37
  38 set bug_info [bisdeleted v1]
  39 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  40 if {$bug_info != "Not deleted"} {
  41   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
  42 }
  43
  44 explode w e
  45
  46 set bug_info [bmodified w1m w_1]
  47 if {$bug_info != ""} {
  48   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
  49 }
  50
  51 set bug_info [bisdeleted w_1]
  52 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  53 if {$bug_info != "Not deleted"} {
  54   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
  55 }
  56
  57 set bug_info [bmodified w2m w_2]
  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 not been modified"} {
  60   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
  61 }
  62
  63 set bug_info [bisdeleted w_2]
  64 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  65 if {$bug_info != "Not deleted"} {
  66   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
  67 }
  68
  69 set bug_info [bmodified w3m w_3]
  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 modified"} {
  72   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
  73 }
  74
  75 set bug_info [bisdeleted w_3]
  76 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  77 if {$bug_info != "Not deleted"} {
  78   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
  79 }
  80
  81 set bug_info [bmodified w4m w_4]
  82 if {$bug_info != ""} {
  83   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work correctly."
  84 }
  85
  86 set bug_info [bisdeleted w_4]
  87 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  88 if {$bug_info != "Not deleted"} {
  89   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
  90 }
  91
  92 set bug_info [bmodified w5m w_5]
  93 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
  94 if {$bug_info != "The shape has not been modified"} {
  95   puts "ERROR: OCC26393 is reproduced. Command bmodified does not work."
  96 }
  97
  98 set bug_info [bisdeleted w_5]
  99 set bug_info [string trim [string range $bug_info 0 [expr {[string first "\n" $bug_info] - 1}]]]
 100 if {$bug_info != "Not deleted"} {
 101   puts "ERROR: OCC26393 is reproduced. Command bisdeleted does not work."
 102 }