[occt.git] / tests / bugs / fclasses / bug710

puts "========"
puts "OCC710"
puts "========"
puts ""
########################################################
## If the the file pathname is empty, the Standard_Boolean OSD_FileNode::Exists() 
## raises an exception
########################################################

pload QAcommands

set Path ""

if [catch {OCC710 ${Path} } result] {
  puts "Faulty OCC710"
} else {
  puts "OCC710 OK"
}
Commit	Line	Data
352ffd73	1	puts "========"
	2	puts "OCC710"
	3	puts "========"
	4	puts ""
	5	########################################################
	6	## If the the file pathname is empty, the Standard_Boolean OSD_FileNode::Exists()
	7	## raises an exception
	8	########################################################
	9
	10	pload QAcommands
	11
	12	set Path ""
	13
	14	if [catch {OCC710 ${Path} } result] {
	15	puts "Faulty OCC710"
	16	} else {
	17	puts "OCC710 OK"
	18	}