# test small edges
restore [locate_data_file OCC651a.brep] a
-decho off
puts "Checking shapes: bopargcheck a b /FTVEIP ..."
set resstr [bopargcheck a /FTVEIP]
-decho on
if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
puts "OK ${BugNumber}"