Adding test cases from chl grid
[occt.git] / 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 }