Adding test cases from grid chl
[occt.git] / tests / bugs / caf / buc60813
1 puts "==========="
2 puts "BUC60813"
3 puts "==========="
4
5 NewDocument D MDTV-Standard
6 UndoLimit D 100
7
8 NewCommand D
9
10 Label D 0:1
11
12 SetName D 0:1 SourceLabel
13 SetReal D 0:1 3.1415
14
15 set Result [CopyLabel D 0:1 0:2]
16 if { ${Result} == 0} {
17     puts "BUC60813: Error 1"
18 } else {
19     set Name [GetName D 0:2]
20     if { [string length ${Name}] == 0 } {
21         puts "BUC60813: Error 2"
22     } else {
23         set Result [CopyLabel D 0:2 0:3]
24         if { ${Result} == 0 } {
25             puts "BUC60813: Error 3"
26         } else {
27             puts "BUC60813: OK"
28         }
29     }
30 }