Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug73_2
1 puts "==========="
2 puts "OCC73"
3 puts "BUC61050"
4 puts "==========="
5
6 pload QAcommands
7
8 NewDocument D MDTV-Standard
9 UndoLimit D 10
10
11 # Close/Open transaction
12 NewCommand D
13
14 # Set NamedShape attribute
15 box aBox1 100 200 300
16 set aLabel 0:2
17 SetShape D ${aLabel} aBox1
18
19 # Initialize 3D viewer
20 AISInitViewer D
21
22 # Add AISPresentation attribute with parameter NS
23 AISSet D ${aLabel} NS
24
25 # Display presentation of NamedShape in the viewer
26 AISDisplay D ${aLabel}
27
28 # Get a selection mode of the shape
29 set SelectionMode0 [OCC73_SelectionMode D ${aLabel}]
30
31 # Set a selection mode of the shape as 1
32 set SelectionMode 1
33 OCC73_SelectionMode D ${aLabel} ${SelectionMode}
34
35 # Get a selection mode of the shape
36 set SelectionMode1 [OCC73_SelectionMode D ${aLabel}]
37
38 # Close/Open transaction
39 NewCommand D
40
41 # Undo
42 Undo D
43
44 # Redo
45 Redo D
46
47 # Get a selection mode of the shape
48 set SelectionMode2 [OCC73_SelectionMode D ${aLabel}]
49
50 puts "SelectionMode0 = ${SelectionMode0}"
51 puts "SelectionMode1 = ${SelectionMode1}"
52 puts "SelectionMode  = ${SelectionMode}"
53 puts "SelectionMode2 = ${SelectionMode2}"
54
55 if {${SelectionMode0} == ${SelectionMode1} || ${SelectionMode1} != ${SelectionMode} || ${SelectionMode1} != ${SelectionMode2}} then {
56         puts "OCC73: Error"
57 } else {
58         puts "OCC73: OK"
59 }