tests/bugs/fclasses/bug13963_2

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC13963"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Some improvements in Bnd and gp classes
   9 #######################################################################
  10
  11 set BugNumber OCC13963
  12
  13 set Result [OCC13963 1 0 0 2]
  14
  15 regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ
  16
  17 if { ${OriginX} == 1.000 } {
  18    set Status 0
  19 } else {
  20    set Status 1
  21 }
  22 if { ${OriginY} == 0.000 } {
  23    set Status 0
  24 } else {
  25    set Status 2
  26 }
  27 if { ${OriginZ} == 0.000 } {
  28    set Status 0
  29 } else {
  30    set Status 3
  31 }
  32
  33 if { ${ResultX} == 1.500 } {
  34    set Status 0
  35 } else {
  36    set Status 4
  37 }
  38 if { ${ResultY} == -0.500 } {
  39    set Status 0
  40 } else {
  41    set Status 5
  42 }
  43 if { ${ResultZ} == 0.000 } {
  44    set Status 0
  45 } else {
  46    set Status 6
  47 }
  48
  49 puts "Status = ${Status}"
  50 # Resume
  51 puts ""
  52 if { ${Status} != 0 } {
  53   puts "Faulty ${BugNumber}"
  54 } else {
  55   puts "OK ${BugNumber}"
  56 }
  57