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."
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
	
