Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug25
1 puts "================"
2 puts "OCC25"
3 puts "================"
4 puts ""
5
6 restore [locate_data_file OCC25-1.brep] sh1 
7
8 decho off
9 set che [checkshape sh1]
10 decho on
11
12 if { [regexp {Faulty} $che ] == 1 } {
13     puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth"
14 } else {
15     puts "OCC25 OK (case 1): Checkshape works properly"
16 }
17
18 # ================================================
19 restore [locate_data_file OCC25-2.brep] sh2
20
21 decho off
22 set che [checkshape sh2]
23 decho on
24
25 if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} {
26     puts " OCC25 (case 2) OK: Checkshape works properly"
27 } else {
28     puts "Faulty OCC25 (case 2): Checkshape works wrongly"
29 }
30
31 compound sh1 sh2 result
32
33 set 2dviewer 0
34
35