Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug22489_1
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_Solid_2.brep] b 
12
13 point p 1000 1000 1000
14
15 set res [split [bclassify b p] ]
16
17 set ll [llength ${res}]
18 if {${ll} < 4} {
19    puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
20 } else {
21    if {[regexp {The point is OUT of shape} $res]} {
22       puts "OK ${BugNumber}"
23    } else {
24       puts "Faulty ${BugNumber}"
25    }
26 }
27