mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
355c155147
Modified END file of all group bugs. Command nbshape moved to END file. Add begin with variable subgroup Small correction in END file Replaced test case bug726_3 from moddata to modalg
28 lines
677 B
Plaintext
Executable File
28 lines
677 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC6794"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# AsciiString corrputs memory in case of MMGT_OPT equal to 0
|
|
######################################################
|
|
|
|
pload QAcommands
|
|
set BugNumber OCC6794
|
|
set nb 40009
|
|
set env(MMGT_OPT) 0
|
|
set OPT $env(MMGT_OPT)
|
|
|
|
if { ${OPT} != 0 } {
|
|
puts "env(MMGT_OPT) = $env(MMGT_OPT)"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
set result [OCC6794 ${nb}]
|
|
regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb
|
|
regexp {aLength += +([-0-9.+eE]+)} $result full ll
|
|
|
|
if { ${use_nb} != ${nb} || ${ll} != ${nb} } {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
}
|
|
|