Adding test cases from grid chl
[occt.git] / tests / bugs / caf / buc60831
1 puts "==========="
2 puts "BUC60831"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D MDTV-Standard
8 UndoLimit D 100
9
10 NewCommand D
11
12 set L 0:3
13 Label D $L
14
15 set Status 0
16
17 set Result [BUC60831_1 D]
18 if { ${Result} != 0 } {
19     puts "BUC60831: Error 1"
20     set Status 1
21 }
22
23 NewCommand D
24
25 set Result [BUC60831_2 D $L]
26 if { ${Result} != 0 } {
27     puts "BUC60831: Error 2"
28     set Status 1
29 }
30
31 set Result [BUC60831_1 D]
32 if { ${Result} != 1 } {
33     puts "BUC60831: Error 3"
34     set Status 1
35 }
36
37 NewCommand D
38
39 Undo D
40
41 set Result [BUC60831_1 D]
42 if { ${Result} != 0 } {
43     puts "BUC60831: Error 4"
44     set Status 1
45 }
46
47 if { ${Status} != 0} then {
48  puts "BUC60831: Error"
49 }
50