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