1 puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
4 puts "========================"
6 puts "========================"
8 ##################################################
9 ## checkshape command consider the shape with incorrect order of tolerance as valid.
10 ##################################################
12 restore [locate_data_file OCC330.brep] result
15 set che [checkshape result]
18 if { [regexp {Faulty} $che ] != 1 } {
19 puts "Faulty OCC330: Checkshape command works wrongly"
21 puts "OCC330 OK : Checkshape command works properly"