Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug330
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