61c421bf |
1 | pload QAcommands |
2 | |
3 | puts "============" |
4 | puts "OCC8169" |
5 | puts "============" |
6 | puts "" |
7 | ####################################################################### |
8 | # Wrong Geom2dAPI_InterCurveCurve segment |
9 | ####################################################################### |
10 | |
11 | set BugNumber OCC6768 |
12 | |
13 | restore [locate_data_file OCC8169_1.brep] e1 |
14 | restore [locate_data_file OCC8169_2.brep] e2 |
15 | |
16 | plane p 0 0 500 0 0 1 1 0 0 |
17 | dump p |
18 | mkface result p |
19 | |
20 | if { [regexp {Faulty} [OCC8169 e1 e2 result]] == 0 } { |
21 | puts "OK ${BugNumber}" |
22 | } else { |
23 | puts "Faulty ${BugNumber}" |
24 | } |
25 | |
5747059b |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |