tests/bugs/modalg_7/bug30346_1

   1 puts "========"
   2 puts "0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws BRepSweep_Translation::MakeEmptyVertex"
   3 puts "========"
   4 puts ""
   5
   6 pload MODELING
   7
   8 plane f 0 0 0 0 1 0
   9 mkface f f 0 1 0 1
  10 revol r1 f 0 0 0 0 0 1 60
  11 savehistory h1
  12 set s1 [dump h1]
  13 if { !([regexp "0 Deleted" $s1] && [regexp "6 Generated" $s1])} {
  14   puts "Error: wrong history h1"
  15 }
  16 revol r2 f 0 0 0 0 0 1 360
  17 savehistory h2
  18 set s2 [dump h2]
  19 if { !([regexp "6 Deleted" $s2] && [regexp "3 Generated" $s2])} {
  20   puts "Error: wrong history h2"
  21 }