0030430: Draw - command testgrid in parallel mode hangs if DRAW is launched without GUI
[occt.git] / tests / demo / draw / restore
1 # check that restore command defines default name for the loaded shape
2 # as base name of the file without extension
3
4 restore [locate_data_file CCV-POUR-COPIER-COLLER.brep]
5
6 if { ! [regexp {is a shape} [whatis CCV-POUR-COPIER-COLLER]] } {
7     puts "Error: no shape with name CCV-POUR-COPIER-COLLER after restore"
8 }
9
10 puts "TEST COMPLETED"