1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
pload QAcommands
puts "============"
puts "OCC22558"
puts "============"
puts ""
#######################################################################
# Bug in gp_Dir::Mirror(const gp_Ax2 & axis)
#######################################################################
set BugNumber OCC22558
set check1 -57735
set check2 57735
set info [ OCC22558 1 1 1 1 0 0 0 0 0 ]
set res_z1 [lindex ${info} end]
set res_y1 [lindex ${info} end-1]
set res_x1 [lindex ${info} end-2]
set res_z [ expr int($res_z1 * 100000) ]
set res_y [ expr int($res_y1 * 100000) ]
set res_x [ expr int($res_x1 * 100000) ]
if { ${res_x} == ${check1} && ${res_y} == ${check2} && ${res_z} == ${check2} } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
|
