[occt.git] / tests / bugs / modalg_7 / bug31031

puts "========"
puts "0031031: Incorrect result is returned from BRepPrimAPI_MakePrism::Generated()"
puts "========"
puts ""

pload MODELING 

vertex v1 0 0 0
prism r1 v1 0 0 2 
savehistory h1
set s1 [dump h1]
if { !([regexp "0 Deleted" $s1] && [regexp "1 Generated" $s1])} {
  puts "Error: wrong history h1"
}
Commit	Line	Data
44fafc47	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