cba287d6 |
1 | puts "TODO OCC27471 ALL: ERROR: OCC27471 is reproduced." |
2 | |
3 | puts "========" |
4 | puts "OCC27471" |
5 | puts "========" |
6 | puts "" |
7 | ######################## |
8 | # Wrong result of pipe |
9 | ######################## |
10 | |
11 | restore [locate_data_file bug27471_s.brep] s |
12 | restore [locate_data_file bug27471_p.brep] p |
13 | |
14 | pipe result s p |
15 | |
16 | set bug_info [string trim [bopcheck result]] |
17 | if {$bug_info != "This shape seems to be OK."} { |
18 | puts "ERROR: OCC27471 is reproduced. Result of pipe creation is WRONG." |
19 | } |
20 | |
21 | vinit |
22 | vdisplay result |
23 | vfit |
24 | |
25 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |