0e443e13 |
1 | puts "REQUIRED All: Projection Failed" |
2 | |
a87752f3 |
3 | puts "===========" |
4 | puts " OCC308 " |
5 | puts "===========" |
6 | puts "" |
7 | ################################################################# |
8 | ## Can not project 3D-curve on surface. |
9 | ################################################################# |
10 | |
11 | restore [locate_data_file OCC308a.draw] a |
12 | restore [locate_data_file OCC308b.draw] b |
13 | |
14 | if [catch {project result a b} catch_result] { |
15 | set mistake 1 |
16 | } else { |
17 | set mistake 0 |
18 | } |
19 | |
20 | if { $mistake == 0} { |
21 | puts "Faulty OCC308 : function PROJECT works wrongly" |
22 | } else { |
23 | puts "OCC308 OK : function PROJECT works properly" |
24 | } |
25 | |
5747059b |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
27 | |