0025887: Invalid pipe construction
[occt.git] / tests / bugs / modalg_5 / bug25887
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
25 set only_screen_axo 1