0023087: Upgrade of the OCCT test system
[occt.git] / tests / demo / testsystem / A1
CommitLineData
40093367 1# Test procedure locate_data_file
2
3# Successful search
4puts "Data file 1 found in [locate_data_file file1.empty]"
5puts "Data file 2 found in [locate_data_file file2.empty]"
6puts "Data file 3 found in [locate_data_file file3.empty]"
7
8# Failed search
9if [catch {locate_data_file file4.empty}] {
10 puts "Data file file4.empty not found, that is OK"
11} else {
12 error "Data file file4.empty is found, while it should not be"
13}
14
15puts "Data file 5 found in [locate_data_file file5.empty]"
16
17puts "TEST COMPLETED"