0025455: fixshape works at the second attempt
[occt.git] / tests / bugs / heal / bug25455
1 puts "============"
2 puts "OCC25455"
3 puts "============"
4 puts ""
5 ######################################################
6 # fixshape works at the second attempt
7 ######################################################
8
9 restore [locate_data_file bug25455_rx.brep] rx
10
11 fixshape rx rx
12
13 set info [checkshape rx]
14
15 # Resume
16 puts ""
17 if { [regexp {This shape seems to be valid} ${info}] } {
18    puts "OK: fixshape works properly"
19 } else {
20    puts "Error: fixshape works bad"
21 }