4 # Testing attributes: TDataStd_Tick TDataStd_Directory TDataStd_NoteBook TDataXtd_Axis TDataXtd_Placement TDataXtd_Plane TDataXtd_Point TDataXtd_Shape
6 # Testing command: SetEmptyAttribute
7 # BinOcaf format open/save with these attributes
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
24 set aLen1 [llength [Attributes D 0:2]]
25 if { ${aLen1} != 8 } {
27 puts "Not all attributes were added aLen1=${aLen1}"
31 # check forget attribute by its type
32 ForgetAtt D 0:2 TDataXtd_Point
35 set aLen2 [llength [Attributes D 0:2]]
36 if { ${aLen2} != ${aLen1} - 1 } {
38 puts "TDataXtd_Point was not removed from the label"
44 set aLen3 [llength [Attributes D 0:2]]
45 if { ${aLen3} != 0 } {
47 puts "Not all attributes were removed on Undo aLen3=${aLen3}"
52 set aLen4 [llength [Attributes D 0:2]]
53 if { ${aLen4} != 8 } {
55 puts "Not all attributes were restored by Redo aLen4=${aLen4}"
58 set aFile ${imagedir}/caf001-F4.cbf
61 if { ![file exists ${aFile}] } {
62 puts "There is not ${aFile} file; SaveAs command: Error"
71 set aLen5 [llength [Attributes DD 0:2]]
72 if { ${aLen5} != 8 } {
74 puts "Not all attributes were restored on Open aLen4=${aLen5}"
77 if { ${IsGood} == 0} {
78 puts "Set empty attributes: Error"
80 puts "Set empty attributes: OK"