Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug446_1
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
2 puts "TODO OCC12345 ALL: Faulty OCC446"
3 ###puts "TODO OCC12345 ALL: Error : The square of result shape is"
4
5 puts "========"
6 puts "OCC446"
7 puts "OCC447"
8 puts "(case 1)"
9 puts "========"
10 puts ""
11 ######################################
12 ## As result I have fail on shape that it is not closed.
13 ######################################
14
15 restore [locate_data_file OCC446a.brep] result
16
17 set che [checkshape result]
18 if { [regexp {Faulty} $che ] == 1 } {
19     puts "Faulty OCC446 (case 1): Source shape is NotClosed"
20 } else {
21     puts "OCC446 OK (case 1): Source shape is Closed"
22 }
23 set square 108.845
24 set 2dviewer 0
25