tests/bugs/xde/begin

   1 pload XDE
   2
   3 set subgroup xde
   4
   5 proc GetPercent {Value GoodValue} {
   6    set Percent 0.
   7    if {${GoodValue} != 0.} {
   8       set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
   9    } elseif {${Value} != 0.} {
  10       set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
  11    } else {
  12       set Percent 0.
  13    }
  14    return ${Percent}
  15 }