Updating test for current state of OCCT
[occt.git] / tests / bugs / modalg_3 / bug22595
1 puts "============"
2 puts "OCC22595"
3 puts "============"
4 puts ""
5 ######################################################
6 # gp_Mat's constructors incompletely initilize memory
7 ######################################################
8
9 set BugNumber OCC22595
10 pload QAcommands
11
12 set Min_ListLength 11
13
14 set List [ OCC22595 ]
15
16 set status 0
17 set ListLength [llength ${List}]
18
19 if { ${ListLength} != ${Min_ListLength}} {
20    set status 1
21    puts "Error: ListLength = ${ListLength}"
22 }
23
24 set index0 0
25 set M11  [lindex ${List} [expr ${index0} +2]]
26 set M12  [lindex ${List} [expr ${index0} + 3 ]]
27 set M13  [lindex ${List} [expr ${index0} + 4 ]]
28 set M21  [lindex ${List} [expr ${index0} + 5 ]]
29 set M22  [lindex ${List} [expr ${index0} + 6 ]]
30 set M23  [lindex ${List} [expr ${index0} + 7 ]]
31 set M31  [lindex ${List} [expr ${index0} + 8 ]]
32 set M32  [lindex ${List} [expr ${index0} + 9 ]]
33 set M33  [lindex ${List} [expr ${index0} + 10 ]]
34
35 if { ${M11} != 0 || ${M12} != 0 || ${M13} != 0 } {
36    set status 1
37 }
38 if { ${M21} != 0 || ${M22} != 0 || ${M23} != 0 } {
39    set status 1
40 }
41 if { ${M31} != 0 || ${M32} != 0 || ${M33} != 0 } {
42    set status 1
43 }
44 if { $status != 0 } {
45     puts  "Faulty $BugNumber"
46 } else {
47     puts  "OK $BugNumber"
48 }
49
50
51