3bea4c16 |
1 | puts "================" |
2 | puts "OCC22489" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC22489 |
10 | |
11 | restore [locate_data_file bug22489_sew1.brep] s |
12 | |
13 | mksol b s |
14 | |
15 | point p 1000 1000 1000 |
16 | |
17 | set res [split [bclassify b p] ] |
18 | |
19 | set ll [llength ${res}] |
20 | if {$ll < 4} { |
21 | puts "Bad format of bclassify draw-command; Faulty ${BugNumber}" |
22 | } else { |
23 | if {[regexp {The point is OUT of shape} $res]} { |
24 | puts "OK ${BugNumber}" |
25 | } else { |
26 | puts "Faulty ${BugNumber}" |
27 | } |
28 | } |
29 | |