tests/bugs/caf/buc60862

   1 puts "==========="
   2 puts "BUC60862"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D MDTV-Standard
   8 UndoLimit D 100
   9
  10 NewCommand D
  11
  12 vertex V1 10 20 0
  13 vertex V2 20 10 0
  14
  15 catch {edge Shape ${V1} ${V2}}
  16 catch {set ResultError [BUC60862 D $Shape]}
  17
  18 if { ${ResultError} != 0 } {
  19     puts "BUC60862: Error = $ResultError"
  20 }
  21