0023087: Upgrade of the OCCT test system
[occt.git] / tests / demo / testsystem / A1
1 # Test procedure locate_data_file
2
3 # Successful search
4 puts "Data file 1 found in [locate_data_file file1.empty]"
5 puts "Data file 2 found in [locate_data_file file2.empty]"
6 puts "Data file 3 found in [locate_data_file file3.empty]"
7
8 # Failed search
9 if [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
15 puts "Data file 5 found in [locate_data_file file5.empty]"
16
17 puts "TEST COMPLETED"