mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
191082ac71
Use NCollection_Map instead of instantiation of TCollection_Map Test-cases for issue #25344 Correct error in test script: the shape variable assigned by the command 'restore' must not be referred by '$'.
29 lines
696 B
Plaintext
29 lines
696 B
Plaintext
puts "========"
|
|
puts "OCC25344"
|
|
puts "========"
|
|
puts ""
|
|
#######################################################
|
|
# Draw variables do not follow the scope of TCL level
|
|
#######################################################
|
|
|
|
box a 1 1 1
|
|
|
|
set filename "box file.brep"
|
|
|
|
if [catch {save a $filename}] {
|
|
puts "ERROR: save failure"
|
|
} else {
|
|
if ![file exists $filename] {
|
|
puts "ERROR: file \"$filename\" is not created"
|
|
} else {
|
|
if [catch {restore $filename b}] {
|
|
puts "ERROR: restore of file \"$filename\" is failure"
|
|
} else {
|
|
if {[dtyp a] != [dtyp b]} {
|
|
puts "ERROR: types of shape and its restored copy do not equal"
|
|
}
|
|
}
|
|
file delete $filename
|
|
}
|
|
}
|