a87752f3 |
1 | puts "===========" |
2 | puts "OCC425" |
3 | puts "OCC414" |
4 | puts "===========" |
5 | ###################################################### |
6 | # Exception on attemp to save a document that contains empty TDataStd_Name |
7 | ###################################################### |
8 | # Crash on NT during document saving (SAM1344-#2153) |
9 | ###################################################### |
10 | |
11 | set IsGood 1 |
12 | |
13 | NewDocument D MDTV-Standard |
14 | UndoLimit D 10 |
15 | |
16 | # Add an attribute to a data framework |
17 | set aSetAttr1 "" |
18 | set aLabel 0:2 |
19 | Label D ${aLabel} |
20 | SetName D ${aLabel} ${aSetAttr1} |
21 | |
22 | # Close/Open the transaction |
23 | NewCommand D |
24 | |
25 | # Save the document |
26 | set aFile ${imagedir}/OCC425.std |
27 | catch {file delete ${aFile}} |
28 | SaveAs D ${aFile} |
29 | if { ![file exists ${aFile}] } { |
30 | puts "There is not ${aFile} file; SaveAs command: Error" |
31 | set IsGood 0 |
32 | } |
33 | catch {exec chmod 777 ${aFile}} |
34 | |
35 | # Restore the document |
36 | Close D |
37 | Open ${aFile} DD |
38 | |
39 | # Get a value of the attribute |
40 | set aGetAttr3 "" |
41 | set IsDone [catch {set aGetAttr3 [GetName DD ${aLabel}]} aResult] |
42 | if { ${IsDone} != 0 } { |
43 | puts "OCC425: Error" |
44 | set IsGood 0 |
45 | } |
46 | if { ${aSetAttr1}!=${aGetAttr3} } { |
47 | puts "aSetAttr1=${aSetAttr1} aGetAttr3=${aGetAttr3}" |
48 | puts "Get a value of TDataStd_Name attribute from restoring document: Error" |
49 | set IsGood 0 |
50 | } |
51 | |
52 | if { ${IsGood} != 1 } { |
53 | puts "OCC425: Error" |
54 | } |
55 | |