0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug1395_1
1 puts "TODO OCC12345 ALL: OCC1395 Error : There is not the integer attribute on the label 0:2"
2 puts "TODO OCC12345 ALL: OCC1395 Error"
3
4 puts "================"
5 puts "OCC1395"
6 puts "================"
7 puts ""
8 #######################################################################################
9 # Wrong behaviour of Undo Redo and SetUndoLimit methods in TDocStd_Document
10 #######################################################################################
11 # Case 1 (Undo)
12 #######################################################################################
13
14 set IsGood 1
15
16 # Create a new document and set UndoLimit
17 NewDocument D BinOcaf
18 UndoLimit D 100
19
20 # Create a label
21 set aLabel 0:2
22 Label D ${aLabel}
23
24 # Open a transaction
25 OpenTran D
26
27 # Set integer attribute
28 set anInteger 5
29 SetInteger D ${aLabel} ${anInteger}
30
31 # Commit transaction
32 CommitTran D 1
33
34 # Undo
35 DFUndo D 1
36
37 # Check integer attributes
38 if [catch { set Integer [GetInteger D ${aLabel}] } message] {
39   set IsGood 0
40   puts "OCC1395 Error : There is not the integer attribute on the label ${aLabel}"
41 } else {
42   puts "OCC1395 OK : There is the integer attribute on the label ${aLabel}"
43 }
44
45 # Set real attribute
46 set aReal 8.8
47 SetReal D ${aLabel} ${aReal}
48
49 # Undo
50 DFUndo D 1
51
52 # Check real attributes
53 if [catch { set Real [GetReal D ${aLabel}] } message] {
54   set IsGood 0
55   puts "OCC1395 Error : There is not the real attribute on the label ${aLabel}"
56 } else {
57   puts "OCC1395 OK : There is the real attribute on the label ${aLabel}"
58 }
59
60 if { ${IsGood} == 1 } {
61   puts "OCC1395 OK"
62 } else {
63   puts "OCC1395 Error"
64 }