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