puts "================" puts "OCC24481" puts "================" puts "" ####################################################################### # Test "Perform Infinite Point" provides wrong result for a solid ####################################################################### set BugNumber OCC24481 restore [locate_data_file bug24481_sdp.brep] b set res [xclassify b] if { [regexp "OUT" $res] == 1 } { puts "OK ${BugNumber}" } else { puts "Faulty ${BugNumber}" }