Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug399
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
2 puts "TODO OCC12345 ALL: Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
3 puts "TODO OCC12345 ALL: Error : The square of result shape is"
4
5 puts "========"
6 puts "OCC399"
7 puts "========"
8 puts ""
9 #########################################
10 ## Checkshape gives wrong result for valid face 
11 #########################################
12
13 restore [locate_data_file OCC399.brep] result
14
15 set che [checkshape result]
16 if { [regexp {Faulty} $che ] == 1 } {
17     puts "Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
18 } else {
19     puts "OCC399 OK : Source shape is valid. Command checkshape works properly."
20 }
21
22 set square 0
23 set 2dviewer 0