61c421bf |
1 | puts "TODO OCC11111 ALL: Faulty OCC5698" |
2 | |
3 | pload QAcommands |
4 | |
5 | puts "============" |
6 | puts "OCC5698" |
7 | puts "============" |
8 | puts "" |
9 | ###################################################### |
10 | # Incorrect result of intersection of a plane and an extrusion surface |
11 | ###################################################### |
12 | |
13 | set BugNumber OCC5698 |
14 | |
15 | restore [locate_data_file OCC5698.brep] s1 |
16 | |
17 | set info_result [OCC5698 s1] |
18 | |
19 | set index [string compare ${info_result} "OK\n"] |
20 | if {$index != 0} { |
21 | puts "Faulty ${BugNumber}" |
22 | } else { |
23 | puts "OK ${BugNumber}" |
24 | } |
25 | |