tests/bugs/modalg_7/bug31031

   1 puts "========"
   2 puts "0031031: Incorrect result is returned from BRepPrimAPI_MakePrism::Generated()"
   3 puts "========"
   4 puts ""
   5
   6 pload MODELING
   7
   8 vertex v1 0 0 0
   9 prism r1 v1 0 0 2
  10 savehistory h1
  11 set s1 [dump h1]
  12 if { !([regexp "0 Deleted" $s1] && [regexp "1 Generated" $s1])} {
  13   puts "Error: wrong history h1"
  14 }
  15