tests/bugs/moddata_3/buc60811

   1 puts "========================"
   2 puts "BUC60811"
   3 puts "========================"
   4
   5 pload QAcommands
   6
   7 vinit
   8 decho off
   9 set List [BUC60811]
  10 decho on
  11 if { [regexp "Error is 5" $List] != 1 } {
  12     puts "Faulty: output is incorrect"
  13 } else {
  14     puts "OK: output is correct"
  15 }
  16
  17
  18
  19