mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-12 02:40:22 +08: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"
|