mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
1598ec0e46
Command restore corrected to set default name of the shape equal to filename without extension Test case added (demo draw restore)
11 lines
337 B
Plaintext
11 lines
337 B
Plaintext
# check that restore command defines default name for the loaded shape
|
|
# as base name of the file without extension
|
|
|
|
restore [locate_data_file CCV-POUR-COPIER-COLLER.brep]
|
|
|
|
if { ! [regexp {is a shape} [whatis CCV-POUR-COPIER-COLLER]] } {
|
|
puts "Error: no shape with name CCV-POUR-COPIER-COLLER after restore"
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|