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 | } |