Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug17424
1 pload QAcommands
2
3 puts "============"
4 puts "OCC17424"
5 puts "============"
6 puts ""
7 ######################################################
8 # IntCurvesFace_ShapeIntersector does not find intersection point
9 ######################################################
10
11 set BugNumber OCC17424
12
13 restore [locate_data_file OCC17424.brep] a 
14
15 set X_Pnt 86.960439048069262
16 set Y_Pnt 1028.2863798310484
17 set Z_Pnt -266.58526583558000
18
19 set X_Dir 0.25881904510252074
20 set Y_Dir 0
21 set Z_Dir -0.96592582628906831
22
23 set PInf 0.
24
25 set aStatusList [OCC17424 a ${X_Pnt} ${Y_Pnt} ${Z_Pnt} ${X_Dir} ${Y_Dir} ${Z_Dir} ${PInf}]
26 regexp {OCC17424 status = +([-0-9.+eE]+)} ${aStatusList} full aStatus
27
28 if { ${aStatus} != 0 } {
29    puts "Faulty ${BugNumber}"
30 } else {
31    puts "OK ${BugNumber}"
32 }
33