Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug231
1 puts "========"
2 puts "OCC231"
3 puts "========"
4 puts ""
5
6 #############################################
7 ##Uncorrect work DRAW command "proj" in version dev
8 ## and receive such result:
9 ## in dev : ext_1 ext_2 ext_3
10 ## in C40 : ext_1 ext_2 ext_3 ext_4
11 #############################################
12
13 restore [locate_data_file OCC231.draw] result
14
15 set str [proj result 1751.38 614.152 -180.331]
16 set err [llength $str]
17
18 if { $err < 4 } {
19     puts "Faulty OCC231: Projection was made wrongly"
20 } else {
21     puts "OCC231 OK: Projection was made properly"
22 }
23
24 set 2dviewer 0
25