0f9f1f4e |
1 | puts "========" |
2 | puts "OCC25887" |
3 | puts "========" |
4 | puts "" |
5 | ############################# |
6 | # Invalid pipe construction |
7 | ############################# |
8 | |
9 | restore [locate_data_file OCC25887_shape.brep] a |
10 | |
11 | smallview |
12 | |
13 | explode a |
14 | |
15 | pipe res a_1 a_2 1 |
16 | |
17 | donly res |
18 | fit |
19 | |
20 | set bug_info [checkshape res] |
21 | if {[string compare $bug_info "This shape seems to be valid"] != 0} { |
22 | puts "ERROR: OCC25887 is reproduced." |
23 | } |
24 | |
5747059b |
25 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |