Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug446_4
CommitLineData
0e94a94e 1
2puts "========"
3puts "OCC446"
4puts "OCC447"
5puts "(case 4)"
6puts "========"
7puts ""
8######################################
9## As result I have fail on shape that it is not closed.
10######################################
11
12restore [locate_data_file OCC446d.brep] result
13
14set che [checkshape result]
15if { [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}
20set square 629.347
82cbc512 21set 2dviewer 0
22