0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / demo / draw / restore
CommitLineData
1598ec0e 1# check that restore command defines default name for the loaded shape
2# as base name of the file without extension
3
4restore [locate_data_file CCV-POUR-COPIER-COLLER.brep]
5
6if { ! [regexp {is a shape} [whatis CCV-POUR-COPIER-COLLER]] } {
7 puts "Error: no shape with name CCV-POUR-COPIER-COLLER after restore"
8}
9
10puts "TEST COMPLETED"