puts "================"
puts "OCC30"
puts "================"
puts ""

restore [locate_data_file OCC30.brep] a 
puts [checkshape a]

explode a e
explode a f
catch {chamf result a a_2 a_1 A 1 45} info
if { [regexp "No suitable edges to chamfer" $info] != 1 } {
    puts "Error : Function chamfer works wrongly"
} else {
    puts "OK: suitable message is given"
}