Adding test cases from chl grid
[occt.git] / tests / bugs / caf / bug1138
1 puts "TODO ?OCC12345 ALL: An exception was caught"
2 puts "TODO ?OCC12345 ALL: Faulty OCC1138 : here is reading problem when the filename is a directory name."
3 puts "TODO ?OCC12345 ALL: Faulty OCC1138"
4
5 puts "================"
6 puts "OCC1138"
7 puts "================"
8 puts ""
9 #######################################################################################
10 # OSD_SIGSEGV is thrown during call LDOMParser.parse method
11 #######################################################################################
12
13 pload QAcommands
14
15 set BugNumber OCC1138
16
17 set status 0
18 decho off
19 if [catch { OCC983 ${imagedir} } result] {
20 decho on
21   puts "Faulty ${BugNumber} : here is reading problem when the filename is a directory name."
22   set status 1
23 } else {
24   puts "Reading ${BugNumber} OK : here is not reading problem when the filename is a directory name."
25 }
26
27 # Resume
28 puts ""
29 if { ${status} != 0 } {
30    puts "Faulty ${BugNumber}"
31 } else {
32    puts "OK ${BugNumber}"
33 }