[occt.git] / tests / bugs / xde / bug2

puts "================"
puts "OCC2"
puts "================"
puts ""

restore [locate_data_file OCC46.brep] result
checkshape result

set l [lindex [statshape result] 5]

if { $l != "EDGE"} then {
   puts "Error : Output of statshape is incorrect."
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "================"
	2	puts "OCC2"
	3	puts "================"
	4	puts ""
	5
	6	restore [locate_data_file OCC46.brep] result
352ffd73	7	checkshape result
0e94a94e	8
	9	set l [lindex [statshape result] 5]
	10
	11	if { $l != "EDGE"} then {
	12	puts "Error : Output of statshape is incorrect."
	13	}
	14
	15	set 2dviewer 0
	16