Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug308
1 puts "==========="
2 puts " OCC308 "
3 puts "==========="
4 puts ""
5 #################################################################
6 ## Can not project 3D-curve on surface.
7 #################################################################
8
9 restore [locate_data_file OCC308a.draw] a 
10 restore [locate_data_file OCC308b.draw] b
11
12 if [catch {project result a b} catch_result] {
13     set mistake 1
14 } else {
15     set mistake 0
16 }
17
18 if { $mistake == 0} {
19     puts "Faulty OCC308 : function PROJECT works wrongly"
20 } else {
21     puts "OCC308 OK : function PROJECT works properly"
22 }
23
24 set 2dviewer 0
25