834f6af8661c97bbf972130eacef0193fae2fc5b
[occt.git] / tests / bugs / modalg / bug446_4
1
2 puts "========"
3 puts "OCC446"
4 puts "OCC447"
5 puts "(case 4)"
6 puts "========"
7 puts ""
8 ######################################
9 ## As result I have fail on shape that it is not closed.
10 ######################################
11
12 restore [locate_data_file OCC446d.brep] result
13
14 set che [checkshape result]
15 if { [regexp {Faulty} $che ] == 1 } {
16     puts "Faulty OCC446 (case 4): Source shape is NotClosed"
17 } else {
18     puts "OCC446 OK (case 4): Source shape is Closed"
19 }
20 set square 629.347
21 set 3dviewer 2