tests/bugs/caf/bug22976

   1 puts "==========="
   2 puts "OCC22976"
   3 puts "==========="
   4 ######################################################
   5 # A draw-command CopyDF failes to copy content of a label
   6 ######################################################
   7
   8 set BugNumber OCC22976
   9
  10 # Create a new document and set UndoLimit
  11 NewDocument D
  12 UndoLimit D 100
  13
  14 # Open a transaction
  15 NewCommand D
  16
  17 SetReal D 0:1 1.2345
  18 CopyDF D 0:1 0:2
  19 catch { GetReal D 0:2 } catch_result
  20
  21 if { $catch_result == 1.2344999999999999 } {
  22    puts "OK ${BugNumber}"
  23 } else {
  24   puts "Faulty ${BugNumber}"
  25 }