Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug23341
1 puts "================"
2 puts "OCC23341"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Wrong result done by 2D classifier algorithm for a point and a face
7 #######################################################################
8
9 set BugNumber OCC23341
10
11 restore [locate_data_file bug23341_f1] f1
12 restore [locate_data_file bug23341_p] p
13 set info [b2dclassify f1 p]
14 set check [regexp "OUT" $info]
15
16 if { ${check} == 1 } {
17     puts "OK ${BugNumber}"
18 } else {
19     puts "Faulty ${BugNumber}"
20 }
21
22