tests/bugs/fclasses/bug902

   1 puts "TODO OCC12345 ALL: OCC902 Faulty"
   2
   3 puts "======="
   4 puts "OCC902"
   5 puts "======="
   6 puts ""
   7 ###############
   8 ## bad derivative
   9 ###############
  10
  11 pload QAcommands
  12
  13 set arg 5
  14 set list [OCC902 $arg]
  15
  16 set we_have [lindex $list 8]
  17 puts "we_have = $we_have"
  18
  19 set must_be_1 "Exp($arg)*$arg"
  20 puts "must_be_1 = $must_be_1"
  21 set must_be_2 "$arg*Exp($arg)"
  22 puts "must_be_2 = $must_be_2"
  23
  24 if  {[string compare $we_have $must_be_1] == 0} {
  25   puts "OCC902 OK"
  26 } else {
  27   if { [string compare $we_have $must_be_2] == 0} {
  28     puts "OCC902 OK"
  29   } else {
  30     puts "OCC902 Faulty"
  31   }
  32 }
  33