mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-17 23:53:20 +08:00
809eca9db6
Modified TODO in some offset cases. Deleted the same test cases bug697_* in /bugs/modalg Deleted test cases which is based on v2d commands Added test cases to folder bugs
31 lines
744 B
Plaintext
Executable File
31 lines
744 B
Plaintext
Executable File
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}"
|
|
}
|
|
|