Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug23248
1 puts "================"
2 puts "OCC23248"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Wrong result done by solid classifier algorithm for infinite point
7 #######################################################################
8
9 set BugNumber OCC23248
10
11 restore [locate_data_file bug23248_so] b
12
13 set result [split [xclassify b 1e-7]]
14
15 set ll [llength ${result}]
16 if {${ll} < 3} {
17     puts "Bad format of xclassify draw-command; Faulty ${BugNumber}"
18 } else {
19     set status [lindex ${result} 2]
20     if { [regexp "OUT" $result] == 1 } {
21         puts "OK ${BugNumber}"
22     } else {
23         puts "Faulty ${BugNumber}"
24     }
25 }
26
27