0024045: Invalid test case for matrix-vector multiplication
[occt.git] / tests / bugs / moddata_2 / bug524
1 pload QAcommands
2
3 puts "========"
4 puts "OCC524"
5 puts "========"
6 puts ""
7
8
9 set LowerVector 1
10 set UpperVector 6
11 set InitialValueVector 5
12 set LowerRowMatrix 1
13 set UpperRowMatrix 6
14 set LowerColMatrix 1
15 set UpperColMatrix 6
16 set InitialValueMatrix 4
17
18 set info_result [OCC524 ${LowerVector} ${UpperVector} ${InitialValueVector} ${LowerRowMatrix} ${UpperRowMatrix} ${LowerColMatrix} ${UpperColMatrix} ${InitialValueMatrix}]
19
20 set ll [llength ${info_result}]
21
22 if {${ll} != 46} {
23     puts "OCC524: Error"
24 } else {
25     regexp {math_Vector of Length = ([-0-9.+eE]+)} ${info_result} full Vector1Length
26     if {${Vector1Length} != [expr ${UpperVector} - ${LowerVector} + 1]} {
27         puts "Vector1Length=${Vector1Length}"
28         puts "OCC524: Error"
29     } else {
30         regexp {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector1_1
31         regexp {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector1_2
32         regexp {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector1_3
33         regexp {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector1_4
34         regexp {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector1_5
35         regexp {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector1_6
36         #regexp {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector1_7
37         #regexp {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector1_8
38         #regexp {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector1_9
39         
40        if {${Vector1_1}!=120. || ${Vector1_2}!=120. || ${Vector1_3}!=120. || ${Vector1_4}!=120. || ${Vector1_5}!=120. || ${Vector1_6}!=120.} {
41             puts "Error : OCC524"
42        } else {
43             regexp -all {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector2_1
44             regexp -all {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector2_2
45             regexp -all {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector2_3
46             regexp -all {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector2_4
47             regexp -all {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector2_5
48             regexp -all {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector2_6
49             #regexp -all {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector2_7
50             #regexp -all {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector2_8
51             #regexp -all {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector2_9
52             if {${Vector2_1}!=120. || ${Vector2_2}!=125. || ${Vector2_3}!=120. || ${Vector2_4}!=120. || ${Vector2_5}!=120. || ${Vector2_6}!=120.} {
53                 puts "OCC524: Error"
54             } else {
55                 puts "OCC524: OK"
56             }
57         }
58     }
59 }
60