[occt.git] / tests / demo / testsystem / A1

# Test procedure locate_data_file

# Successful search
puts "Data file 1 found in [locate_data_file file1.empty]"
puts "Data file 2 found in [locate_data_file file2.empty]"
puts "Data file 3 found in [locate_data_file file3.empty]"

# Failed search
if [catch {locate_data_file file4.empty}] {
    puts "Data file file4.empty not found, that is OK"
} else {
    error "Data file file4.empty is found, while it should not be"
}

puts "Data file 5 found in [locate_data_file file5.empty]"

puts "TEST COMPLETED"
Commit	Line	Data
40093367	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"