095e90a2 |
1 | #INTERFACE CAF |
2 | # Basic attributes |
3 | # |
4 | # Testing order of attributes on Undo/Redo |
5 | # |
6 | # Testing command: SetInteger |
7 | # Testing command: GetReal |
8 | # Testing command: Undo and Redo |
9 | # |
10 | |
11 | puts "caf001-B8" |
12 | |
13 | NewCommand D |
14 | SetInteger D 0:1 123 |
15 | SetReal D 0:1 123.321 |
16 | NewCommand D |
17 | CheckLabel D 0:1 |
18 | |
19 | set res1 [CheckLabel D 0:1] |
20 | set indexReal1 [lsearch ${res1} TDataStd_Real] |
21 | set indexInt1 [lsearch ${res1} TDataStd_Integer] |
bd6f0d2f |
22 | if { ${indexReal1} != 11} { |
095e90a2 |
23 | puts "Error: Wrong position 1 of TDataStd_Real attribute." |
24 | } |
bd6f0d2f |
25 | if { ${indexInt1} != 5} { |
095e90a2 |
26 | puts "Error: Wrong position 1 of TDataStd_Integer attribute." |
27 | } |
28 | |
29 | Undo D |
30 | Redo D |
31 | CheckLabel D 0:1 |
32 | |
33 | set res2 [CheckLabel D 0:1] |
34 | set indexReal2 [lsearch ${res2} TDataStd_Real] |
35 | set indexInt2 [lsearch ${res2} TDataStd_Integer] |
36 | if { ${indexReal1} != ${indexReal2}} { |
37 | puts "Error: Wrong position 2 of TDataStd_Real attribute." |
38 | } |
39 | if { ${indexInt1} != ${indexInt2}} { |
40 | puts "Error: Wrong position 2 of TDataStd_Integer attribute." |
41 | } |