Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug286
1 puts "TODO OCC12345 ALL: Faulty OCC286: Attempt to project the point on surface gives wrong result."
2 puts "========================"
3 puts " OCC286 "
4 puts "========================"
5 puts ""
6
7 restore [locate_data_file OCC286a.draw] a 
8 restore [locate_data_file OCC286b.draw] b
9
10 intersect i a b
11 cvalue i 0.31 x y z
12 point p x y z
13 proj b x y z
14
15 set err1 ""
16 set err2 ""
17 set err3 ""
18 regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_1] full err1
19 regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_2] full err2
20 regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_3] full err3
21
22 if { $err1 == $err2  || $err1 == $err3 || $err2 == $err3 } {
23     puts "Faulty OCC286: Attempt to project the point on surface gives wrong result."
24 } else {
25     puts "OCC286 OK : Attempt to project the point on surface gives correct result"
26 }
27
28 set 2dviewer 0