0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / demo / bug23130
CommitLineData
581971fe 1puts "============"
2puts "OCC23130"
3puts "============"
4puts ""
5###########################################################################
6# command "maxtolerance" doesn't work on Windows
7###########################################################################
8
9box b 100 100 100
10
11set info [maxtolerance b]
12
13regexp {nbFaces:+([-0-9.+eE]+)} $info full nbF
14regexp {nbEdges:+([-0-9.+eE]+)} $info full nbE
15regexp {nbVtx:+([-0-9.+eE]+)} $info full nbV
16
17regexp {Face +: +Min +([-0-9.+eE]+) +Max +([-0-9.+eE]+) } $info full minF maxF
18regexp {Edge +: +Min +([-0-9.+eE]+) +Max +([-0-9.+eE]+) } $info full minE maxE
19regexp {Vertex +: +Min +([-0-9.+eE]+) +Max +([-0-9.+eE]+) } $info full minV maxV
20
21puts "nbF=${nbF}"
22puts "nbE=${nbE}"
23puts "nbV=${nbV}"
24
25puts "minF=${minF}"
26puts "maxF=${maxF}"
27
28puts "minE=${minE}"
29puts "maxE=${maxE}"
30
31puts "minV=${minV}"
32puts "maxV=${maxV}"
33
34if { ${nbF} != 6} {
35 puts "Error: bad value of nbFaces"
36}
37#
38if { ${nbE} != 12} {
39 puts "Error: bad value of nbEdges"
40}
41#
42if { ${nbV} != 8} {
43 puts "Error: bad value of nbVtx"
44}
45
46set goodTol 1.00000e-07
47set tol 1.00000e-07
48
49if { [expr (abs (${minF} - ${goodTol}) )] > ${tol} } {
50 puts "Error: bad value of minF"
51}
52if { [expr (abs (${maxF} - ${goodTol}) )] > ${tol} } {
53 puts "Error: bad value of maxF"
54}
55if { [expr (abs (${minE} - ${goodTol}) )] > ${tol} } {
56 puts "Error: bad value of minE"
57}
58if { [expr (abs (${maxE} - ${goodTol}) )] > ${tol} } {
59 puts "Error: bad value of maxE"
60}
61if { [expr (abs (${minV} - ${goodTol}) )] > ${tol} } {
62 puts "Error: bad value of minV"
63}
64if { [expr (abs (${maxV} - ${goodTol}) )] > ${tol} } {
65 puts "Error: bad value of maxV"
66}