tests/bugs/fclasses/buc60727

   1 puts "============="
   2 puts "BUC60727"
   3 puts "============="
   4
   5 pload QAcommands
   6
   7 set start [BUC60727]
   8 set n [llength $start]
   9 set end [lindex $start [expr $n-1]]
  10
  11 if { $end != 3} {
  12     puts "Faulty : Incorrect converting of the unit"
  13 }
  14