Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug12522
1 puts "TODO ?OCC12345 ALL: OCC12522: Faulty"
2
3 puts "========"
4 puts "OCC12522"
5 puts "========"
6 puts ""
7 ###########################################################
8 # Extrema problems. Case: one of the Extrema arguments is an infinite face or an infinite edge.
9 ###########################################################
10
11 proc GetPercent {Value GoodValue} {
12    set Percent 0.
13    if {${GoodValue} != 0.} {
14       set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
15    } elseif {${Value} != 0.} {
16       set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
17    } else {
18       set Percent 0.
19    }
20    return ${Percent}
21 }
22
23 set BugNumber OCC12522
24
25 restore [locate_data_file OCC12522.brep] arc1
26 explode arc1 e
27 mkcurve curve1 arc1_1
28
29 plane plane1 6400 -4000 -160 0 0 1 1 0 0
30
31 extrema curve1 plane1
32
33 set percent_max 0.1
34 set good_length 8.3705138910905177
35
36 set ext_1_length [lindex [length ext_1] 4]
37
38 set length_percent [GetPercent ${ext_1_length} ${good_length}]
39 puts "length_percent = ${length_percent}"
40
41 if {${length_percent} > ${percent_max}} {
42    puts "${BugNumber}: Faulty"
43 } else {
44    puts "${BugNumber}: OK"
45 }