1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/caf/bug26290_newattribute_1
kgv 30fa5f6713 0032705: Test - name clashes within temporary files within bugs/caf/bug23766_X
Several test cases writing temporary files have been corrected.
2021-12-02 21:14:57 +03:00

51 lines
925 B
Plaintext

# OCAF VISUALIZATION
# Presentation attributes
#
# Testing attributes: TPrsStd_AISPresentation & TDataXtd_Presentation
#
# Testing command: standard set of commands
#
# The test checks joint work of these attributes (including Undo/Redo) and keeps result in 'bug26290_new_1.cbf' file
pload OCAF VISUALIZATION
box b 100 200 300
NewDocument D BinOcaf
UndoLimit D 100
NewCommand D
set Lab1 [Label D 0:1:1]
SetShape D $Lab1 b
AISInitViewer D
vsetdispmode 1
AISSet D $Lab1 NS
AISDisplay D $Lab1
vfit
NewCommand D
Undo D 1
Redo D 1
AISColor D $Lab1 AQUAMARINE4
NewCommand D
set aTmpFile ${imagedir}/${casename}.cbf
SaveAs D $aTmpFile
AISErase D $Lab1
## DFBrowse D # - for debug purpose only
AISUnset D $Lab1
NewCommand D
Undo D 1
Redo D 1
Close D
## reopen just kept file
Open $aTmpFile D
file delete -force $aTmpFile
## DFBrowse D
AISInitViewer D
vsetdispmode 1
vfit
AISColor D $Lab1 AQUAMARINE1
AISErase D $Lab1
Close D