0023748: Bad monitoring of intermediate results in offset commands
[occt.git] / tests / bugs / modalg_4 / bug745_4
1 puts "TODO ?OCC23748 ALL: An exception was caught"
2 puts "TODO ?OCC23748 ALL: \\*\\* Exception "
3 puts "TODO ?OCC23748 ALL: Error: Offset is not done."
4 puts "TODO ?OCC23748 ALL: Faulty OCC745"
5 puts "TODO ?OCC12345 ALL: Exception: result is not a topological shape!!!"
6 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
7
8 pload QAcommands
9
10 puts "========"
11 puts "OCC745"
12 puts "========"
13 puts ""
14 ###########################################
15 # Exception Standard_NullValue while performing the offset:
16 ###########################################
17
18 restore [locate_data_file OCC745_pocket1.brep] a 
19 checkshape a
20
21 if { [catch { mkoffset result a 1 -10 } status] } {
22     puts "Faulty OCC745"
23 } else {
24     renamevar result_1 result
25     set nb_info [nbshapes result]
26     set ve 0
27     regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
28     puts [format "Result shape result contains %s vertexes" $ve]
29     if { $ve == 0 } {
30         puts [format "Faulty : Result shape is NULL shape"]
31     } else {
32         regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
33         if {$wi > 1 } {
34             set ll [explode result w]
35             set num [llength $ll]
36             puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
37             foreach {k} $ll {
38                 checkshape $k
39                 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
40                 if { $cs != 0 } {
41                     puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
42                 } else {
43                     puts [format "OK: Result shape is CLOSED wire !!! "]
44                 }
45             }
46         }
47     }
48 }
49
50 set length 0
51 set 2dviewer 0
52