Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60815
1 puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
2 puts "=========="
3 puts "BUC60815"
4 puts "=========="
5
6 plane p1 1 0 0
7 plane p2 0 0 0 1 0 0
8 trim p1 p1 -50 50 -50 50
9 trim p2 p2 -75 75 -75 75 
10 intersect r2 p1 p2
11 extsurf e1 r2 10 10 10
12 extsurf e3 r2 10 10 10
13
14 if [catch { intersect result e1 e3 } catch_result] {
15     puts "Faulty BUC60815: NO EXCEPTION."
16     puts "INTERSECTION BETWEEN TWO SURFACES LYING ON THE SAME PLANE UNDEFINED"
17 } else {
18     puts "BUC60815 OK: suitable except"
19 }
20
21 set 2dviewer 0
22