0031875: Draw Harness, ViewerTest - command vaspects -mostContinuity lacks g1 and...
[occt.git] / tests / caf / basic / F4
1 #INTERFACE CAF
2 # Basic attributes
3 #
4 # Testing attributes: TDataStd_Tick TDataStd_Directory TDataStd_NoteBook TDataXtd_Axis TDataXtd_Placement TDataXtd_Plane TDataXtd_Point TDataXtd_Shape 
5 #
6 # Testing command:   SetEmptyAttribute
7 # BinOcaf format open/save with these attributes
8
9 Label D 0:2
10
11 set IsGood 1
12
13 NewCommand D
14 SetEmptyAttribute D 0:2 TDataStd_Tick
15 SetEmptyAttribute D 0:2 TDataStd_Directory
16 SetEmptyAttribute D 0:2 TDataStd_NoteBook
17 SetEmptyAttribute D 0:2 TDataXtd_Axis
18 SetEmptyAttribute D 0:2 TDataXtd_Placement
19 SetEmptyAttribute D 0:2 TDataXtd_Plane
20 SetEmptyAttribute D 0:2 TDataXtd_Point
21 SetEmptyAttribute D 0:2 TDataXtd_Shape 
22 CommitCommand D
23
24 set aLen1 [llength [Attributes D 0:2]]
25 if { ${aLen1} != 8 } {
26    set IsGood 0
27    puts "Not all attributes were added aLen1=${aLen1}"
28 }
29
30 NewCommand D
31 # check forget attribute by its type
32 ForgetAtt D 0:2 TDataXtd_Point
33 CommitCommand D
34
35 set aLen2 [llength [Attributes D 0:2]]
36 if { ${aLen2} != ${aLen1} - 1 } {
37    set IsGood 0
38    puts "TDataXtd_Point was not removed from the label"
39 }
40
41 Undo D
42 Undo D
43
44 set aLen3 [llength [Attributes D 0:2]]
45 if { ${aLen3} != 0 } {
46    set IsGood 0
47    puts "Not all attributes were removed on Undo aLen3=${aLen3}"
48 }
49
50 Redo D
51
52 set aLen4 [llength [Attributes D 0:2]]
53 if { ${aLen4} != 8 } {
54    set IsGood 0
55    puts "Not all attributes were restored by Redo aLen4=${aLen4}"
56 }
57
58 set aFile ${imagedir}/caf001-F4.cbf
59 file delete ${aFile}
60 SaveAs D ${aFile}
61 if { ![file exists ${aFile}] } {
62         puts "There is not ${aFile} file; SaveAs command: Error"
63         return
64 }
65 Close D
66
67 Open ${aFile} DD
68
69 Label DD 0:2
70
71 set aLen5 [llength [Attributes DD 0:2]]
72 if { ${aLen5} != 8 } {
73    set IsGood 0
74    puts "Not all attributes were restored on Open aLen4=${aLen5}"
75 }
76
77 if { ${IsGood} == 0} {
78   puts "Set empty attributes: Error"
79 } else {
80   puts "Set empty attributes: OK"
81 }