Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug231
CommitLineData
a87752f3 1puts "========"
2puts "OCC231"
3puts "========"
4puts ""
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
13restore [locate_data_file OCC231.draw] result
14
15set str [proj result 1751.38 614.152 -180.331]
16set err [llength $str]
17
18if { $err < 4 } {
19 puts "Faulty OCC231: Projection was made wrongly"
20} else {
21 puts "OCC231 OK: Projection was made properly"
22}
23
24set 2dviewer 0
25