tests/bugs/fclasses/bug710

   1 puts "========"
   2 puts "OCC710"
   3 puts "========"
   4 puts ""
   5 ########################################################
   6 ## If 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 }