a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly" |
2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
3 | |
4 | puts "========================" |
5 | puts " OCC330 " |
6 | puts "========================" |
7 | puts "" |
8 | ################################################## |
9 | ## checkshape command consider the shape with incorrect order of tolerance as valid. |
10 | ################################################## |
11 | |
12 | restore [locate_data_file OCC330.brep] result |
13 | |
14 | decho off |
15 | set che [checkshape result] |
16 | decho on |
17 | |
18 | if { [regexp {Faulty} $che ] != 1 } { |
19 | puts "Faulty OCC330: Checkshape command works wrongly" |
20 | } else { |
21 | puts "OCC330 OK : Checkshape command works properly" |
22 | } |
23 | |
24 | set square 0 |
25 | set 2dviewer 0 |