mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
58 lines
1.1 KiB
Plaintext
Executable File
58 lines
1.1 KiB
Plaintext
Executable File
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC13963"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Some improvements in Bnd and gp classes
|
|
#######################################################################
|
|
|
|
set BugNumber OCC13963
|
|
|
|
set Result [OCC13963 1 0 0 1]
|
|
|
|
regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ
|
|
|
|
if { ${OriginX} == 1.000 } {
|
|
set Status 0
|
|
} else {
|
|
set Status 1
|
|
}
|
|
if { ${OriginY} == 0.000 } {
|
|
set Status 0
|
|
} else {
|
|
set Status 2
|
|
}
|
|
if { ${OriginZ} == 0.000 } {
|
|
set Status 0
|
|
} else {
|
|
set Status 3
|
|
}
|
|
|
|
if { ${ResultX} == 1.000 } {
|
|
set Status 0
|
|
} else {
|
|
set Status 4
|
|
}
|
|
if { ${ResultY} == 0.000 } {
|
|
set Status 0
|
|
} else {
|
|
set Status 5
|
|
}
|
|
if { ${ResultZ} == 0.000 } {
|
|
set Status 0
|
|
} else {
|
|
set Status 6
|
|
}
|
|
|
|
puts "Status = ${Status}"
|
|
# Resume
|
|
puts ""
|
|
if { ${Status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|