1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "================"
puts "OCC23125"
puts "================"
puts ""
##########################################################################################
# Wrong result done by classifier algorithm for a point and a solid
##########################################################################################
set BugNumber OCC23125
restore [locate_data_file bug23125_ref] b
restore [locate_data_file bug23125_pref] p
set info [ bclassify b p ]
# Resume
puts ""
if { [regexp "The point is IN shape" $info] != 1 } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
set 3dviewer 0
|
