Updating test for current state of OCCT

[occt.git] / tests / bugs / modalg_3 / bug22595

puts "============"
puts "OCC22595"
puts "============"
puts ""
######################################################
# gp_Mat's constructors incompletely initilize memory
######################################################

set BugNumber OCC22595
pload QAcommands

set Min_ListLength 11

set List [ OCC22595 ]

set status 0
set ListLength [llength ${List}]

if { ${ListLength} != ${Min_ListLength}} {
   set status 1
   puts "Error: ListLength = ${ListLength}"
}

set index0 0
set M11  [lindex ${List} [expr ${index0} +2]]
set M12  [lindex ${List} [expr ${index0} + 3 ]]
set M13  [lindex ${List} [expr ${index0} + 4 ]]
set M21  [lindex ${List} [expr ${index0} + 5 ]]
set M22  [lindex ${List} [expr ${index0} + 6 ]]
set M23  [lindex ${List} [expr ${index0} + 7 ]]
set M31  [lindex ${List} [expr ${index0} + 8 ]]
set M32  [lindex ${List} [expr ${index0} + 9 ]]
set M33  [lindex ${List} [expr ${index0} + 10 ]]

if { ${M11} != 0 || ${M12} != 0 || ${M13} != 0 } {
   set status 1
}
if { ${M21} != 0 || ${M22} != 0 || ${M23} != 0 } {
   set status 1
}
if { ${M31} != 0 || ${M32} != 0 || ${M33} != 0 } {
   set status 1
}
if { $status != 0 } {
    puts  "Faulty $BugNumber"
} else {
    puts  "OK $BugNumber"
}