Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug119
1 puts "================"
2 puts "OCC119"
3 puts "================"
4 puts ""
5
6 box a 100 100 100
7 explode a e
8
9 set mistake 0
10 if [catch {blend result_1 a 50 a_10 50 a_5 50 a_12 50 a_3 } catch_result] {
11     set mistake 1
12 } else {
13     set mistake 0
14 }
15
16 if { ${mistake} == 1} {
17     puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given."
18 } else {
19     puts "1) OCC119 OK: function BLEND works without suitable except"
20     puts [checkshape result_1]
21     explode result_1 e
22
23     if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } {
24         puts "2) Faulty  OCC119: BLEND was NOT created"
25     } else {
26         puts "2) BLEND OCC199 OK: BLEND was created"
27         puts [checkshape result_2]
28     }
29
30     set che [checkshape result_2 r]
31     if { [regexp {OK} $che] != 1 } {
32         puts "Faulty : mistakes are found in shape by checkshape command after BLEND command"
33         puts " Body of the scripts was not executed !"
34     } else {
35         puts "Checking by checkshape - OK"
36
37         vinit
38         vdisplay result_2
39         vsetdispmode result_2 1
40         vfit
41
42         explode result_2 e
43         blend result result_2 50 result_2_20 50 result_2_22 50 result_2_10
44         set only_screen 1
45     }
46 }