0025987: Integration part of modified unstable test cases
[occt.git] / tests / bugs / modalg_1 / bug165_4
1 puts "TODO OCC25919 ALL: Error: Offset is not done."
2 puts "TODO OCC25919 ALL: Faulty OCC165"
3 puts "TODO OCC25919 ALL: Error : The length of result shape is"
4
5 cpulimit 600
6
7 puts "========"
8 puts "OCC165"
9 puts "========"
10 puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
11
12
13 dchrono h reset
14 dchrono h start
15
16 restore [locate_data_file offset_wire_019.brep] a 
17 checkshape a
18
19 mkplane f a
20 checkshape f
21
22 set start_stepoffset -5.7
23 set incr_stepoffset 0.1
24 set finish_stepoffset -2.8
25
26 set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
27
28 set IsMade 0
29 set IsBeginMade 0
30 set IsGood 1
31 set i 0
32 set resume_string ""
33 for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
34     incr i
35     puts "i = $i"
36     if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
37         puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
38         set IsGood 0
39         set IsMade 0
40     } else {
41         puts "OK OCC165 (stepoffset = $stepoffset)"
42         set IsMade 1
43     }
44     if {$IsBeginMade == 0 && $IsMade == 1} {
45         set IsBeginMade 1
46         set BeginStepOffset $stepoffset
47     }
48     if {$IsMade == 1} {
49         set FinishStepOffset $stepoffset
50     }
51
52     dchrono h show
53
54     if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
55         set IsBeginMade 0
56         set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
57         set resume_string "${resume_string}${resume_tmp}"
58     }
59 }
60
61 puts ""
62 if {[string length $resume_string] == 0} {
63     puts "Offset is created wrongly on initial shape in following borders"
64     puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
65 } else {
66     puts "Offset is created correctly on initial shape in following borders"
67     puts "$resume_string"
68 }
69
70 if {$IsGood == 1} {
71     puts "OCC165 OK"
72 } else {
73     puts "Faulty OCC165"
74 }
75
76 dchrono h stop
77 dchrono h show
78
79 renamevar result_1 result
80
81 set length 0
82 set 2dviewer 0